Access lire à partir d'un form ds table

Question

Bonjour,

J'aimerai vérifier depuis un formulaire si l'enregistrement existe dans la table... mais je ne sais pas comment.... que dois-je mettre à la place des ?????.

Merci d'avance

If Expediteur_numero.????? = "Aucun" Then 'vérifier si il y a ou pas un enregistrement dans la table
'si pas...
Dim Msg, Style, Title

Msg = "Veuillez au minimum ajouter le nom et la localité sinon votre saisie ne sera pas prise en considération" ' Define message.
Style = vbOKOnly + vbExclamation ' Define buttons.
Title = "Attention!" ' Define title.

Response = MsgBox(Msg, Style, Title)

ElseIf Destinataire_numero.DefaultValue = "Aucun" Then

Dim Msgx, Stylex, Titlex

Msg = "Veuillez au minimum ajouter le nom et la localité sinon votre saisie ne sera pas prise en considération" ' Define message.
Style = vbOKOnly + vbExclamation ' Define buttons.
Title = "Attention!" ' Define title.

Response = MsgBox(Msgx, Stylex, Titlex)

Else
'si oui...
DoCmd.RunCommand acCmdRefresh

DoCmd.GoToRecord , , acNewRec

End If

nabil · Answer

salut,
je ne vois pas trop se que tu veux faire avec cette algo, pour rechercher un enregistrement dans une table du doit la parcourir a l'aide d'un recordset. par exemple l'utilisateur saisi un numero expediteur et tu veux verifier s'il existe a se moment la tu crée une fonction verif qui renverra vrai s'il existe et faux s'il n'existe pas

function verif(numero_expediteur as 'ton type de variable', existe as boolean)

dim rs as dao.recordset
dim mabase as dao.recordset

set mabase=currentdb()
set rs=mabase.openrecordset(select * from table where Expediteur_numero=" & numero_expediteur

rs.movelast
if rs.recorcount>0 then 'si il trouve un enregistrement
existe=true
else
existe=false
end if

verif=existe
end sub

voila je sais pas si sa va t'aider

Access lire à partir d'un form ds table

1 réponse

Discussions similaires

Newsletters