pmiroslav 07.12.2011 11:19
Predmet:Uslov za popunjavanje polja

Pozdrav
Imam tablicu tblKupci koju popunjavam iz forme i želio bih da na osnovu izbora statusa kupca sa Combom (1= Individualni kupac, 2=Kupac firma) Odredim da neka polja moraju obavezno biti popunjena.
Recimo ako je individualni kupac dovoljan je samo ID i Ime kupca, a ako je kupac firma i treba R-1 račun moraju biti popunjena sva potrebna polja
-OIB
-Adresa
-Postanski Broj
-Mjesto
itd.
Prilozi:
Kupci.rar (Velicina datoteke:11.35 KB)

Bosanec 07.12.2011 13:49
Predmet:Re: Uslov za popunjavanje polja

evo vidi da li ti odgovara rješenje

pozdrav
Prilozi:
Kupci.rar (Velicina datoteke:13.55 KB)

pmiroslav 07.12.2011 14:18
Predmet:Re: Uslov za popunjavanje polja

Odlično!

Zahvaljujem

pmiroslav 07.12.2011 14:57
Predmet:Re: Uslov za popunjavanje polja

Isprobao sam to sada u svojoj aplikaciji i sve je OK. jedino mi malo smeta Å¡to se u poruci prikazije naziv kontrole iz tablice, a to obično bude neka kratica kao npr. PostBr.
ZnaÅ¡ li možda mogućnost kako to eventualno zamjeniti sa imenom iz labele?

MsgBox "Morate ispuniti obavezna polja '" & " " & ctl.Name

zxz 07.12.2011 16:32
Predmet:Re: Uslov za popunjavanje polja

Na BeforeUpdate forme unesi ovaj kod
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_BeforeUpdate(Cancel As Integer)
  2. Dim StatusK, Ctl As Control, Frm As Form, Vrijednost
  3. Dim Polje As String
  4.  
  5.  
  6. Polje = "Status Kupca"
  7. Set Frm = Me.Form
  8. StatusK = Trim(Me.StatusKupca)
  9. If Format$(StatusK) = "" Then GoTo Kraj
  10. If Me.StatusKupca = 1 Then
  11. Vrijednost = Me.ImeKupca
  12.     If Format$(Vrijednost) = "" Then
  13.        Polje = Me.ImeKupca.Controls.Item(0).Caption
  14.        GoTo Kraj
  15.     End If
  16. Else
  17.     For Each Ctl In Frm.Controls
  18.         If Ctl.ControlType = acTextBox Then
  19.         Vrijednost = Ctl
  20.             If Format$(Vrijednost) = "" Then
  21.             Polje = Ctl.Controls.Item(0).Caption
  22.             GoTo Kraj
  23.             End If
  24.         End If
  25.     Next Ctl
  26. End If
  27. Izlaz:
  28. Exit Sub
  29. Kraj:
  30. MsgBox "Unesi " & Polje
  31. Cancel = 1
  32. GoTo Izlaz
  33. End Sub

A ako hoces isprobaj i ovo ostalo:
Samo prekopiraj
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Current()
  2. Call StausPolja
  3. End Sub
  4. Private Sub StatusKupca_AfterUpdate()
  5. Call StausPolja
  6. End Sub
  7.  
  8. Function StausPolja()
  9. Dim StatusK, Ctl As Control, Frm As Form
  10. Dim Kljuc As Boolean, Znak As Boolean
  11.  
  12. Set Frm = Me.Form
  13. StatusK = Trim(Me.StatusKupca)
  14. If Format$(StatusK) = "" Then
  15. Kljuc = False
  16. Else
  17. Kljuc = True
  18. End If
  19.  
  20. For Each Ctl In Frm.Controls
  21.     If Ctl.ControlType = acTextBox Then
  22.     Ctl.Enabled = Kljuc
  23.     Znak = Right(Ctl.Controls.Item(0).Caption, 1) = "*"
  24.         If Znak = False Then
  25.         Ctl.Controls.Item(0).Caption = Ctl.Controls.Item(0).Caption & "*"
  26.         End If
  27.         If StatusK = "1" Then
  28.         If Ctl.Name <> "ImeKupca" Then
  29.         Ctl.Controls.Item(0).Caption = Left(Ctl.Controls.Item(0).Caption, Len(Ctl.Controls.Item(0).Caption) - 1)
  30.         End If
  31.     End If
  32.     End If    
  33. Next Ctl
  34. End Function

zxz 07.12.2011 16:35
Predmet:Re: Uslov za popunjavanje polja

Citat:
sprobao sam to sada u svojoj aplikaciji i sve je OK. jedino mi malo smeta Å¡to se u poruci prikazije naziv kontrole iz tablice, a to obično bude neka kratica kao npr. PostBr.
ZnaÅ¡ li možda mogućnost kako to eventualno zamjeniti sa imenom iz labele?

MsgBox "Morate ispuniti obavezna polja '" & " " & ctl.controls.item(0),caption

Bosanec 07.12.2011 17:12
Predmet:Re: Uslov za popunjavanje polja

evo zxz je odgovorio bio je brži

pozdrav

pmiroslav 07.12.2011 17:15
Predmet:Re: Uslov za popunjavanje polja

Hvala na odgovorima.
Isprobat ću to sutra na poslu.

zxz 07.12.2011 20:45
Predmet:Re: Uslov za popunjavanje polja

Hehe jesmo brzi.
Tek kada sam stavio Kod Vidio sam da ****sanec vec odgovorio i onda dodam samo ovo za njgov odgovor.

pmiroslav 08.12.2011 13:00
Predmet:Re: Uslov za popunjavanje polja

Isprobao sam prijedloge na svojoj aplikaciji.
Riješenje od Bosanca je dobro i radi mi kako treba.
Međutim rijeÅ¡enje od Zxz mi u prvom primjeru koji sam ranije poslao radi, ali mi javlja greÅ¡ku u mojoj originalnoj aplikaciji.
Ovaj prijedlog mi je interesantan zbog toga Å¡to stavlja zvjezdicu na polje u koje je obavezan unos.
U svojoj originalnoj aplikaciji imam i polja koja su neobavezna u obje varijante (broj telefona, fax, email, opaska).
Iz primjera od Boseneca znao sam to riešiti ali
Za mene je Funkcija od Zxz-a malo komplicirana pa neznam gdje je problem koji mi javlja grešku
Prilozi:
Kupci_2.rar (Velicina datoteke:19.82 KB)