Centar za edukaciju-BiH



#1 07.12.2011 11:19
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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:
Informacije o tipu datoteke za:rar  Kupci.rar
Preuzimanja:262
Velicina datoteke:11.35 KB


Pozdrav
↑  ↓

#2 07.12.2011 13:49
Bosanec Van mreze
Clan
Registrovan od:02.02.2009
Postovi:155


Predmet:Re: Uslov za popunjavanje polja
evo vidi da li ti odgovara rješenje

pozdrav

Prilozi:
Informacije o tipu datoteke za:rar  Kupci.rar
Preuzimanja:284
Velicina datoteke:13.55 KB

↑  ↓

#3 07.12.2011 14:18
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Uslov za popunjavanje polja
Odlično!

Zahvaljujem
Pozdrav
↑  ↓

#4 07.12.2011 14:57
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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
Pozdrav
↑  ↓

#5 07.12.2011 16:32
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#6 07.12.2011 16:35
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#7 07.12.2011 17:12
Bosanec Van mreze
Clan
Registrovan od:02.02.2009
Postovi:155


Predmet:Re: Uslov za popunjavanje polja
evo zxz je odgovorio bio je brži

pozdrav
↑  ↓

#8 07.12.2011 17:15
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Uslov za popunjavanje polja
Hvala na odgovorima.
Isprobat ću to sutra na poslu.
Pozdrav
↑  ↓

#9 07.12.2011 20:45
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#10 08.12.2011 13:00
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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:
Informacije o tipu datoteke za:rar  Kupci_2.rar
Preuzimanja:268
Velicina datoteke:19.82 KB


Pozdrav
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 9: 01 am.