Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VBA: Taulukon täyttäminen

ahm [18.04.2006 18:14:13]

#

tere,

Kun liikuttaa kursoria alaspäin, access (tai excel) ehdottaa yleensä seuraavaa arvoa, jos se on suurempi kuin edellinen (1,2,3,4,... tai 1,3,5,7,...) . Miten saisi toiminnon, jos haluaisi kentän arvoksi saman kuin edellisen?

3,null,null,null,null,5,null,null --> 3,3,3,3,3,5,5,5

Ummikkobeisikkaana tekisin siitä jonkinlaisen funktion:

Funktio jotain ---
if kentänArvo <> null then sijoitettava := kentänArvo
  Else
  kentänArvo := sijoitettava
 siirrySeuraavaanTietueeseen

Voiko tuon toteuttaa jotenkin Visual Basicillä accessiin?

neau33 [19.04.2006 15:51:49]

#

Moikka ahm!

'Moduuliin
Public omaMuuttuja As Variant

'Tapahtumaan
Private Sub kentänNimi_BeforeUpdate(Cancel As Integer)
Dim MyValue As Variant
If kentänNimi.Value <> Null Then
 omaMuuttuja = kentänNimi.Value: Exit Sub
ElseIf kentänNimi.Value = Null and omaMuuttuja <> Null Then
 kentänNimi.Value = omaMuuttuja: Exit sub
Elseif KentänNimi.Value = Null And omaMuuttuja = Null Then
MyValue = InputBox("Syötä arvo!", "HALOOOO")
kentänNimi.Value = MyValue
omaMuuttuja = KentänNimi.Value: Exit Sub
Else: MsgBox vbOKOnly, vbCritical, "FUCKtio ei toimi!!!"
End if
End Sub

ahm [19.04.2006 21:50:45]

#

Hienoa Nea!
tätä toivoinkin. Kun on liian laiska (lue: tyhmä) koko tutorialia veivaamaan läpi yhden koodinpätkän takia. Kuten kiinalaisillakin -sivuten kommenttia- oli tapana sanoa -ammoisista ajoista lähtien- että yuck fou, se toimii.
t.
ahm

neau33 [21.04.2006 11:58:01]

#

Heippa ahm!

Joko sinullekin selvisi, että Null-arvoa ei voi käyttää vertailuun. Eli siis Null-arvo voi olla vain joko TOSI tai EPÄTOSI!

Tsekkaa täältä ja sovella sit tohon aikasempaan koodiin...

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta