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
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