Predmet:Promjena naziva labela, dugmadi polja
imama problem sa ovom sa ovom procedurom
ideja je da se napravi da svaka forma provjerava koji je aktivan jezik ili pismo i kod otvaranja forme ili reporta da nazive dugmadi, lavela, caprion i dr. u jeziko koji je primarno zadan
probo sam to ovako riješiti al ne ide
usput imam novu tabelu gdje su upisani polja
jezik upisemo jezik
ojekt naziv komande
forma naziv forme
Tip_objekta tip komande
Prijevod novi naziv
Pocetni yes/no
Option Compare Database
Option Explicit
Public FORMNAME As String
Private Sub Form_Activate()
FORMNAME = Screen.ActiveForm.Name
Dim control As control
Dim dato2 As Database
Dim rek2 As Recordset
Set dato2 = CurrentDb
Dim sqlupit2, ispis, imeobj As String
sqlupit2 = "SELECT * FROM jezik WHERE (((jezik.Pocetni)=True));"
Set rek2 = dato2.OpenRecordset(sqlupit2)
ispis = rek2.Fields("prijevod")
If rek2.Fields("tip_objekta") = "labela" And rek2.Fields(" & FORMNAME & ") = " & FORMNAME & " Then
imeobj = rek2.Fields("objekt")
Me.Controls(imeobj).Caption = ispis
End If
If rek2.Fields("tip_objekta") = "dugme" And rek2.Fields(" & FORMNAME & ") = " & FORMNAME & " Then
imeobj = rek2.Fields("objekt")
Me.Controls(imeobj).Caption = ispis
End If
rek2.Close
Set dato2 = Nothing
End Sub
Pošteno govoreci veči dio sam ukrao i pokušavam da se prilagodim