gladiator1024
Messages postés65Date d'inscriptionvendredi 4 janvier 2008StatutMembreDernière intervention 1 février 2011
-
9 juin 2010 à 18:58
gladiator1024
Messages postés65Date d'inscriptionvendredi 4 janvier 2008StatutMembreDernière intervention 1 février 2011
-
10 juin 2010 à 14:00
salut et bon soir a tout
Je Besoin D'un solution de Cette command
le command pour supprimer un registre ment
x = MsgBox("Usted Seguro Eliminar el Registro", vbOKCancel + vbInformation, "Centro Del Atticioanr")
If x = vbOK Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
Select Case Err.Number
Case 3021
MsgBox "Nom de Fournisseur existe déja", vbCritical
Data1.Recordset.CancelUpdate '.CancelUpdate
End Select
Exit Sub
Else
If x = vbCancel Then
Cancel = 1
End If
Data1.Refresh
End If
'On Error Resume Next
'Data1.Recordset.Delete
'Text1.SetFocus
End Sub
merci pour tout