A voir également:
- Programmtion visual basic
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
6 réponses
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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
