[es] - Kako da napravim da command button moze da se aktivira tek kada se popune sva trazena polja?

Sergio Mrav
Srdjan Mraovic
Beograd

Član broj: 150033
Poruke: 36
213.240.37.*

Profil

Kako da napravim da command button moze da se aktivira tek kada se popune sva trazena polja?

^{21.08.2009. u 17:45 - pre 178 meseci}

Znaci, treba da popunim neku formu na kojoj nije neophodno da budu popunjena sva polja. Samo su odredjena obavezna. Problem je u tome, sto ako korisnik slucajno preskoci tu formu i ostavi je praznu i nastavi dalje da radi meni pravi totalni kurslus u programu...

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: Kako da napravim da command button moze da se aktivira tek kada se popune sva trazena polja?

^{21.08.2009. u 18:34 - pre 178 meseci}

Na događaj On Click command button-a uneseš za svako obavzno polje ograničenje tipa:

If IsNull(Me![TvojeObaveznoPolje]) Then
MsgBox "Morate uneti vrednost", vbCritical, "Pažnja"
Me![TvojeObaveznoPolje].SetFocus
End If

Tako se VBA kod koji sledi iza neće izvršavati dogod korisnik ne unese vrednost.

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu

Sergio Mrav
Srdjan Mraovic
Beograd

Član broj: 150033
Poruke: 36
213.240.37.*

Profil

Re: Kako da napravim da command button moze da se aktivira tek kada se popune sva trazena polja?

^{21.08.2009. u 19:02 - pre 178 meseci}

To bi trebalo da je to, ali taj code posle if se izvrsava... Znaci pritisnem OK i posle toga nastavi po svom...

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: Kako da napravim da command button moze da se aktivira tek kada se popune sva trazena polja?

^{21.08.2009. u 19:17 - pre 178 meseci}

Da. Taj kod staviš odmah iza deklaracija, a pre izvršenja operacija koje zavise od unetih vrednosti.

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu

Sergio Mrav
Srdjan Mraovic
Beograd

Član broj: 150033
Poruke: 36
213.240.37.*

Profil

Re: Kako da napravim da command button moze da se aktivira tek kada se popune sva trazena polja?

^{21.08.2009. u 19:32 - pre 178 meseci}

Stavio sam tako...

Evo coda u mom programicicu:

Private Sub Forma_Isprave_Click()
On Error GoTo Err_Forma_Isprave_Click

Dim stDocName As String
Dim stLinkCriteria As String

If IsNull(Me![Prezime]) Then
MsgBox "Podaci nisu ispravno unešeni", vbCritical, "Greška"
Me![Prezime].SetFocus
End If

DoCmd.Close acForm, "frmTrazeniPodaci_OsnovniPodaci"
stDocName = "frmTrazeniPodaci_Isprave"
DoCmd.OpenForm stDocName, , , , acFormAdd

Exit_Forma_Isprave_Click:
Exit Sub

Err_Forma_Isprave_Click:
MsgBox Er.Description
Resume Exit_Forma_Isprave_Click

End Sub

... ali opet nece...

Javi da nesto fali, ali posle toga opet otvori novu formu..

Odgovor na temu

Scelle
Slavko Šćekić
Student, Računarski fakultet
Beograd

Član broj: 151761
Poruke: 174
95.155.29.*

Profil

Re: Kako da napravim da command button moze da se aktivira tek kada se popune sva trazena polja?

^{21.08.2009. u 19:54 - pre 178 meseci}

Ispod

Code:
Me![Prezime].SetFocus

dodaj samo

Code:
Exit Sub

"Takozvani praktični ljudi bili bi korisni i zasluživali bi svaku pohvalu i poštovanje kad od te svoje praktičnosti ne bi hteli da naprave smisao života i razlog svoga opstanka, opravdanje za podjarmljivanje i terorisanje svih onih koji su lišeni toga praktičnog smisla, ali zato stvoreni za druge, možda više i bolje podvige."

Ivo Andric

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: Kako da napravim da command button moze da se aktivira tek kada se popune sva trazena polja?

^{21.08.2009. u 20:04 - pre 178 meseci}

Zaboravio sam da napišem. Nakon Set Focus zbog nepopunjenog polja, trebalo bi da napusti subrutinu. Treba tako kako je Scelle napisao.

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu

Sergio Mrav
Srdjan Mraovic
Beograd

Član broj: 150033
Poruke: 36
213.240.37.*

Profil

Re: Kako da napravim da command button moze da se aktivira tek kada se popune sva trazena polja?

^{21.08.2009. u 20:05 - pre 178 meseci}

Hvala vam puno momci, to je to....

Stavio sam samo za jedno obavezno polje predlozeni kod, a za ostatak sam obaveznih polja samo ispred komande za zatvaranje te i otvaranje nove forme stavio

DoCmd.GoToRecord , , acNewRec

stim sto sam u tabelama obelezio obavezna polja.

Jer mi se desavalo da ako ne popunim nijedno polje da otvara sledecu formu, a ako popunim bar jedno polje onda javi da moraju da budu popunjena sva zahtevana polja.

Jeste malo seljacka varijanta, ali mozda nekome moze biti i od koristi....:)

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: Kako da napravim da command button moze da se aktivira tek kada se popune sva trazena polja?

^{21.08.2009. u 20:16 - pre 178 meseci}

Nije seljački. Čak šta više. Mnogo je sigurnije u tabelama definisati koja su polja Required. Ja ovu metodu sa kodom koristim samo kad su u pitanju nevezane forme i nevezana polja. Recimo: Unesite početni datum i završni datum.

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu