VBA Access liste déroulante
Bonjour,
Pb en VBA sur Access sur un champ de liste déroulante
Private Sub Étiquette35_Click()
Dim Salaires As DAO.Database
Dim couts_horaires As DAO.Database
Dim dprenom_nom As DAO.Recordset
DoCmd.OpenForm "couts_horaires"
DoCmd.OpenForm "Salaires"
Set Salaires = CurrentDb
Set dprenom_nom = Salaires.OpenRecordset("Salaires")
dprenom_nom.MoveFirst
MsgBox "nom = " & dprenom_nom & ""
End sub
Salaires et couts_horaires sont 2 formulaires
dprenom_nom est un champ de liste déroulante
Il refuse de me positionner sur le 1er enregistrement et d'écrire dans la MsgBox le nom ???
Merci
Pb en VBA sur Access sur un champ de liste déroulante
Private Sub Étiquette35_Click()
Dim Salaires As DAO.Database
Dim couts_horaires As DAO.Database
Dim dprenom_nom As DAO.Recordset
DoCmd.OpenForm "couts_horaires"
DoCmd.OpenForm "Salaires"
Set Salaires = CurrentDb
Set dprenom_nom = Salaires.OpenRecordset("Salaires")
dprenom_nom.MoveFirst
MsgBox "nom = " & dprenom_nom & ""
End sub
Salaires et couts_horaires sont 2 formulaires
dprenom_nom est un champ de liste déroulante
Il refuse de me positionner sur le 1er enregistrement et d'écrire dans la MsgBox le nom ???
Merci
Configuration: Windows XP Firefox 2.0.0.15
2 réponses
-
ModérateurSalut,
l'erreur est sur le positionnement ou sur l'affichage ?
Car pour l'affichage, c'est normal : un recordset représente une ligne d'une table. Dans ton cas, il ne sait pas afficher cette ligne. Il faut donc afficher les colonnes de la ligne.
msgbox "nom = " & dprenom_nom!nom_de_la_colonne
-
merci ç a marche
