[ crnjak1 @ 04.08.2012. 20:28 ] @
interesuje me kako da dobijem drugaciji message box od ovoga tj. moj koji bi napravio
unesto ovog na slici
[ sapet @ 04.08.2012. 21:00 ] @
Dim pitanje As String
Dim naslov As String

'*********pitanje prilikom brisanja

pitanje = "Da li ste sigurni da zelite da obrisete?"
naslov = "Brisanje"

' brise kontakt
DoCmd.Echo True, ""
DoCmd.SetWarnings False

If MsgBox(pitanje, vbQuestion + vbYesNo, naslov) = vbYes Then

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

End If
[ FOX028 @ 04.08.2012. 21:00 ] @
evo ovako bi to mogao odraditi

Code:
Private Sub Command33_Click()

Dim Poruka As String
On Error GoTo Err_Command33_Click

    DoCmd.SetWarnings False     'Iskljucuje upozorenje o brisanju zapisa
    
    'Mozes ubaciti svoju poruku
    Poruka = MsgBox("Zelite li da izbrisete trenutni zapis?", _
                    vbYesNo, "Brisanje zapisa")

    'Ako je u poruci kliknuto na Yes onda brise zapis u suprotnom procedura se prekida
    If Poruka = vbYes Then
        DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdDeleteRecord
    End If
    
    'Ovde se ponovo ukljucuje poruka o upozorenju
    DoCmd.SetWarnings True
Exit_Command33_Click:
    Exit Sub

Err_Command33_Click:
    MsgBox Err.Description
    Resume Exit_Command33_Click
End Sub
[ crnjak1 @ 04.08.2012. 21:34 ] @
Citat:
FOX028:
evo ovako bi to mogao odraditi

Code:
Private Sub Command33_Click()

Dim Poruka As String
On Error GoTo Err_Command33_Click

    DoCmd.SetWarnings False     'Iskljucuje upozorenje o brisanju zapisa
    
    'Mozes ubaciti svoju poruku
    Poruka = MsgBox("Zelite li da izbrisete trenutni zapis?", _
                    vbYesNo, "Brisanje zapisa")

    'Ako je u poruci kliknuto na Yes onda brise zapis u suprotnom procedura se prekida
    If Poruka = vbYes Then
        DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdDeleteRecord
    End If
    
    'Ovde se ponovo ukljucuje poruka o upozorenju
    DoCmd.SetWarnings True
Exit_Command33_Click:
    Exit Sub

Err_Command33_Click:
    MsgBox Err.Description
    Resume Exit_Command33_Click
End Sub


implementirano i radi

jel znas kako recimo da se cirilica koristi u VBA meni kada kucam izbacuje kuke i motike?
[ crnjak1 @ 04.08.2012. 21:40 ] @
hmmm ali jel moze da umesto "yes" i "no" stoji "da" i "ne"?
naravno sve treba da mi bude na cirilici

i hvala FOX uvek me spases :)
[ FOX028 @ 04.08.2012. 22:01 ] @
Koliko ja znam ne moze se koristiti cirilica a cak sta vise nije ni preporucljivo.
Sto se tice ovog drugog pitanja, u samom Message Box-u mislim da ne moze, ali mozes napraviti formu koja ce ti predstavljati taj Message Box i u njoj pitanje ispisati cirilicom.
Pokusaj sam da odradis to pa ako negde zapnes ti navrati opet :)
[ Getsbi @ 05.08.2012. 06:12 ] @
Srpski MsgBox – zxzBox.dll
http://www.elitesecurity.org/t383366-0#2454001
http://www.elitesecurity.org/t404259-0#2669874
[ FOX028 @ 05.08.2012. 06:51 ] @
Ovo je sve uredu ako ce se aplikacija koristiti samo na jednom racunaru, ali sta ako bude pokusao da je koristi i na nekom drugom racunaru, morace i na njemu ubaciti tj dll inace nece raditi kako treba. Zato mislim da je bolje resenje da napravi formu u obliku MsgBox-a.
[ Getsbi @ 05.08.2012. 07:06 ] @
Tačno. To sve lepo piše na linkovima koje sam dao.
[ sapet @ 05.08.2012. 07:36 ] @
Da bi se cirilica videla u VBA (razumeo sam da se ne vidi) potrebno je izvrsiti sledece podesavanje:
Control Panel - Regional Options - Advanced - Serbia (Cililic).
Po secanju govorim za Win XP, a i na Win 7 je slicno. Uglavnom je to poenta.
[ Getsbi @ 05.08.2012. 09:39 ] @
Lepo rekao FOX28. Ćirilica u VBA nije moguća ni preporučljiva. Razlog je što je VBA kao i najveći broj programskih jezika nastao iz engleskog jezika (26 znakova) i koristi sintaksu vezanu za USA 101 tastaturu. Zagrade, znaci navoda, kose crte, ......