Pomozi te mi Molim Vas oko ovoga projekta z VB-u

Pomozi te mi Molim Vas oko ovoga projekta z VB-u

offline
  • Pridružio: 21 Avg 2008
  • Poruke: 160

Imam negdje grešku u kodu,program sam napravio da kad pokrečem word da me pita za šifru i ako 5 puta pogriješim izbaci me iz programa,
program radi u microsoft excellu,ali ne i microsoft wordu,sigurno sam negdje pogriješio kod ali neznam gdje


mycity.rs/must-login.png

sifra je:sifra

tako treba da izgleda i u worldu,ali nemogu nikako da napravim...

MOLIM VAS POMAGAJTE!!!!



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

Pa to je veoma lako, u word sam kopirao iz excela i ubacio sve tvoje kontrole sa imenima koje si im ti dao.

Poboljsao sam tvoj kod na taj nacin sto sam ubacio opciju da ako nezna sifru i zatvori formu, da izadje iz aplikacije.

U formi u Wordu, koja se ovde zove UserForm1 ubaci sledeci kod:


' Autor: rgdrajko Option Explicit Public sifra As String Public ukubrojpokusaja As Integer Public brojac As Integer Public unesenajetacnasifra As Boolean Private Sub ok_btn_Click()     Call provera End Sub Private Sub UserForm_Initialize()     sifra = "sifra"     ukubrojpokusaja = 5     brojac = ukubrojpokusaja End Sub Private Sub UserForm_Terminate()     If unesenajetacnasifra = False Then         Application.Quit     End If End Sub Public Sub provera()     If UserForm1.sifra_txt.Text = sifra Then         MsgBox "Ovo je tacna sifra"         End         Else             MsgBox "sifra nije tacna"             brojac = brojac - 1             UserForm1.pokusaj_lbl.Caption = brojac             If brojac = 0 Then                 Application.Quit             End If     End If End Sub U modulu1 ubaci sledeci kod: Public Sub Macro1()     UserForm1.Show End Sub
Dao sam i Word fajl dole da sve to proveris.

https://www.mycity.rs/must-login.png



offline
  • Pridružio: 21 Avg 2008
  • Poruke: 160

ali kako da kad pokrenem word da me automatski pita za šifru.

Ovako mi udje u word i ja onda moram da pokrenem makro



HVALA!!!!!!!!!!!!!!!!!!

Dopuna: 18 Sep 2008 20:58

zna te li napraviti da pririskom na enter ukucate šifru,da nemorate stisnuti OK?

offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

Ovako:

Sam Word za objekat Document ima dogadjaj Open koji se izvrsava pri ucitavanju dokumenta, u njega ubaci kod koji je bio u modulu bas(bas modul Module1 obrisi ili ga ostavi praznog):

Private Sub Document_Open()
UserForm1.Show
End Sub

U komandnom dugmetu u dogadjaju Enter unesi sledeci kod(da bi mogao da koristis i misa i taster Enter):

Private Sub ok_btn_Enter()
Call provera
End Sub

U UserForm1 u subrutinu Provera moras ubaciti i sledeci kod ispod smanjenja brojaca:

UserForm1.sifra_txt.Text = ""
UserForm1.sifra_txt.SetFocus

Ovaj kod brise neispravnu sifru u tekst kontroli sifra_txt i postavlja fokus na nju.

I to je to.

Ceo novi ispravljeni kod je ovaj:
U ThisDocument upisi:
Private Sub Document_Open()     UserForm1.Show End Sub
U UserForm1 upisi:
' Autor: rgdrajko Option Explicit Public sifra As String Public ukubrojpokusaja As Integer Public brojac As Integer Public unesenajetacnasifra As Boolean Private Sub ok_btn_Enter()     Call Provera End Sub Private Sub UserForm_Initialize()     sifra = "sifra"     ukubrojpokusaja = 5     brojac = ukubrojpokusaja End Sub Private Sub UserForm_Terminate()     If unesenajetacnasifra = False Then         Application.Quit     End If End Sub Public Sub Provera()     If UserForm1.sifra_txt.Text = sifra Then         MsgBox "Ovo je tacna sifra"         End         Else             MsgBox "sifra nije tacna"                         brojac = brojac - 1             UserForm1.pokusaj_lbl.Caption = brojac                         UserForm1.sifra_txt.Text = ""             UserForm1.sifra_txt.SetFocus                                     If brojac = 0 Then                 Application.Quit             End If     End If End Sub


Jedna napomena:

Posto se macro sifra izvrsava odmah po ucitavanju dokumenta, neces moci da udjes u word dokument(niti da prekines izvrsavanje makroa) sve dok ne otkucas ispravnu sifru: sifra.
Sa Alt-F11 ulazis u prozor sa kodom.

Dole ispod sam ti dao i sam Word dokument sa ispravljenim makroom prema tvojim zahtevima.


https://www.mycity.rs/must-login.png

offline
  • Pridružio: 21 Avg 2008
  • Poruke: 160

svaka čast Rajko kralju,najblji si-šta bi mi bez tebe

Ko je trenutno na forumu
 

Ukupno su 1024 korisnika na forumu :: 39 registrovanih, 11 sakrivenih i 974 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 357magnum, _Sale, babaroga, bojank, bokisha253, Brana01, danilopu, doktor1964, drimer, Duh sa sekirom, dule10savic, elenemste, Excalibur13, FOX, galijot, Georgius, goxin, Ivica1102, Kubovac, Luka Blažević, Magistar78, mercedesamg, milos.cbr, Motocar, nemkea71, nextyamb, pacika, pein, procesor, royst33, sevenino, slonic_tonic, Steeeefan, stegonosa, trajkoni018, vlada035, Yugol33, YugoSlav, zdrebac