Programmtion visual basic

les cinq erreurs viennent d'une action sur la bdd. c'est donc pas ces deux proc là qui genent

Bonjour,
vous allez declarer une variable qui affecte un inputbox dont tu demande à entrer le code, aprés vous allez ecrire une requete="select * from TABLE where code=" & variable , voila la premiere commande , la deusieme , meme chose, mais la requete soit ="select * from TABLE where nom like ' " & variable & " '% "
bonne chance

PS 2eme variable vas retourner la premiere lettre

Bonjour,
vous allez declarer une variable qui affecte un inputbox dont tu demande à entrer le code, aprés vous allez ecrire une requete="select * from TABLE where code=" & variable , voila la premiere commande , la deusieme , meme chose, mais la requete soit ="select * from TABLE where nom like ' " & variable & " %' "
bonne chance

PS 2eme variable vas retourner la premiere lettre

si ta besoin de cours pour débuter la prog contacte moi

salut et merci de m'aider a resoudre mon probleme

je suis en train de créer une application de gestion commercial et dans l'execution de mes formulaires il ya des erreurs que je n'arrive pas a resoudre
1. Erreur d'execution 3704: cette operatio n'est pas autorisée si l'objet est ouvert ou si l'ibjet est fermé
2. Erreur d'execution 3265:Impossible de trouver l'objet dans la collection correspondante au nom ou a a reference ordinale demandée
3. Erreur d'execution 91 : variable objet ou variable bloc with non definie
4. Erreur d'execution -2147217843(80040e4d) echec de l'authentification
5. Erreur d'execution -2147217904(80040e10) aucune valeur donnée pour un ou plusieurs des parametres requis

c'est 2 procedures une pour comboA et une autre pour comboB ce sont des menus deroulants les combos

Private Sub TxtQtéDplA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If TxtQtéDplA.Text <> "" Then

If Not IsNumeric(TxtQtéDplA) Then
MsgBox "veuillez saisir un nombre ", vbInformation
TxtQtéDplA.SelStart = 0
TxtQtéDplA.SelLength = Len(TxtQtéDplA.Text)
TxtQtéDplA.SetFocus
Else
QtéDplA = TxtQtéDplA.Text
CmdDplcA.Enabled = True
CmdDplcA.SetFocus
End If
Else
MsgBox "veuillez saisir un nombre !", vbInformation
TxtQtéDplA.SetFocus
End If
End If

End Sub

Private Sub TxtQtéDplB_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If TxtQtéDplB.Text <> "" Then
QtéDplB = TxtQtéDplB.Text
If Not IsNumeric(QtéDpl) Then
MsgBox "veuillez saisir un nombre pas des lettres", vbInformation
TxtQtéDplB.SelStart = 0
TxtQtéDplB.SelLength = Len(TxtQtéDplB.Text)
TxtQtéDplB.SetFocus
Else
CmdDplcB.SetFocus
End If
Else
MsgBox "veuillez saisir un nombre", vbInformation
TxtQtéDplB.SetFocus
End If
End If

End Sub