VBA access probleme de shyntaxe
Résolu
Bonjour,
J'ai un problème sur la programation VBA dans le programme ACCESS.
Il faudrait que je réccupere des donnée saisies (du texte) dans un edit qui fait parti d'un formulaire.
ACCESS 2003
Par exemple :
dim strdocname As String
dim bdrdocname As String
bdrdocname="exemple"
bdrdocname="exemple2"
If (edit="") Then
Open strdocname:
Else
Open bdrdocname
End If
Comment fait-on pour le edit?
Merci et aurevoir
J'ai un problème sur la programation VBA dans le programme ACCESS.
Il faudrait que je réccupere des donnée saisies (du texte) dans un edit qui fait parti d'un formulaire.
ACCESS 2003
Par exemple :
dim strdocname As String
dim bdrdocname As String
bdrdocname="exemple"
bdrdocname="exemple2"
If (edit="") Then
Open strdocname:
Else
Open bdrdocname
End If
Comment fait-on pour le edit?
Merci et aurevoir
Configuration: Windows XP Firefox 2.0.0.1
3 réponses
-
ModérateurSalut,
je ne connais pas la notion d"edit" dans un formulaire...
Si tu veux récupérer la valeur d'une zone d'un formulaire (textbox, listbox, combobox, case à cocher...), la syntaxe est simple :
nom_de_la_zone.value
Ex :IF Liste1.Value = "1" THEN...
-
Bonjour,
Une fois la valeur affecté, si tu veux sauvegarder la donnée ?
Liste1.Value = "1" DoCmd.Save RefreshDatabaseWindow
Lupin -
Je vous remercie tous j'ai trouvé la solution tout seul:
If (IsNull[champ]) Then
MsgBox "Remplissez le champ!"
Else
MsgBox "OK"
End If
