Dim txtCtrl As New Collection
txtCtrl.Add (txtNom.Text)
txtCtrl.Add (txtAnnee.Text)
txtCtrl.Add (txtRegions.Text)
txtCtrl.Add (txtCouleur.Text)
txtCtrl.Add (txtType.Text)
If txtCtrl = "" Then
adoVins.Recordset.CancelUpdate
Else
adoVins.Recordset.Update
End If
en fait lorsque j'appuie sur le bouton ajouter, si les champs sont pas tous remplis ca fait rien
mais si tout est remplis ca ajoute l'entree dans la base de donne
qq pourait il me dire ou j'ai fait une erreur merci
oui c'est tout a fait ca je veut cree un nouvel enresigrement
donc je met :
Dim txtCtrl As New Collection
txtCtrl.Add (txtNom.Text)
txtCtrl.Add (txtAnnee.Text)
txtCtrl.Add (txtRegions.Text)
txtCtrl.Add (txtCouleur.Text)
txtCtrl.Add (txtType.Text)
If txtCtrl = "" Then
adoVins.Recordset.CancelUpdate
Else
adovins.recorser.addnew
adoVins.Recordset.Update
End If
End Sub
c'est bon comme ca ???
mais j'ai tjrs l'erreur la :
cet argument n'es pas facultafif :
il me m'indique ca :
if txtctrl ="" then
comment je corrige ca ?
Vous n’avez pas trouvé la réponse que vous recherchez ?