Variable in msgbox ?

[Rommyke]

Hoi allemaal ,

Is het mogelijk om een variable in uw msgbox te plaatsen afkomstig van een selectie uit een keuzelijst ?

Ik vermoed van wel en ik denk ergerns in volgende richting

If MsgBox("U gaat " & (Me.OverzichtAfdelingen.ItemsSelected) & " wissen. Wenst u hiermee verder te gaan?", vbYesNo + vbCritical + vbDefaultButton2, "Warning") = vbYes Then

Maar deze werkt natuurlijk weer niet

Iemand een gedacht ?

 

[Guus2005]

Hoi allemaal ,

Is het mogelijk om een variable in uw msgbox te plaatsen afkomstig van een selectie uit een keuzelijst ?

Ik vermoed van wel en ik denk ergerns in volgende richting

If MsgBox("U gaat " & (Me.OverzichtAfdelingen.ItemsSelected) & " wissen. Wenst u hiermee verder te gaan?", vbYesNo + vbCritical + vbDefaultButton2, "Warning") = vbYes Then

Maar deze werkt natuurlijk weer niet

Iemand een gedacht ?

Bijna goed. Als je meer dan één selectie kan maken in die keuzelijst, dan moet je het resultaat eerst in een variabele stoppen. Of een functie maken die een resultaat teruggeeft.

strSelectie = SelectedItems(Me.OverzichtAfdelingen)
If MsgBox("U gaat " & strSelected & " wissen. Wenst u hiermee verder te gaan?", vbYesNo + vbCritical + vbDefaultButton2, "Warning") = vbYes Then

of

If MsgBox("U gaat " & SelectedItems(Me.OverzichtAfdelingen) & " wissen. Wenst u hiermee verder te gaan?", vbYesNo + vbCritical + vbDefaultButton2, "Warning") = vbYes Then

De functie SelectedItems moet je eerst maken. Doorloop de geselecteerde item in je keuzelijst en geef die terug.


Succes!

 

[Rommyke]

De functie SelectedItems moet je eerst maken. Doorloop de geselecteerde item in je keuzelijst en geef die terug.

Hoi Guus ,

Bij de functie geraak ik er niet uit .

bij onderstaande code waar ik SelectedItems weglaat werkt het wel maar dan krijg ik wel een ID nummer te zien inplaats van de naam

If MsgBox("U gaat " & (Me.OverzichtAfdelingen) & " wissen. Wenst u hiermee verder te gaan?", vbYesNo + vbCritical + vbDefaultButton2, "Warning") = vbYes Then

Deze methode is gevoelig voor fouten zeker ?

 

[Guus2005]

Als je een ID krijgt dan moet je een andere kolom selecteren:

Me.OverzichtAfdelingen.Column(1)

 

[Rommyke]

Hoi Guus ,


Hartelijk bedankt

Had ik eigenlijk moeten weten