problème avec l' Utilisation de RunCommand en VBA/Access

Question

Bonjour,
je développe une application en VBA/access, et la procédure suivante
 me génère une erreur au niveau de mes lignes de codes "RunCommand"
ce source est placé dans le module attaché au formulaire qui est lui même
dépendant d'une table access(la base mélange tables access et tables odbc)
si quelqu'un a déjà vécu ce blocage.....merci d'avance
voici le code:

Public Sub controler(intPersonne As Integer)

Call Activite(intPersonne)              'appel de procédure
If blnActif = False Then
    Call contrat(intPersonne)            'appel de procédure
    blnCumul = Cumul(intPersonne) 'appel d'une fonction    If blnActif False Or blnCumul True Then
            '   annulation
   
        RunCommand (acCmdUndo)
         MsgBox "saisie interdite "
    Else
            '   sauvegarde
   
        RunCommand (acCmdSaveRecord)
        MsgBox "saisie sauvegardée"
        
    End If
Else
      blnCumul = Cumul(intPersonne)          'appel de fonction
    If blnCumul = True Then
            '   annulation
            RunCommand acCmdUndo            'niveau de l'erreur
          
        MsgBox "saisie interdite "
    Else
            '   sauvegarde
              RunCommand (acCmdSaveRecord)  'niveau de l'erreur
            
        MsgBox "saisie sauvegardée"
        
    End If
End If
End Sub

et voici l'erreur:
"erreur d'execution 2046
la commande "annuler n'est pas disponible pour l'instant
cause possibles:
base de donnée en lecture seule
ou
le type d'objet auquel s'aplique l'action n'est pas sélectionné pour l'instant
ou ne se trouve pas dans le mode actif.
n'utilisez que les commandes ou actions actuellement accessibles
pour cette base de donnée"

Précisions: la base n'est pas en lecture seule et 
le record que j'essaie de sauver ou d'anuler dépend d'une table access
basique
mon formulaire lui contient des contrôles qui vont piocher dans 
des tables attachées.
merci++++
Tikam

cs_EBArtSoft · Answer

Cette discussion a été cloturée. Veuillez lancer une nouvelle discussion si votre question est toujours d'actualite.

Merci

issamglad · Answer

salut j ai la meme erreur 2046 avec la comande sendobject est ce que quelqu un peut me sauver de mon bosse merci

Problème avec l' Utilisation de RunCommand en VBA/Access

2 réponses

Discussions similaires