sanndr
Messages postés37Date d'inscriptionjeudi 21 octobre 2004StatutMembreDernière intervention13 novembre 2010
-
6 nov. 2010 à 12:54
sanndr
Messages postés37Date d'inscriptionjeudi 21 octobre 2004StatutMembreDernière intervention13 novembre 2010
-
13 nov. 2010 à 10:37
Bonjour !
Je suis un débutant en VB6 et access et je cherche à controler la saisie d'un utilisateur ( zone de saisie) pour savoir si elle n'existe pas déjà dans ma base access.
Je suppose qu'il faut imbriquer une boucle avant d'effectuer l'enregistrement, mais je ne sais pas ou , ni comment !!!
Public rs As Recordset
Public sql As String
Dim outil As String
Dim datesysteme As Date
Dim rep As Integer
sql = "select * from outillages 'on selection tous les champs de la table"
Set db = OpenDatabase("D:\nestor\programme VB\emprunt1.mdb")
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
datesysteme = Date
outil = UCase(txt_nom_outil) 'récupére le nom de la cellule et passe en Majuscule avec la fonction " Ucase "
If outil <> "" Then
'demande de confirmation de l'utilisateur
reponse = MsgBox("Voulez-vous confirmer votre enregistrer :" & outil, 292, "Confirmation") 'test de la reponse
If reponse = 6 Then
'pour enregistrer une saisie dans la table
rs.AddNew ' on va ajouter un enregistrement au recordset
rs.Fields("date création") = datesysteme
rs.Fields("nom outil") = txt_nom_outil ' on ajoute les données dans le champ de la table
rs.Update ' une fois les valeurs définies, on met à jour notre Recodset
rs.Close
ReINDEX
Else
Unload Me
Set rs = Nothing 'Libération de la mémoire allouée
End If
Else
rep = MsgBox("Vous-devez saisir un outil !!! ", 16, "Erreur")
End If
Voila ! Je vous remercie pour votre aide !
nesnes
A voir également:
Comment controler une saisie d'un utilisateur dans une base access
sanndr
Messages postés37Date d'inscriptionjeudi 21 octobre 2004StatutMembreDernière intervention13 novembre 2010 10 nov. 2010 à 17:12
oui ! en faite je crois qu'il ne trouve aucun enregistrement, car quand je fais un test sur EOF ou BOF il sort de ma boucle immédiatement, quand il passe sur le movfirst il beug !
sanndr
Messages postés37Date d'inscriptionjeudi 21 octobre 2004StatutMembreDernière intervention13 novembre 2010 10 nov. 2010 à 18:40
n'oublis pas j'ai utilisé access 2007 et j'ai convertie la base en 2000. c'est peut être la le probléme !
ce qui me surprend c'est que quand je fais un update cela fonction, mais pas en lecture !!!
dnas mon projet VB il y a peut être des conflis dans mes préférences : DAO 3.51 object library ... etc... !!!
si tu as une adresse email, je peu t'envoyer mas base , ainsi que le code complet !