Tvunget indtastning i flere tekstfelter i formular

jeg vil jo nok tro, at der kun er én måde:

nemmerlig - if og else!

/Benjamin

Du skal bruge if. Her er koden:
If DCount("cbobestilling") = 2 Then
cmdudskriv.Enable = true
End if

Når cbobestilling er lig 2 må man ikke kunne trykke på cmdudskriv når txtdato1, txtdato5 txtdato6 er null

Ok

Hvad jeg ikke fik fortalt var at der skulle komme en msgbox "Der mangler at blive indtastei i den der mangler" :-9

Uening med Henrik13, som taler om at tælle antal poster i tabellen hvor indholdet i cbobestilling er = 2. Jeg opfatter spørgsmålet således at indholdet i cbobestilling i den aktuelle post skal være = 2 hvis betingelsen skal være opfyldt. Har lavet en lille testdb, hvor koden i cbobestilling ser således ud:

If IsNull(Me.txtbox1 And Me.txtbox5 And Me.txtbox6) And Me.cbobestilling = 2 Then
Me.cboudskriv.Visible = False
Else:
Me.cboudskriv.Visible = True
End If

If IsNull(Me.txtbox3 And Me.txtbox4 And Me.txtbox6) And Me.cbobestilling = 1 Then
Me.cboudskriv.Visible = False
Else:
Me.cboudskriv.Visible = True
End If

Så er det kun at copy and paste koden og ændre feltnavnene. Det er såmænd ikke så indviklet. Kan sende hvis du vil. Blot læg din e-mail

If IsNull(Me.txtbox2 And Me.txtbox3 And Me.txtbox4) And Me.cbobestilling = 4 Then
Me.cboudskriv.Visible = False
Else:
Me.cboudskriv.Visible = True
End If

If IsNull(Me.txtbox1 And Me.txtbox5 And Me.txtbox6) And Me.cbobestilling = 2 Then
Me.cboudskriv.Visible = False
MsgBox " Der mangler at blive indtastet i eet eller flere felter."
Else:
Me.cboudskriv.Visible = True
End If

>mugs
Han ville ikke havde nogle If Else sætninger, derfor brugte jeg en ren if sætning.

Ja det er også det jeg tænkte på da jeg kørte hjem, men jeg ville jo gerne være venlig og fortække brugeren hvilken een der mangler at blive udfyldt.
kan du klare det?

mvh TNI

Den her er god nok

If IsNull(Me.txtbox1 And Me.txtbox5 And Me.txtbox6)

Nu skal vi lige have servicen at fortælle hvilken en der mangler

PS. I er godt nok hurtige idag. Jeg er et skærmbillede bag efter :-)

mvh TNI

henrik13 Det er jo ligegyldig, din kode tæller antal felter hvor cboudskrivning er = 2

In the combo boxes (cbobestilling) after update event you can do something like this


cmdudskriv.enabled = True


SELECT Case Me.cbobestilling

Case 1
  If Isnull(me.txtdato3) and Isnull(me.txtdato4) and Isnull(me.txtdato6) Then
    cmdudskriv.enabled = false
  else
    msgbox .....

  end if

Case 2
  If Isnull(me.txtdato1) and Isnull(me.txtdato5) and Isnull(me.txtdato6) Then
    cmdudskriv.enabled = false
  else
    msgbox .....
  end if

Case 4
  If Isnull(me.txtdato2) and Isnull(me.txtdato3) and Isnull(me.txtdato4) Then
    cmdudskriv.enabled = false
  else
    msgbox .....

  end if

Case else

end select

Oops drop the else msgbox... If I understand the question correctly you now need to find which box(es) are empty. I would suggest something like jst telling the user

msgbox "You MUST enter values in box 3, 4 and 6"

Users arent blind, and there are only three boxes in each case :o)

Det er den "Case" jeg søgte.

Jeg druknede i if'er og end if

Nu skal jeg bare tilpasse den.

Jeg takker I er super

PS jeg fordeler pointene lidt. Håber i føler det retferdigt :-)

no problems here, mugs and henrik need them :o)

>>terry
Der tager du fejl. Jeg fik ikke noget.
Vh Henrik

:o( do you want a few?

>>terry  Nej tak, du leverede den eneste brugbare løsning, så du har fortjent dem alle.  :o)

:o)