Control Tips text foreing language

  • Thread starter Frank Situmorang
  • Start date
F

Frank Situmorang

Hello,

I have been able to use foreinlanguage for the labelcaption of the source
control in the forms/reports using like the follwoing VBA, my Question is
instead of just CAPTION, how can we make it for Control Tips Text in Foreing
language too. Can we make it by; Me.Form.Control Tips Text = .Fields(1)

WE appreciate your help.



Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim s As String

On Error GoTo Err_Form_Open

Set db = DBEngine(0)(0)

s = Nz(DFirst("Language", "tblDefaults"), "English")

s = "SELECT * FROM [bukuangkby_label] WHERE Language = '" & _
s & "';"

' Debug.Print s ' for testing only

Set rst = db.OpenRecordset(s, dbOpenForwardOnly)

With rst

If Not .EOF Then

Me.Form.Caption = .Fields(1)
Me.NamaAnggota_label.Caption = .Fields(2)
)
End If
.Close
End With

Set rst = Nothing
Set db = Nothing

Exit_Form_Open:
Exit Sub
 
Top