title image


Smiley Re: function von formular nach modul
Hallo Scharlie,



rufe von Formular aus die Funktion: call farben_setzen(Me)



Funkction im globalen Modul:



Function farben_setzen(F As Form)

Dim ctl As Control, farbe As Long

farbe = RGB(192, 192, 192) 'Farbe grau



For Each ctl In F.Controls

If TypeOf ctl Is TextBox Then

If Not ctl.Enabled Then

ctl.Locked = True

ctl.BackColor = farbe

End If

End If

Next ctl

End Function



statt

'If ctl.Enabled = False Then --> If Not ctl.Enabled Then





Gruß von Luschi

aus Klein-Paris

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: