kenan | 04.03.2015 15: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 15:56 |
---|---|
Predmet:Re: Promjena naziva labela, dugmadi polja Imas ovdje primjer. http://www.icentar.ba/...st&id=271 |
kenan | 04.03.2015 16: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 18: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 19: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 20:32 |
---|---|
Predmet:Re: Promjena naziva labela, dugmadi polja Moras u referencama ukljuciti dao. Mogu bolje pojasniti ako ne ide. |
kenan | 04.03.2015 20: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 21: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 11: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 18:35 |
---|---|
Predmet:Re: Promjena naziva labela, dugmadi polja Sta bi jeli ovo rijeseno ili nije. |