Prikazi cijelu temu 17.05.2013 09:54
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Promjena naziva labela
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub PartnerID_AfterUpdate()
  2. Dim R As Integer
  3. Me.StovaristeID.RowSource = Me.StovaristeID.RowSource
  4. R = Me.StovaristeID.ListCount
  5. If R = 0 Then
  6. Me.StovaristeID.Visible = False
  7. Else
  8. Me.StovaristeID.Visible = True
  9. End If
  10. End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.