OVH Cloud OVH Cloud

Problème sous AC2000

3 réponses
Avatar
René
J'ai une appli qui fonctionne sous Access97, mais
sous Access 2000 j'ai le message suivant
"La commande ou l'action SauvegarderEnregistrement n'est=20
pas disponible pour l'instant"=20
quand je suis dans un formulaire et que je valide un=20
enregistrement avec un bouton , alors que si je clique
sur le stylo =E0 gauche du formulaire, je n'est pas le=20
message . !
si vous avez une solution , d'avance merci
Ren=E9

3 réponses

Avatar
Raymond [mvp]
Bonsoir.

Quelle est la ou les commandes que tu exécutes sous ce bouton ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"René" a écrit dans le message de
news:3c7f01c3e341$eeb9a8b0$
J'ai une appli qui fonctionne sous Access97, mais
sous Access 2000 j'ai le message suivant
"La commande ou l'action SauvegarderEnregistrement n'est
pas disponible pour l'instant"
quand je suis dans un formulaire et que je valide un
enregistrement avec un bouton , alors que si je clique
sur le stylo à gauche du formulaire, je n'est pas le
message . !
si vous avez une solution , d'avance merci
René
Avatar
rené
Raymond, j'ai trouvé une solution à mon problème
j'ai modifié la méthode suivante dans mon formulaire:
Modif Autorisée
Avec Oui comme paramètre je n'est plus le message!c'est
Ok , c'est bizare, car sous Access 97 je n'est pas ce
problème !.

Merci quand même

Voici mon code
Private Sub btnValide_Click()
' Contrôle des champs
On Error GoTo Err_btnValide_Click
' Me.RefCompte.Value = Me.cbmCompteTravail.Value

If IsNull(Me.RefTier) Then
MsgBox "Vous devez saisir le nom du tier.", 0
Me.RefTier.SetFocus
Exit Sub
End If
If IsNull(Me.NuChêque) And Me.RefReglement = 1 Then
MsgBox "Vous devez saisir le numéro du chêque.", 0
Me.NuChêque.SetFocus
Exit Sub
End If
If IsNull(Me.RefRubrique) Or (Me.RefRubrique) = 0 Then
MsgBox "Vous devez saisir la rubrique.", 0
Me.RefRubrique.SetFocus
Exit Sub
End If
If IsNull(Me.Date) Then
MsgBox "Vous devez saisir la dâte de
l'opération.", 0
Me.Date.SetFocus
Exit Sub
End If
If Me.GlCrédit.Value = 0 And Me.GlDébit.Value = 0 Then
MsgBox "Vous devez saisir un montant (Débit ou
Crédit).", 0
Me.GlDébit.SetFocus
Exit Sub
End If
If Me.GlCrédit.Value > 0 And Me.GlDébit.Value > 0 Then
MsgBox "Vous devez saisir un seul montant (Soit
Débit ou Crédit)!.", 0
Me.GlDébit.SetFocus
Exit Sub
End If
If Me.GlDébit > 0 Then Me.GlDébit = "-" &
Me.GlDébit.Value
DoCmd.RunCommand acCmdSaveRecord

Exit_btnValide_Click:
Exit Sub

Err_btnValide_Click:
MsgBox Err.Description
Resume Exit_btnValide_Click
End Sub





-----Message d'origine-----
Bonsoir.

Quelle est la ou les commandes que tu exécutes sous ce
bouton ?


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"René" a écrit dans
le message de

news:3c7f01c3e341$eeb9a8b0$
J'ai une appli qui fonctionne sous Access97, mais
sous Access 2000 j'ai le message suivant
"La commande ou l'action SauvegarderEnregistrement n'est
pas disponible pour l'instant"
quand je suis dans un formulaire et que je valide un
enregistrement avec un bouton , alors que si je clique
sur le stylo à gauche du formulaire, je n'est pas le
message . !
si vous avez une solution , d'avance merci
René


.



Avatar
Raymond [mvp]
Bonjour.
ça se comprend que le contexte n'était pas à sauvegarder un enregistrement
non modifiable. entre nous, je préfère la réaction 2000 que la réaction 97.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"rené" a écrit dans le message de
news:3f3f01c3e409$4831fce0$
Raymond, j'ai trouvé une solution à mon problème
j'ai modifié la méthode suivante dans mon formulaire:
Modif Autorisée
Avec Oui comme paramètre je n'est plus le message!c'est
Ok , c'est bizare, car sous Access 97 je n'est pas ce
problème !.