Centar za edukaciju-BiH


Stranice (2):1,2

#11 08.12.2011 14:05
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

#12 08.12.2011 14:20
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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

#13 08.12.2011 16:48
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

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

#14 08.12.2011 19:20
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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

#15 08.12.2011 19:57
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Uslov za popunjavanje polja
uhu jeste to je ona druga procedura i nu sam radio na sva polja.
Sad cu to pogledati.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#16 08.12.2011 20:22
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

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

#17 09.12.2011 08:19
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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:
Informacije o tipu datoteke za:rar  Kupci_3.rar
Preuzimanja:282
Velicina datoteke:27.30 KB


Pozdrav
↑  ↓

#18 09.12.2011 10:03
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

#19 09.12.2011 10:25
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Uslov za popunjavanje polja
Nisam uočio da su zvijezdice bitne. Sada kada sm ih stavio i to tadi.
Pozdrav
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 3: 06 pm.