VBA access probleme de shyntaxe

Résolu/Fermé
[GORe]Donald Messages postés 8 Date d'inscription jeudi 14 octobre 2004 Statut Membre Dernière intervention 9 janvier 2007 - 8 janv. 2007 à 16:16
[GORe]Donald Messages postés 8 Date d'inscription jeudi 14 octobre 2004 Statut Membre Dernière intervention 9 janvier 2007 - 9 janv. 2007 à 17:58
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

3 réponses

blux Messages postés 26753 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 31 mars 2025 3 332
9 janv. 2007 à 13:02
Salut,

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...
0
Utilisateur anonyme
9 janv. 2007 à 14:13
Bonjour,

Une fois la valeur affecté, si tu veux sauvegarder la donnée ?

    Liste1.Value = "1"
    DoCmd.Save
    RefreshDatabaseWindow


Lupin
0
[GORe]Donald Messages postés 8 Date d'inscription jeudi 14 octobre 2004 Statut Membre Dernière intervention 9 janvier 2007
9 janv. 2007 à 17:58
Je vous remercie tous j'ai trouvé la solution tout seul:

If (IsNull[champ]) Then
MsgBox "Remplissez le champ!"
Else
MsgBox "OK"
End If
0