InputBox

[Stenly]

Pozdravljeni

Za vpis datuma bi uporabil InputBox:

Koda: Izberi vse

datum_oddaje_porocila = InputBox("Navedeni datum bo datum oddaje poročila.", "Vpiši/potrdi datum oddaje poročila.", Format(Date, "dd.mm.yyyy"))
    MsgBox datum_oddaje_porocila

Ne vem pa kako naprej v primeru "OK", "Cancel" oz klik na "x". Sedaj se procedura odvije v vsakem primeru.

Hvala za nasvet

[admin]

V primeru, da uporabnik klikne gumb 'Prekini' oz. 'X', vrne funkcija InputBox prazen niz. V programu morate torej samo preveriti ali je funkcija vrnila prazen niz. Če ga je potem je uporabnik akcijo prekinil.

[Stenly]

... ; ja nism nč probu. Res je tak.
Še 1x hvala za res hitr odgovor

Lp

[Rolle]

Zdravo,

Lahko zadevo rešiš tudi tako:

Koda: Izberi vse

datum_oddaje_poročila = InputBox("Vpiši/potrdi datum oddaje poročila: ", , Format(Date, "dd.mm.yyyy"))

                       If MsgBox("Navedeni datum bo datum oddaje poročila: " & datum_oddaje_poročila, vbYesNo) = vbNo Then Exit Sub

Pozdravljeni

Za vpis datuma bi uporabil InputBox:

Koda: Izberi vse

datum_oddaje_porocila = InputBox("Navedeni datum bo datum oddaje poročila.", "Vpiši/potrdi datum oddaje poročila.", Format(Date, "dd.mm.yyyy"))
    MsgBox datum_oddaje_porocila

Ne vem pa kako naprej v primeru "OK", "Cancel" oz klik na "x". Sedaj se procedura odvije v vsakem primeru.

Hvala za nasvet