 |
www.elektronik.si Forum o elektrotehniki in računalništvu
|
Poglej prejšnjo temo :: Poglej naslednjo temo |
Avtor |
Sporočilo |
besoft Član



Pridružen-a: Ned 01 Apr 2012 10:22 Prispevkov: 585 Aktiv.: 3.62 Kraj: Žižki - Prekmurje
|
Objavljeno: Ned Dec 09, 2012 8:33 pm Naslov sporočila: MS Access VBA |
|
|
Celi dan se že nategujem z problemom..
torej, imam dve polji polje1 in polje2. Polje1 neko vrednost X. Ko preko zunanjega dogodka (v tem primeru komunikacije ON_Data() ) hočem drugemu polju2 dodeliti vrednost prvega polja1 se ne zgodi nič. Polje2 ostane prazno. Ob naslednjem proženju se polje1 posodobi na novo vrednost, polje2 p dobi staro vrednost polja1.
prosim za kakšen nasvet, ker bom drugče računalo vrgel skozi okno..
thx |
|
Nazaj na vrh |
|
 |
mobwap Član


Pridružen-a: Sre 14 Mar 2012 9:42 Prispevkov: 326 Aktiv.: 2.01 Kraj: Doma
|
Objavljeno: Ned Dec 09, 2012 9:10 pm Naslov sporočila: |
|
|
Iz kristalne korgle ti lahko povem samo to da je napaka v kodi in ne bazi... |
|
Nazaj na vrh |
|
 |
besoft Član



Pridružen-a: Ned 01 Apr 2012 10:22 Prispevkov: 585 Aktiv.: 3.62 Kraj: Žižki - Prekmurje
|
Objavljeno: Ned Dec 09, 2012 9:16 pm Naslov sporočila: |
|
|
torej, če gledam na obrazcu je vrednost nova v polju 1 po izvedenem GotoNext, če pa vrednost v VBA prenesem v drugo polje:
je pa vrednost še stara.
Pa vem, da ni problem v bazi.. |
|
Nazaj na vrh |
|
 |
Igor01 Član

Pridružen-a: Pon 29 Nov 2004 12:09 Prispevkov: 598 Aktiv.: 2.52 Kraj: KK
|
Objavljeno: Ned Dec 09, 2012 9:44 pm Naslov sporočila: |
|
|
Po tem, ko ukažeš spremembo, v naslednjo ukazno vrstico vpiši DoEvents.
LP |
|
Nazaj na vrh |
|
 |
besoft Član



Pridružen-a: Ned 01 Apr 2012 10:22 Prispevkov: 585 Aktiv.: 3.62 Kraj: Žižki - Prekmurje
|
Objavljeno: Ned Dec 09, 2012 9:50 pm Naslov sporočila: |
|
|
Bom tudi to poskusil,,,trenutno sem rešil tako:
Koda: |
Private Sub Form_Current()
polje2=polje1
End Sub
|
|
|
Nazaj na vrh |
|
 |
mkezmah Član

Pridružen-a: Sre 21 Jan 2009 16:30 Prispevkov: 220 Aktiv.: 1.10 Kraj: Maribor
|
Objavljeno: Pon Dec 10, 2012 8:38 am Naslov sporočila: |
|
|
Kaj pa Me.Refresh ?
LP
Marko |
|
Nazaj na vrh |
|
 |
besoft Član



Pridružen-a: Ned 01 Apr 2012 10:22 Prispevkov: 585 Aktiv.: 3.62 Kraj: Žižki - Prekmurje
|
Objavljeno: Pon Dec 10, 2012 8:41 am Naslov sporočila: |
|
|
Razen te rešitve, ki sem jo navedel in jo našel na netu, vse ostalo ne deluje..tudi Refresh ne.
Delansko, če delaš z gumbi na formi, je vse ok. Podatki so pravilno prikazani, če pa sprožiš procedure in funkcije z VBA potem, pa se vrednosti ne posodobijo. |
|
Nazaj na vrh |
|
 |
sodrgerg Član


Pridružen-a: Čet 20 Avg 2009 14:16 Prispevkov: 61 Aktiv.: 0.32 Kraj: Ljubljana
|
Objavljeno: Pon Dec 10, 2012 9:11 am Naslov sporočila: |
|
|
Kj pa .update _________________ To, kar vemo, je kapljica; to, česar ne vemo, je morje.(Isaac Newton) |
|
Nazaj na vrh |
|
 |
sodrgerg Član


Pridružen-a: Čet 20 Avg 2009 14:16 Prispevkov: 61 Aktiv.: 0.32 Kraj: Ljubljana
|
Objavljeno: Pon Dec 10, 2012 9:16 am Naslov sporočila: |
|
|
Začasna rešitev pa je tudi da iz programa kličeš proceduro gumba iz forme, ki praviš da dela. Command1_Click() _________________ To, kar vemo, je kapljica; to, česar ne vemo, je morje.(Isaac Newton) |
|
Nazaj na vrh |
|
 |
besoft Član



Pridružen-a: Ned 01 Apr 2012 10:22 Prispevkov: 585 Aktiv.: 3.62 Kraj: Žižki - Prekmurje
|
Objavljeno: Pon Dec 10, 2012 9:23 am Naslov sporočila: |
|
|
Najbolj zanimivo je to, da če kličem proceduro Gumb_Click() ..tudi ne posodobi vrednosti.
Prav tako tudi .Update ne naredi željenega.
Mogoče je to kakšen bug v Acsessu..nevem. |
|
Nazaj na vrh |
|
 |
sodrgerg Član


Pridružen-a: Čet 20 Avg 2009 14:16 Prispevkov: 61 Aktiv.: 0.32 Kraj: Ljubljana
|
Objavljeno: Pon Dec 10, 2012 12:20 pm Naslov sporočila: |
|
|
Med klikom na gumb in klicanjem procedure Gumb_Click() ne bi smelo biti prav nikakršne razlike. Prilepi del sporne kode ... _________________ To, kar vemo, je kapljica; to, česar ne vemo, je morje.(Isaac Newton) |
|
Nazaj na vrh |
|
 |
sraka Član


Pridružen-a: Čet 20 Nov 2008 23:52 Prispevkov: 481 Aktiv.: 2.38 Kraj: PMAVs
|
Objavljeno: Pon Dec 10, 2012 1:06 pm Naslov sporočila: |
|
|
Če je tole v aavatarju tvoja slika, bi bilo fino, če bi šel k frizerju in brivcu. _________________ Danes je težko biti budala, konkurenca je velika, pa še dokazovati se moraš večkrat na dan.
Sem ogledalo: Nisem kriv, če v meni vidite nekaj kar vam ni všeč. |
|
Nazaj na vrh |
|
 |
sodrgerg Član


Pridružen-a: Čet 20 Avg 2009 14:16 Prispevkov: 61 Aktiv.: 0.32 Kraj: Ljubljana
|
Objavljeno: Pon Dec 10, 2012 1:12 pm Naslov sporočila: |
|
|
Bom probal nadet čas za stilsko preobrazbo. _________________ To, kar vemo, je kapljica; to, česar ne vemo, je morje.(Isaac Newton) |
|
Nazaj na vrh |
|
 |
besoft Član



Pridružen-a: Ned 01 Apr 2012 10:22 Prispevkov: 585 Aktiv.: 3.62 Kraj: Žižki - Prekmurje
|
Objavljeno: Pon Dec 10, 2012 2:08 pm Naslov sporočila: |
|
|
To je del kode ki izvede Goto next :
Koda: |
If Data = "tp1" Then
If Len(txtName) >= 2 Then
DoCmd.GoToRecord , , acNext
Ukaz36_Click
End If
End If
|
in del kode, ki ni delovala, kamor koli je bila vstavljena (After update, GetFocus,..) :
Koda: |
Me.Besedilo34 = txtName.Value
|
Če sem gledal podateke na obrazcu, so se spremenili, VBA pa je še vedno pošiljal naprej prejšnji podatek..:
Koda: |
Sdata = Besedilo34 & Chr(13) & Chr(10)
Nbytessent = tc1.Write(Nbytestosend, Ntimeout, Sdata)
|
zdaj rešeno tako in deluje (najdeno na netu, kjer je bila opisana ista težava):
Koda: |
Private Sub Form_Current()
Me.Besedilo34 = txtName.Value
End Sub
|
|
|
Nazaj na vrh |
|
 |
mkezmah Član

Pridružen-a: Sre 21 Jan 2009 16:30 Prispevkov: 220 Aktiv.: 1.10 Kraj: Maribor
|
Objavljeno: Pon Dec 10, 2012 7:55 pm Naslov sporočila: |
|
|
Ja, mislim da je tukaj problem:
Me.Besedilo34...
Poskušaj se sklicevati direktno na formo in ne na "me".
Je minilo kar nekaj časa kar sem se igral z accessom, sem pa imel podobne težave. Lahko jutri pogledam svoje stare programe da se spomnim točno kako sem se skliceval (če ne bo seveda prej uspelo tebi samemu).
LP
Marko |
|
Nazaj na vrh |
|
 |
|
|
Ne, ne moreš dodajati novih tem v tem forumu Ne, ne moreš odgovarjati na teme v tem forumu Ne, ne moreš urejati svojih prispevkov v tem forumu Ne, ne moreš brisati svojih prispevkov v tem forumu Ne ne moreš glasovati v anketi v tem forumu Ne, ne moreš pripeti datotek v tem forumu Ne, ne moreš povleči datotek v tem forumu
|
Uptime: 11 dni
Powered by phpBB © 2001, 2005 phpBB Group
|