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
Hvala za nasvet
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
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
Stenly napisal/-a:Pozdravljeni
Za vpis datuma bi uporabil InputBox:Ne vem pa kako naprej v primeru "OK", "Cancel" oz klik na "x". Sedaj se procedura odvije v vsakem primeru.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
Hvala za nasvet