title image


Smiley Re: Schaltflächen u.ä. mehrsprachig
Hallo A.Lukaschik,erstelle zunächst eine Tabelle mit folgendem AufbauFeld1: LanguageID, IntegerFeld2: FormName, Text(64)Feld3: ControlName, Text(64)Feld4: Caption, Text(255)Anschließend erstellst Du eine Funktion, die Du für das Formularereignis OnLoad verwendestBeispiel:Function ReInitForm(FormName As String) as BooleanDim DB As DatabaseDim RS As RecordSetDim FRM As FormDim CTRL As ControlDim SQL As StringDim Bed As StringSQL = "Select * FROM LanguageTable WHERE LanguageID=1 AND FormName='" & FormName & "'"Set FRM = Forms(FornName)Set DB= CurrentDB()Set RS = DB.OpenRecordSet(SQL, dbOpenDynaset)For Each CTRL in FRM bed = "[Control]='" & CTRL.Name & "'" RS.FindFirst Bed If Not(RS.NoMatch) Then CTRL.Caption = RS!CAPTION End IfNextRS.CloseDB.CloseExit FunctionIn Deiner Tabelle erstellst Du für jede Sprache (eigene Nummer) für jedes Formular und für jedes Control, das benannt werden soll einen entsprechenden Caption-Eintrag.Beim Initialisieren deines Formulars werden dann die Werte ausgelesen und entsprechend für die Controls auf deinem Formular verwendet.Gruß, Uwe RickenMCP FOR MS ACCESS DEVELOPMENT

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: