Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

brisanje zapisa custom message box

[es] :: Access :: brisanje zapisa custom message box

[ Pregleda: 1993 | Odgovora: 10 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.



+1 Profil

icon brisanje zapisa custom message box04.08.2012. u 20:28 - pre 142 meseci
interesuje me kako da dobijem drugaciji message box od ovoga tj. moj koji bi napravio
unesto ovog na slici
Prikačeni fajlovi
 
Odgovor na temu

sapet
Novi Beograd
sluzbenik
Srbija

Član broj: 25598
Poruke: 150
*.cpe.vektor.net.

Sajt: sasapetrovic.bravesites.c..


+2 Profil

icon Re: brisanje zapisa custom message box04.08.2012. u 21:00 - pre 142 meseci
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
 
Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com


+49 Profil

icon Re: brisanje zapisa custom message box04.08.2012. u 21:00 - pre 142 meseci
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

 
Odgovor na temu

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.



+1 Profil

icon Re: brisanje zapisa custom message box04.08.2012. u 21:34 - pre 142 meseci
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?
 
Odgovor na temu

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.



+1 Profil

icon Re: brisanje zapisa custom message box04.08.2012. u 21:40 - pre 142 meseci
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 :)
 
Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com


+49 Profil

icon Re: brisanje zapisa custom message box04.08.2012. u 22:01 - pre 142 meseci
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 :)
 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831



+45 Profil

icon Re: brisanje zapisa custom message box05.08.2012. u 06:12 - pre 142 meseci
Srpski MsgBox – zxzBox.dll
http://www.elitesecurity.org/t383366-0#2454001
http://www.elitesecurity.org/t404259-0#2669874

 
Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com


+49 Profil

icon Re: brisanje zapisa custom message box05.08.2012. u 06:51 - pre 142 meseci
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.
 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831



+45 Profil

icon Re: brisanje zapisa custom message box05.08.2012. u 07:06 - pre 142 meseci
Tačno. To sve lepo piše na linkovima koje sam dao.
 
Odgovor na temu

sapet
Novi Beograd
sluzbenik
Srbija

Član broj: 25598
Poruke: 150
*.cpe.vektor.net.

Sajt: sasapetrovic.bravesites.c..


+2 Profil

icon Re: brisanje zapisa custom message box05.08.2012. u 07:36 - pre 142 meseci
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.
 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831



+45 Profil

icon Re: brisanje zapisa custom message box05.08.2012. u 09:39 - pre 142 meseci
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, ......
 
Odgovor na temu

[es] :: Access :: brisanje zapisa custom message box

[ Pregleda: 1993 | Odgovora: 10 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.