zxz 08.12.2011 14:05
Predmet:Re: Uslov za popunjavanje polja

Gresku ti pravi zato sto nemas labelu od polja txtOrderID.
Proceduru cu morati malo prepraviti jer sam za jedan slucaj uzeo da su sva polja obavezna.
Majbolje bi bilo da napises za id=1-tj.status 1 koja su polja obavezna i za status 2 isto koja su obavezna da nebi doslo do zabune.
Samo navedi imena polja.

pmiroslav 08.12.2011 14:20
Predmet:Re: Uslov za popunjavanje polja

Obavezna Polja:

Status = 1 (Individualni kupac)
PartnerID
SigraKupca
Firma

Status = 2 (Kupac-Firma)
PartnerID
SifraKupca
Firma
Oib
Adresa
PostBroj
Mjesto
Zemlja

zxz 08.12.2011 16:48
Predmet:Re: Uslov za popunjavanje polja

Rvo zamijeni proceduru stazus polja i dodaj zvjezdice na polja:
PartnerID
SifraKupca
Firma
i
status
jer oni su uvijek obavezni
Ako hoce stavi i italik
Ako neces italik imas u kodu pise koji su redovi za to.

PreuzmiIzvorni kôd (Visual Basic):
  1. Function StatusPolja()
  2. Dim StatusK, Ctl As Control, Frm As Form
  3. Dim Kljuc As Boolean, ImeKontrole As String, Znak As Boolean
  4.  
  5. Set Frm = Me.Form
  6. StatusK = Trim(Me.Status)
  7. If Format$(StatusK) = "" Then
  8. Kljuc = False
  9. Else
  10. Kljuc = True
  11. End If
  12.  
  13. For Each Ctl In Frm.Controls
  14.     If Ctl.ControlType = acTextBox Then
  15.     Ctl.Enabled = Kljuc
  16.     ImeKontrole = Ctl.Name
  17.         Select Case ImeKontrole
  18.         Case "Oib", "Adresa", "PostBroj", "Mjesto", "Zemlja"
  19.         Znak = Right(Ctl.Controls.Item(0).Caption, 1) = "*"
  20.             If StatusK = "1" Then
  21.                     If Znak = True Then
  22.                      Ctl.Controls.Item(0).Caption = Left(Ctl.Controls.Item(0).Caption, Len(Ctl.Controls.Item(0).Caption) - 1)
  23.                      Ctl.Controls.Item(0).FontItalic = False 'ovo je font italik
  24.                    End If
  25.             ElseIf StatusK = "2" Then
  26.                     If Znak = False Then
  27.                            Ctl.Controls.Item(0).Caption = Ctl.Controls.Item(0).Caption & "*"
  28.                            'imelabele=
  29.                           Ctl.Controls.Item(0).FontItalic = True 'i ovo je font italik
  30.                    End If
  31.             End If
  32.         End Select
  33.      End If
  34.  
  35. Next Ctl
  36. End Function

pmiroslav 08.12.2011 19:20
Predmet:Re: Uslov za popunjavanje polja

Kod dabira 1 - Individualni kupac sve je OK, ali kod odabira 2 - Kupac firma, javlja se poruka i za neobavezna polja
Telefon
Fax
eMail
Opaska

zxz 08.12.2011 19:57
Predmet:Re: Uslov za popunjavanje polja

uhu jeste to je ona druga procedura i nu sam radio na sva polja.
Sad cu to pogledati.

zxz 08.12.2011 20:22
Predmet:Re: Uslov za popunjavanje polja

Evo i ovu zamijeni
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, Znak
  4.  
  5. Polje = "Status Kupca"
  6. Set Frm = Me.Form
  7. StatusK = Trim(Me.Status)
  8. If Format$(StatusK) = "" Then GoTo Kraj
  9.     For Each Ctl In Frm.Controls
  10.         If Ctl.ControlType = acTextBox Then
  11.         On Error Resume Next
  12.         Znak = Right(Ctl.Controls.Item(0).Caption, 1) = "*"
  13.             If Znak = True Then
  14.             Vrijednost = Ctl
  15.                 If Format$(Vrijednost) = "" Then
  16.                 Polje = Ctl.Controls.Item(0).Caption
  17.                 GoTo Kraj
  18.                 End If
  19.             End If
  20.         End If
  21.     Next Ctl
  22. Izlaz:
  23. Exit Sub
  24. Kraj:
  25. MsgBox "Unesi " & Polje
  26. Ctl.SetFocus
  27. Cancel = 1
  28. GoTo Izlaz
  29. End Sub

pmiroslav 09.12.2011 08:19
Predmet:Re: Uslov za popunjavanje polja

Sada opet sa ovom ispravkom kod oba izbora moguće je otići na novi rekord iako nisu ispunjena polja 'Å ifra kupca', 'Kupac' i 'OIB'.
Međutim ja sam iskombinirao funkcije iz oba prijedloga, i Bosanecov i Zxz-ov, pa sam sada dobio ono Å¡to mi treba.
Prilozi:
Kupci_3.rar (Velicina datoteke:27.30 KB)

zxz 09.12.2011 10:03
Predmet:Re: Uslov za popunjavanje polja

Mozda nisi dokucao u labele na ova polja zvjezdicu.
Jer ova polja su obavezna u oba slucaja pa nisam htio kodom da dodajem zvjezdicu.
Znaci treba u dizajnu dokucati zvjezdice u ove labele i trebalo bi da radi.
Bar kod mene radi probao sam.

pmiroslav 09.12.2011 10:25
Predmet:Re: Uslov za popunjavanje polja

Nisam uočio da su zvijezdice bitne. Sada kada sm ih stavio i to tadi.