Bosna i Hercegovina



#1 04.03.2015-14:50
kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 190


Subject: 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
↑  ↓

#2 04.03.2015-14:56
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,721



#3 04.03.2015-15:20
kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 190


Subject: Re: Promjena naziva labela, dugmadi polja
može mala pomoč nemogu da ga otvorim kao da je verzija 97 inače koristim 2013
↑  ↓

#4 04.03.2015-17:32
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,721


Subject: 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:
Informacije o fajlu: zip  dvojezicno2007.zip
Preuzimanja: 61
Veličina: 32.60 KB


Pozdrav
↑  ↓

#5 04.03.2015-18:28
kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 190


Subject: 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:
Informacije o fajlu: pdf  greška.pdf
Preuzimanja: 54
Veličina: 220.97 KB

↑  ↓

#6 04.03.2015-19:32
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,721


Subject: Re: Promjena naziva labela, dugmadi polja
Moras u referencama ukljuciti dao.
Mogu bolje pojasniti ako ne ide.
Pozdrav
↑  ↓

#7 04.03.2015-19:37
kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 190


Subject: Re: Promjena naziva labela, dugmadi polja
rješio sam prilično problem samo što mi nefata sve forme nego samo neke nekontam zašto
↑  ↓

#8 04.03.2015-20:17
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,721


Subject: 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.
Pozdrav
↑  ↓

#9 05.03.2015-10:16
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,721


Subject: 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.
Pozdrav
↑  ↓

#10 07.03.2015-17:35
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,721


Subject: Re: Promjena naziva labela, dugmadi polja
Sta bi jeli ovo rijeseno ili nije.
Pozdrav
↑  ↓

#11 08.03.2015-09:05
kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 190


Subject: Re: Promjena naziva labela, dugmadi polja
jeste rješeno
hvala na pomoči
↑  ↓

#12 08.03.2015-11:53
kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 190


Subject: Re: Promjena naziva labela, dugmadi polja
opet sam zapeo

kad sam radio u 2003 sa ovom funkcijom FORMNAME nisam imao nikad problema sad odmah zapne
ovo je samo bio koda pa pokušavam koristiti jedan trik koji ste mi dali

Option Compare Database
'Option Explicit
Public FORMNAME As String
Public Function poreski()
Dim god
Dim fir
Dim Kon
Dim period
FORMNAME = Screen.ActiveForm.Name
Forms!F!T = FORMNAME -- ovo normalno pročita i upiše ime forme
Forms!F!T1 = "stavgk.godina = " & [Forms]![" & FORMNAME & "]!Text7 -- ovde zapne nekontam zašto
↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 20.07.2018-03:59.