VBA Access 2003 problème de variable
Jean Pierre 999
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
jean Pierre 999 -
jean Pierre 999 -
Bonjour,
Débutant en VBA Access 2003 je bute sur un problème qui je pense est simple mais je ne trouve pas la réponse dans les aides.
Le code suivant ne m'ouvre qu'une fiche vide, par contre si j'écris directement le nom dans l'objet ça marche !
On ne peut donc pas utiliser la variable string ?
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
Merci d'une réponse qui m'encouragerait à continuer
Débutant en VBA Access 2003 je bute sur un problème qui je pense est simple mais je ne trouve pas la réponse dans les aides.
Le code suivant ne m'ouvre qu'une fiche vide, par contre si j'écris directement le nom dans l'objet ça marche !
On ne peut donc pas utiliser la variable string ?
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
Merci d'une réponse qui m'encouragerait à continuer
A voir également:
- VBA Access 2003 problème de variable
- Office 2003 - Télécharger - Bureautique
- Vba range avec variable ✓ - Forum VB / VBA
- Impossible de créer le fichier de travail. vérifiez la variable d'environnement temp ✓ - Forum Word
- Access runtime ✓ - Forum Access
- Range avec une Variable ✓ - Forum VB / VBA
9 réponses
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
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
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
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
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
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