Skorektnenie IF podmienky v Makru Vyřešeno

[tsibee]

Ahojte :),

opäť idem po radu/pomoc.
Snažím sa nejak n.u. nejak spojazdniť t.j. ak comboboxe je výbratá možnosť "ost.plat.prek." a rozdiel medzi TextBoxom 2 a TextBoxom 1 je väčší ako 07:45 hod., tak hodí Msg ...

If ComboBox1.Text = "ost.plat.prek." And (TextBox2.Value - TextBox1.Value > "07:45") Then
MsgBox = "nepovolene"

Skúsil by niekto?

[Reklama]

[Grimm]

Vůbec sem to netestoval je to střela od boku.

If ComboBox1.Text = "ost.plat.prek." And CDate(CDate(TextBox2.Value) - CDate(TextBox1.Value)) > CDate("07:45") Then

[tsibee]

EE, to asi nebude ono :) .

[elninoslov]

Neviem, o čo Vám tam presne ide, ale toto splní tú Vašu podmienku:

Kód: Vybrat vše

If ComboBox1.Text = "ost.plat.prek." And IsDate(TextBox2.Text) And IsDate(TextBox1.Text) Then
If TimeValue(TextBox2.Text) - TimeValue(TextBox1.Text) > TimeValue("07:45") Then MsgBox "nepovoleny rozsah"
End If

[tsibee]

Ďakujem, super :).
A je možné tiež napr. niečo také, že ak Combox1.Text = PN, tak do textBox1 a 2 nepustí zapisovať údaj?

Vopred vďaka.

[elninoslov]

Kód: Vybrat vše

Private Sub ComboBox1_Change()
  If ComboBox1.Text = "PN" Then
    TextBox1.Enabled = False: TextBox2.Enabled = False
  Else
    TextBox1.Enabled = True: TextBox2.Enabled = True
  End If
End Sub

[tsibee]

Geniálne. Ďakujem. :)