Prikazi cijelu temu 08.12.2011 17:48
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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.