[es] - Problem sa Formom

zage
Zoran Nastevski
Makedonija Demir Hisar

Član broj: 56597
Poruke: 148
62.220.204.*

Sajt: idividi.com.mk

+1 Profil

^{28.09.2012. u 14:20 - pre 149 meseci}

Postoje dva Sheta 1-EVIDENCIJA 2- RABOTA...Prvi sluzi kao bazu podataka svega unetok moguce i nemoguce .u drugi Shet-RABOTA automatski kopira podatke sa Prvog Forma za unos je OK dok nesto fali u Formi za promenu /pregled.Kako pokrenuti Formu sa dugmetom koji je na Shet Rabota a ujedno u polja za unos u kojima je dozvoljena promena da se kopiraju u BAZI (EVIDENCIJA)...nesto fali u codu ali ne znam sta....Ako pogrenem sa Dugme koje se nalazi u EVIDENCIJA je ok ali sa onog drugog cita podatke sa tog Sheta....

Prikačeni fajlovi

Primer.2.xlsm - 252.77k

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1325

Jabber: 3okc@elitesecurity.org

+119 Profil

Re: Problem sa Formom

^{01.10.2012. u 07:54 - pre 149 meseci}

Koliko mogu da vidim, program ti se svodi na deklaraciju različitih opsega po radnom listu, vidim uglavnom spiskove nalik TextBox1.Text = Cells(GoreDole, 1)
Koristiš implicitnu deklaraciju promenljivih i to je najverovatnije i uzrok problema jer GoreDole nigde nisi bio definisao. S obzirom da nemaš naveden Option Explicit, ovakve pojave u kodu kompajler ne registruje kao grešku a promenljivama dodeljuje inicijalnu vrednost (tj u ovom slučaju to je 0).

Potrebno je da prvo svugde ubaciš Option Explicit.
Na svim mestima gde je definicija sa Cells(nešto) moraš navesti za koji se list odnosi, tipa Sheet4.Cells(nešto)

Skratio sam ti one provere u Sheet8 (EVIDENCIJA) i izgleda ovako:

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("$N$5:$N$504", "$P$5:$P$504", "$R$5:$R$504", _
        "$T$5:$T$504", "$V$5:$V$504", "$X$5:$X$504")) Is Nothing Then _
        Target.Offset(0, -1).FormulaR1C1 = Now()
End Sub

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Odgovor na temu