VBA Access 2003 problème de variable
Fermé
Jean Pierre 999
Messages postés
1
Date d'inscription
jeudi 9 septembre 2010
Statut
Membre
Dernière intervention
9 septembre 2010
-
9 sept. 2010 à 10:52
jean Pierre 999 - 12 sept. 2010 à 11:44
jean Pierre 999 - 12 sept. 2010 à 11:44
A voir également:
- VBA Access 2003 problème de variable
- Incompatibilité de type vba ✓ - Forum Programmation
- Find vba - Astuces et Solutions
- Erreur 1004 vba ✓ - Forum VB / VBA
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- You don't have permission to access this resource ✓ - Forum Réseaux sociaux
9 réponses
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
9 sept. 2010 à 10:57
9 sept. 2010 à 10:57
Bonjour,
On ne peut donc pas utiliser la variable string ?
Bien heureusement que oui ... mais il faut bien l'intégrer dans la chaîne. Pas toujours évident pour un débutant, mais qui devient vite un automatisme avec la pratique.
DoCmd.OpenForm stAffichage, , , "Nom = ' " & stClient & " ' "
;o)
On ne peut donc pas utiliser la variable string ?
Bien heureusement que oui ... mais il faut bien l'intégrer dans la chaîne. Pas toujours évident pour un débutant, mais qui devient vite un automatisme avec la pratique.
DoCmd.OpenForm stAffichage, , , "Nom = ' " & stClient & " ' "
;o)
Bonsoir Polux31,
Merci pour cette réponse rapide à mon petit problème.
J'ai cependant un souci, la formule que tu me soumets donne le même résultat, c'est à dire l'appel d'une fiche vierge !
C'est : DoCmd.OpenForm stAffichage, , , "Nom = ' " & stClient & " ' "
Il semble que cette variable string ne soit pas reconnue
Bonne soirée
Jean Pierre 99
Merci pour cette réponse rapide à mon petit problème.
J'ai cependant un souci, la formule que tu me soumets donne le même résultat, c'est à dire l'appel d'une fiche vierge !
C'est : DoCmd.OpenForm stAffichage, , , "Nom = ' " & stClient & " ' "
Il semble que cette variable string ne soit pas reconnue
Bonne soirée
Jean Pierre 99
f894009
Messages postés
17187
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 mai 2024
1 704
11 sept. 2010 à 09:11
11 sept. 2010 à 09:11
Bonjour,
DoCmd.OpenForm stAffichage, , , "Nom =" & " ' " & stClient & " ' "
A suivre
DoCmd.OpenForm stAffichage, , , "Nom =" & " ' " & stClient & " ' "
A suivre
Bonjour et merci f894009,
J'ai l'impression d'être maudit car
Private Sub Ouvrir_fiches_Click()
Dim stAffichage As String
Dim stClient As String
stClient = "Durand"
stAffichage = "Affichage fiche"
DoCmd.OpenForm stAffichage, , , "Nom =" & " ' " & stClient & " ' "
End Sub
donne également l'ouverture d'une fiche vide !
J'ai l'impression d'être maudit car
Private Sub Ouvrir_fiches_Click()
Dim stAffichage As String
Dim stClient As String
stClient = "Durand"
stAffichage = "Affichage fiche"
DoCmd.OpenForm stAffichage, , , "Nom =" & " ' " & stClient & " ' "
End Sub
donne également l'ouverture d'une fiche vide !
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
f894009
Messages postés
17187
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 mai 2024
1 704
12 sept. 2010 à 10:52
12 sept. 2010 à 10:52
Bonjour,
Le code ci-dessous a été écrit par l'assistant bouton de commande-
opération sur formulaire
ouverture formulaire
Choix du formulaire
affichage info spécifiques
etc....
Texte8 est la zone de texte qui est renseignée pour l'info sélectionnée dans le formulaire de départ où vous avez mis le bouton Ouvrir_Fiches.
Private Sub Ouvrir_Fiches_Click()
On Error GoTo Err_Ouvrir_Fiches_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Affichage fiche"
stLinkCriteria = "[Nom]=" & "'" & Me![Texte8] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Ouvrir_Fiches_Click:
Exit Sub
Err_Ouvrir_Fiches_Click:
MsgBox Err.Description
Resume Exit_Ouvrir_Fiches_Click
End Sub
Et ça marche. Vous avez peut-être un problème à la création de vos formulaires.
A suivre
Le code ci-dessous a été écrit par l'assistant bouton de commande-
opération sur formulaire
ouverture formulaire
Choix du formulaire
affichage info spécifiques
etc....
Texte8 est la zone de texte qui est renseignée pour l'info sélectionnée dans le formulaire de départ où vous avez mis le bouton Ouvrir_Fiches.
Private Sub Ouvrir_Fiches_Click()
On Error GoTo Err_Ouvrir_Fiches_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Affichage fiche"
stLinkCriteria = "[Nom]=" & "'" & Me![Texte8] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Ouvrir_Fiches_Click:
Exit Sub
Err_Ouvrir_Fiches_Click:
MsgBox Err.Description
Resume Exit_Ouvrir_Fiches_Click
End Sub
Et ça marche. Vous avez peut-être un problème à la création de vos formulaires.
A suivre
f894009
Messages postés
17187
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 mai 2024
1 704
12 sept. 2010 à 10:54
12 sept. 2010 à 10:54
Bonjour,
Le code ci-dessous a été écrit par l'assistant bouton de commande-
opération sur formulaire
ouverture formulaire
Choix du formulaire
affichage info spécifiques
etc....
Texte8 est la zone de texte qui est renseignée pour l'info sélectionnée dans le formulaire de départ où vous avez mis le bouton Ouvrir_Fiches.
Private Sub Ouvrir_Fiches_Click()
On Error GoTo Err_Ouvrir_Fiches_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Affichage fiche"
stLinkCriteria = "[Nom]=" & "'" & Me![Texte8] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Ouvrir_Fiches_Click:
Exit Sub
Err_Ouvrir_Fiches_Click:
MsgBox Err.Description
Resume Exit_Ouvrir_Fiches_Click
End Sub
Et ça marche. Vous avez peut-être un problème à la création de vos formulaires.
A suivre
Le code ci-dessous a été écrit par l'assistant bouton de commande-
opération sur formulaire
ouverture formulaire
Choix du formulaire
affichage info spécifiques
etc....
Texte8 est la zone de texte qui est renseignée pour l'info sélectionnée dans le formulaire de départ où vous avez mis le bouton Ouvrir_Fiches.
Private Sub Ouvrir_Fiches_Click()
On Error GoTo Err_Ouvrir_Fiches_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Affichage fiche"
stLinkCriteria = "[Nom]=" & "'" & Me![Texte8] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Ouvrir_Fiches_Click:
Exit Sub
Err_Ouvrir_Fiches_Click:
MsgBox Err.Description
Resume Exit_Ouvrir_Fiches_Click
End Sub
Et ça marche. Vous avez peut-être un problème à la création de vos formulaires.
A suivre
f894009
Messages postés
17187
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 mai 2024
1 704
12 sept. 2010 à 10:54
12 sept. 2010 à 10:54
Bonjour,
Le code ci-dessous a été écrit par l'assistant bouton de commande-
opération sur formulaire
ouverture formulaire
Choix du formulaire
affichage info spécifiques
etc....
Texte8 est la zone de texte qui est renseignée pour l'info sélectionnée dans le formulaire de départ où vous avez mis le bouton Ouvrir_Fiches.
Private Sub Ouvrir_Fiches_Click()
On Error GoTo Err_Ouvrir_Fiches_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Affichage fiche"
stLinkCriteria = "[Nom]=" & "'" & Me![Texte8] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Ouvrir_Fiches_Click:
Exit Sub
Err_Ouvrir_Fiches_Click:
MsgBox Err.Description
Resume Exit_Ouvrir_Fiches_Click
End Sub
Et ça marche. Vous avez peut-être un problème à la création de vos formulaires.
A suivre
Le code ci-dessous a été écrit par l'assistant bouton de commande-
opération sur formulaire
ouverture formulaire
Choix du formulaire
affichage info spécifiques
etc....
Texte8 est la zone de texte qui est renseignée pour l'info sélectionnée dans le formulaire de départ où vous avez mis le bouton Ouvrir_Fiches.
Private Sub Ouvrir_Fiches_Click()
On Error GoTo Err_Ouvrir_Fiches_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Affichage fiche"
stLinkCriteria = "[Nom]=" & "'" & Me![Texte8] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Ouvrir_Fiches_Click:
Exit Sub
Err_Ouvrir_Fiches_Click:
MsgBox Err.Description
Resume Exit_Ouvrir_Fiches_Click
End Sub
Et ça marche. Vous avez peut-être un problème à la création de vos formulaires.
A suivre
f894009
Messages postés
17187
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 mai 2024
1 704
12 sept. 2010 à 10:56
12 sept. 2010 à 10:56
Bonjour,
Le code ci-dessous a été écrit par l'assistant bouton de commande-
opération sur formulaire
ouverture formulaire
Choix du formulaire
affichage info spécifiques
etc....
Texte8 est la zone de texte qui est renseignée pour l'info sélectionnée dans le formulaire de départ où vous avez mis le bouton Ouvrir_Fiches.
Private Sub Ouvrir_Fiches_Click()
On Error GoTo Err_Ouvrir_Fiches_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Affichage fiche"
stLinkCriteria = "[Nom]=" & "'" & Me![Texte8] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Ouvrir_Fiches_Click:
Exit Sub
Err_Ouvrir_Fiches_Click:
MsgBox Err.Description
Resume Exit_Ouvrir_Fiches_Click
End Sub
Et ça marche. Vous avez peut-être un problème à la création de vos formulaires.
A suivre
Le code ci-dessous a été écrit par l'assistant bouton de commande-
opération sur formulaire
ouverture formulaire
Choix du formulaire
affichage info spécifiques
etc....
Texte8 est la zone de texte qui est renseignée pour l'info sélectionnée dans le formulaire de départ où vous avez mis le bouton Ouvrir_Fiches.
Private Sub Ouvrir_Fiches_Click()
On Error GoTo Err_Ouvrir_Fiches_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Affichage fiche"
stLinkCriteria = "[Nom]=" & "'" & Me![Texte8] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Ouvrir_Fiches_Click:
Exit Sub
Err_Ouvrir_Fiches_Click:
MsgBox Err.Description
Resume Exit_Ouvrir_Fiches_Click
End Sub
Et ça marche. Vous avez peut-être un problème à la création de vos formulaires.
A suivre
