A voir également:
- Vb6:c quoi ce msg d'erreur
- Vb6 - Télécharger - Divers Utilitaires
- Split vb6 - Forum VB / VBA
- Vb6 listbox ✓ - Forum VB / VBA
- Vb6 freefile - Forum VB / VBA
- Msflexgrid vb6 - Forum VB / VBA
11 réponses
ok je vé etre plus précise j'ai une form qui fé l'ajout d'un personnel, quand j'insert le nom et je clique sur ajout un msg d'erreur e gestionnaire d'événement du consommateur a appelé une methode réentrante du fournisseur???
(Rs.UpdateBatch) en jaune
(Rs.UpdateBatch) en jaune
salut,
Public Sub Enregistrer(Rs)
'CnEle.BeginTrans
If (VarMAJ = "A") Then
Rs.UpdateBatch
End If
If VarMAJ = "M" Then
Message.Caption = "ÍÐÇÑí"
Message.Label1.ForeColor = 32768
Message.Label1.Caption = "åá ÊÑíÏ ÊÓÌíá åÐå ÇáãÚáæãÇÊ ¿"
Message.Show 1
If RMessage = 1 Then
Rs.UpdateBatch
Rs.MoveNext
Rs.MovePrevious
Else
Rs.CancelUpdate
End If
End If
If (VarMAJ = "S") Then
If Rs.RecordCount <> 0 Then
Message.Caption = "ÍÐÇÑí"
Message.Label1.ForeColor = 192
Message.Label1.Caption = "åá ÃäÊ ãÊÄßÏ ÍÐÝ åÐå ÇáãÚáæãÇÊ ¿"
Message.Show 1
If RMessage = 1 Then
Rs.Delete
Rs.UpdateBatch
End If
End If
End If
'CnEle.CommitTrans
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
C'est un problème que je n'ai jamais rencontré.
J'ai trouvé un article sur le support microsoft qui parle de ça, on ne sait jamais : https://support.microsoft.com/fr-fr/help/195638
Essaie de mettre Rs.Move 0 avant de faire Rs.UpdateBatch
Cdt
C'est un problème que je n'ai jamais rencontré.
J'ai trouvé un article sur le support microsoft qui parle de ça, on ne sait jamais : https://support.microsoft.com/fr-fr/help/195638
Essaie de mettre Rs.Move 0 avant de faire Rs.UpdateBatch
Cdt