title image


Smiley Verknüpfen geht nicht
Das musst du alles fein säuberlich per Code machen. Habe es in meiner DB so gemacht, dass hier die Priorität auf den Datensätzen liegt, die für ein übergebenes Formular geöffnet werden. Da ich sehr wenig (eher keins) Error-Handling habe, muss zwingend zugesichert werden, dass zu jedem Datensatz in der Steuerelement-Tabelle ein Control vorhanden ist.



Hier der Programmcode:









'--------------------------------------------------------------------------

'function     : setLanguage

'description  : Sets the captions on a form depending on the user's

'               language. Ensure that each record represents a control

'               in the form!

'version      : 1

'author       : Der langhaarige Bombenleger

'parameters   : InputForm = Form whose language should be set

'--------------------------------------------------------------------------

Public Sub setLanguage(InputForm As Form)

Dim rstCaptions As DAO.Recordset

Dim strLanguage As String



InputForm.Visible = False

strLanguage = getUserLanguage()



'Set form caption

InputForm.Caption = Nz(DLookup("Formcaption", "FormCaptions", _

    "Language ='" & strLanguage & "' AND Formname = '" & InputForm.Name & "'"), InputForm.Name)



'Set Caption texts

Set rstCaptions = CodeDb.OpenRecordset("SELECT * FROM ControlCaptions WHERE Language = '" & _

    strLanguage & "' AND FormName = '" & InputForm.Name & "';")



With rstCaptions

  While Not .EOF

    InputForm.Controls(!ControlName).Caption = !CaptionText

    .MoveNext

  Wend

  .Close

End With



InputForm.Visible = True

End Sub







Code eingefügt mit Syntaxhighlighter 4.0













Public Function getUserLanguage() As String

getUserLanguage = DLookup("StringValue", "ProgramSettings", "Setting = 'ProgramLanguage'")

End Function





Code eingefügt mit Syntaxhighlighter 4.0







Der Setzen der Sprache im Formular erfolgt dann über

Call setLanguage(Me)

im Open-Ereignis eines jeden Formulars.



Hier noch ein Ausschnitt der DB-Struktur:


† 10.12.2006

geschrieben von

Anhang
Bild 155 zu Artikel 35260

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: