Opgelost Userform

[kattenbe]

Heren goede avond zie bijgaand aangepaste userform.

Ik zou graag zien, voordat een gebruiker gegevens gaat invoeren in het userform, dat hij of zij eerst op de cmdNew knop drukt (dit omdat onder deze knop ook weer opdrachten gebruikt zullen gaan worden) voordat men verder kan gaan met invoeren van gegevens.

Wanneer een gebruiker toch direct begint met het invoeren van gegevens in een Combobox en/of TextBox1 zou ik graag zien dat de gebruiker dmv een MsgBox daarop gewezen wordt.

Ik hoopte dat deze macro dat kan maar dat krijg ik niet werkend.

If cmdNew.Enabled = false and  If CboDgdl.Text = "" Then
  MsgBox "KLIK EERST OP DE RODE BALK"
  cmdNew.SetFocus
  Exit Sub
End If

Kan iemand dit voor mij oplossen?

 

[AHulpje]

Zet in design mode de text- en comboboxen Enabled = False en na drukken op de rode knop Enabled = True.

Of plak dit achter je formulier:

Dim blnNewPressed As Boolean

Private Sub CboArtikel_Change()
    If Not NewPressed Then Exit Sub
End Sub

Private Sub CboDgdl_Change()
    If Not NewPressed Then Exit Sub
End Sub

Private Sub cmdNew_Click()
    blnpressed = True
End Sub

Private Sub TextBox1_Change()
    If Not NewPressed Then Exit Sub
End Sub

Private Sub TextBox2_Change()
    If Not NewPressed Then Exit Sub
End Sub

Private Sub TextBox3_Change()
    If Not NewPressed Then Exit Sub
End Sub

Function NewPressed()
    If Not blnNewPressed Then
        MsgBox "Druk eerst op New", vbCritical, "Waarschuwing"
    End If
End Function

 

[emields]

je kan het natuurlijk ook zo doen, alhoewel ik het nut niet van inzie.

 

[kattenbe]

Hartelijk dank, emields, het werkt helemaal naar behoren.