OVH Cloud OVH Cloud

Code sous Access

3 réponses
Avatar
Nicolas
Bonjour j'aimerai rentrer du code sous Access. En fait=20
j'ai un formulaire bas=E9 sur une requ=EAte meuble et j'amerai=20
que au moment ou je rentre le num=E9ro de mon meuble, une=20
case se coche dans un groupe d'option selon que le num=E9ro=20
du meuble soit ou non dans une autre table "meublecasse".
L'algo ressemblerai =E0 :
Si (numeroserie=3Dmeublecasse.numeroserie) alors
Groupeoption=3D"AAA"
Sinon
Groupeoption=3D"ZZZ"
Fin-si

Quelqu'un peut m'aider =E0 faire =E7a parce que je ne connais=20
pas vraiment la syntaxe et de plus je ne sais pas si on=20
peut comme =E7a comparer avec la valeur d'une autre table ou=20
si il faut faire une requete? Merci d'avance.
Nicolas.

3 réponses

Avatar
Pierre CFI
Bonjour
on peut toujours faire (des fois il suffit de trouver l'astuce :o))
mais dans ton cas il faudrait decrire trés precisement le probléme

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Nicolas" a écrit dans le message de news: 037c01c3a37e$6cbe3f40$
Bonjour j'aimerai rentrer du code sous Access. En fait
j'ai un formulaire basé sur une requête meuble et j'amerai
que au moment ou je rentre le numéro de mon meuble, une
case se coche dans un groupe d'option selon que le numéro
du meuble soit ou non dans une autre table "meublecasse".
L'algo ressemblerai à :
Si (numeroserie=meublecasse.numeroserie) alors
Groupeoption="AAA"
Sinon
Groupeoption="ZZZ"
Fin-si

Quelqu'un peut m'aider à faire ça parce que je ne connais
pas vraiment la syntaxe et de plus je ne sais pas si on
peut comme ça comparer avec la valeur d'une autre table ou
si il faut faire une requete? Merci d'avance.
Nicolas.
Avatar
Nicolas
En fait j'ai avancé depuis tout à l'heure et voilà mon
code :
Private Sub NumeroSerie_Enter()
If (NumeroSerie = ???) Then
Respon = "ANTIX"
Else
Respon = "Transporteur"
End If
End Sub

Il me convient sauf que là ou j'ai mis les ??? c'est qu'il
me faut la syntaxe exact pour avoir soit le champ
NumeroSerie dans ma table Meuble soit le champ NumeroSerie
dans ma requête Meublecass. Ce que je voudrais tout
simplement c'est la syntaxe qui me permet de mettre soit
mon champ d'une table soit celui d'une requête. Si tu peux
m'aider, merci d'avance. Nicolas.
Avatar
3stone
Salut,

"Nicolas"
En fait j'ai avancé depuis tout à l'heure et voilà mon
code :
Private Sub NumeroSerie_Enter()
If (NumeroSerie = ???) Then
Respon = "ANTIX"
Else
Respon = "Transporteur"
End If
End Sub

Il me convient sauf que là ou j'ai mis les ??? c'est qu'il
me faut la syntaxe exact pour avoir soit le champ
NumeroSerie dans ma table Meuble soit le champ NumeroSerie
dans ma requête Meublecass. Ce que je voudrais tout
simplement c'est la syntaxe qui me permet de mettre soit
mon champ d'une table soit celui d'une requête. Si tu peux
m'aider, merci d'avance. Nicolas.


Si tu veux remplacer tes " ??? " par une valeur de table ou de requête,
regarde la fonction DLookup qui fait cela très bien.

Dim lngVar as Long
lngVar = DLookup("[LeChamp]","[LaTable ou LaRequête]","Critères")

Le ou les critères, sont à exprimer comme une clause Where...

"[Champ] = 12" ou "[Champ] = 'toto'"

ou encore "[Champ] = " & Me.MonControle


--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------