Bosna i Hercegovina



#16 08.12.2011-20:22
zxz Online
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,451


Subject: Re: Uslov za popunjavanje polja
Evo i ovu zamijeni
DownloadIzvorni kod (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

Pozdrav
↑  ↓

#17 09.12.2011-08:19
pmiroslav Offline
Moderator
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,339


Subject: 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 fajlu: rar  Kupci_3.rar
Preuzimanja: 18
Veličina: 27.30 KB


Pozdrav
↑  ↓

#18 09.12.2011-10:03
zxz Online
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,451


Subject: 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.
Pozdrav
↑  ↓

#19 09.12.2011-10:25
pmiroslav Offline
Moderator
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,339


Subject: 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


All times are GMT +01:00. Current time: 22.10.2017-11:05.