kenan 04.03.2015 14:50
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

zxz 04.03.2015 14:56
Predmet:Re: Promjena naziva labela, dugmadi polja

Imas ovdje primjer.
http://www.icentar.ba/...st&id=271

kenan 04.03.2015 15:20
Predmet:Re: Promjena naziva labela, dugmadi polja

može mala pomoč nemogu da ga otvorim kao da je verzija 97 inače koristim 2013

zxz 04.03.2015 17:32
Predmet:Re: Promjena naziva labela, dugmadi polja

evo u 2007.
Vece verzije nemam.
Trebao si samo ici na zapisivanje u vecoj verziji a ne na otvaranje.
Prilozi:
dvojezicno2007.zip (Velicina datoteke:32.60 KB)

kenan 04.03.2015 18:28
Predmet:Re: Promjena naziva labela, dugmadi polja

SORRY ovo kod mene neče na vašem primjeru radi i kad bukvalno iskopiram i pokrenem
Private Sub Form_Load()
Call ZapisiC
End Sub

odmah pukne evo i gdje
Prilozi:
greška.pdf (Velicina datoteke:220.97 KB)

zxz 04.03.2015 19:32
Predmet:Re: Promjena naziva labela, dugmadi polja

Moras u referencama ukljuciti dao.
Mogu bolje pojasniti ako ne ide.

kenan 04.03.2015 19:37
Predmet:Re: Promjena naziva labela, dugmadi polja

rješio sam prilično problem samo što mi nefata sve forme nego samo neke nekontam zašto

zxz 04.03.2015 20:17
Predmet:Re: Promjena naziva labela, dugmadi polja

'N A P O M E N A :
1Prvo pokrenuti proceduru KreirajTabeleda bi kreirali tabele
2Zatip ide procedura ZapisiC da bi upisali tekst u tabele
3Procedura citaj Moze se pozivati na on Load forme
'Imate primjer toga

Znaci procedura se pokrene kada se zavrse sve forme.
Onda i druga.
Na svaku formu na on load pozivas ovu proceduru citaj.
Znaci ove ti ostale poslije netrebaju.
One su samo da bi stvorile tabelu jezika.

zxz 05.03.2015 10:16
Predmet:Re: Promjena naziva labela, dugmadi polja

Djaba lutas.
Bolje da malo detaljnije pojasnis sta si radio i kako pa cemo naci rjesenje.
Vjerovatno si veoma blizu.

zxz 07.03.2015 17:35
Predmet:Re: Promjena naziva labela, dugmadi polja

Sta bi jeli ovo rijeseno ili nije.