title image


Smiley Re: acFormReadOnly, begrenzt einsetzen
Folgender VBA-Code sperrt alle Text- u. Kombi-Felder in einem Formular ausser dem mit dem Namen cbo_KundenNr:





Private Sub LockKunden(bYesNo As Boolean)

Dim oControl as Control



With Forms("frm_kunden")

For Each oControl In .Controls

'Debug.Print oControl.Name

If oControl.ControlType = acTextBox Then .Controls(oControl.Name).Locked = bYesNo

If oControl.ControlType = acComboBox Then .Controls(oControl.Name).Locked = bYesNo

Next



!cbo_KundenNr.Locked = False

End With



End Sub





Den Code musst Du entsprechend anpassen und beim Öffnen-Ereignis des Formulares aufrufen.



Schöne Grüße

Zitro

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: