interesuje me kako da dobijem drugaciji message box od ovoga tj. moj koji bi napravio
unesto ovog na slici
unesto ovog na slici
brisanje zapisa custom message box
Zaključano
Zakačeno
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
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
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
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
Potpis
Citat:
FOX028:
evo ovako bi to mogao odraditi
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
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?
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 :)
naravno sve treba da mi bude na cirilici
i hvala FOX uvek me spases :)
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 :)
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 :)
Potpis
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.
Potpis
Tačno. To sve lepo piše na linkovima koje sam dao.
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.
Control Panel - Regional Options - Advanced - Serbia (Cililic).
Po secanju govorim za Win XP, a i na Win 7 je slicno. Uglavnom je to poenta.
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, ......