msgbox met keuzevak of aanvink vakjes

[Avalondra]

Ik heb een vraag.

Is het mogenlijk om met een msgbox een keuze vak of van die aanvink vakjes te krijgen in plaats van een open invulvak???

dus dat je een popup berichtje krijg met een keuzevak of vinkvakjes in plaats van een lege balk om tekst in in te vullen.

Greetz AvA

 

[Avalondra]

Ik bedoel dus eigenlijk een versie zoals:

msgbox ()
inputbox ()

maar dan dus met een keuzevak of aanvink vakjes.


Greetz AvA

 

[Wigi]

Neen, dat kan niet.

Je zal een (kleine) userform moeten ontwerpen met de nodige controls daarop zoals checkboxes of option buttons.

Dit kan je ontwerpen zoals je wil, dus bvb. zeer gelijkaardig aan een MsgBox of een Inputbox.

Voordeel is dat je met een eigen userform veel meer mogelijkheden hebt.

Wigi

 

[Avalondra]

Waar kan ik dan die useforms maken (ik heb er nog NOOIT mee gewerkt)


Greetz AvA

 

[Wigi]

In de VBEditor (VBA dus) klik je op Invoegen > Userform.

Druk ook F4 om eigenschappen te kunnen lezen / instellen.

Voor de rest, zie: http://www.contextures.com/xlUserForm01.html

Wigi

 

[Avalondra]

Mercie ik denk dat na een tijde wat zwoegen ik het gewenste resultaat kan verkrijgen.


Greetz AvA


ps.ik was net blij dat ik niet naar school hoefde om te leren moet ik hier weer voor gaan leren lol
maar dit is tenminste leuk om te doen.

 

[Wigi]

Succes ermee.

Om de haverklap verschijnen er bestandjes met userforms op het forum, dus duik daar ook zeker eens in. :thumb:

 

[Avalondra]

Zal ik doen.

mercie voor de tip

Greetz AvA

 

[Avalondra]

@ Wigi

ik ben op die site gaan kijken en ben dat voorbeeld gaan maken.
(lukt me aardig) maar 1 ding lukt me niet echt.

ik krijg constant een foutmelding bij dit stuk.

If Trim(Me.txtPart.Value) = "" Then

hij arceert dan het .value gedeelte

hier is de voledige code.

Private Sub cmdadd_Click()

Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("partsdata")

'find first empty row in database
irow = ws.Cells(Rows.Count, 1) _
  .End(x1up).Offset(1, 0).Row
 
'check for part number
If Trim(Me.txtPart.Value) = "" Then
Me.txtPart.SetFocus
MsgBox "please enter part number."
Exit Sub

End If

'copy the data to the database
ws.Cells(irow, 1).Value = Me.txtPart.Value
ws.Cells(irow, 2).Value = Me.txtloc.Value
ws.Cells(irow, 3).Value = Me.txtdate.Value
ws.Cells(irow, 4).Value = Me.txtqty.Value

'clear the data
Me.txtPart.Value = ""
Me.txtloc.Value = ""
Me.txtdate.Value = ""
Me.txtqty.Value = ""
Me.txtPart.SetFocus

End Sub

weet iemand miss wat daar fout is???


Greetz AvA

 

[Wigi]

De Text eigenschap gebruik je bij een testbox:

Me.txtPart.Text

 

[Avalondra]

ow ok

ik heb namelijk gewoon gedaan wat er op de site stond en bij een vriend werkte het wel
maar bij mij niet.


Greetz AvA

 

[Avalondra]

Hij geeft dan de fout melding.


compileerfout:

kan de methode of het gegevens lid niet vinden.



kan dat zijn omdat ik 2007 en die handleiding in 2003 staat???


GreetZ AvA