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):Function StatusPolja()
Dim StatusK, Ctl As Control, Frm As Form
Dim Kljuc As Boolean, ImeKontrole As String, Znak As Boolean
Set Frm = Me.Form
StatusK = Trim(Me.Status)
If Format$(StatusK) = "" Then
Kljuc = False
Else
Kljuc = True
End If
For Each Ctl In Frm.Controls
If Ctl.ControlType = acTextBox Then
Ctl.Enabled = Kljuc
ImeKontrole = Ctl.Name
Select Case ImeKontrole
Case "Oib", "Adresa", "PostBroj", "Mjesto", "Zemlja"
Znak = Right(Ctl.Controls.Item(0).Caption, 1) = "*"
If StatusK = "1" Then
If Znak = True Then
Ctl.Controls.Item(0).Caption = Left(Ctl.Controls.Item(0).Caption, Len(Ctl.Controls.Item(0).Caption) - 1)
Ctl.Controls.Item(0).FontItalic = False 'ovo je font italik
End If
ElseIf StatusK = "2" Then
If Znak = False Then
Ctl.Controls.Item(0).Caption = Ctl.Controls.Item(0).Caption & "*"
'imelabele=
Ctl.Controls.Item(0).FontItalic = True 'i ovo je font italik
End If
End If
End Select
End If
Next Ctl
End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.