Access lire à partir d'un form ds table
Crazybear
-
nabil -
nabil -
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
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
A voir également:
- Access lire à partir d'un form ds table
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Table ascii - Guide
- Lire un fichier epub - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Table des matières word - Guide
1 réponse
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
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