Hvorfor virker denne if - else ikke ?

Private Sub combo_01_AfterUpdate()
If Me.combo_01 = "DVD" Then
Me.Output = "DVD"
Else
If Me.combo_01 = "TV" Then
Me.Output = "TV"
End If
End Sub


Ned på næste linje ...?

Private Sub combo_01_AfterUpdate()
If Me.combo_01 = "DVD" Then
Me.Output = "DVD"
Else
If Me.combo_01 = "TV" Then
Me.Output = "TV"
End If
End Sub

Det virker heller ikke ! -

Hvilken fejl får du?

se her http://www.coolscan.dk/daddydezign/filez/x_pert_stuf/250616.htm

det er Access 2002 (XP) men det burde da ikke gøre den store forskel,- sådanne if - else virker fint i f.eks. 97

Du skal have End If efter hver If.

elseif

i et ord

Private Sub combo_01_AfterUpdate()
If Me.combo_01 = "DVD" Then Me.Output = "DVD"
Else
End If
If Me.combo_01 = "TV" Then Me.Output = "TV"
End If
End Sub

private Sub combo_01_AfterUpdate()
If Me.combo_01 = "DVD" Then Me.Output = "DVD"
ElseIf Me.combo_01 = "TV" Then Me.Output = "TV"
End If
End Sub

det var et svar

guyzzz der mangler et End If G****

Private Sub combo_01_AfterUpdate()
If Me.combo_01 = "DVD" Then
Me.Output = "DVD"
Else
If Me.combo_01 = "TV" Then
Me.Output = "TV"
End If
End If
End Sub

nemli' som skrevet 21:53

jeps ;)

kopieret fra hjælpen:

If condition Then
[statements]

[ElseIf condition-n Then
[elseifstatements] ...

[Else
[elsestatements]]

End If

pokker heller så langsom min internetudbyder er her til aften - må vist være lidt p til mugs ;)

martens > når du skal måle på det samme felt, er det nemmere med en Select Case:

Select Case Me.felt1
Case Is = "DVD"
Me.felt3 = "aaa"
Case Is = "VIDEO"
Me.felt3 = "bbb"
End Select

Det er lettere at finde rundt i end flere If.. Then

30 til Susanne og det er ikke fordi hun er kvinde ... sorry guyzzz :o)
Bingo og skidtet virker - ThanX

mugs >> det har jeg også overvejet, men jeg sad og bøvlede med den her if else...

Jeg kan godt se at Select Case er smart

Martens ->

Susannes løsning virker, men den er efter min menning lidt uoverskuelig.
Private Sub combo_01_AfterUpdate()
If Me.combo_01 = "DVD" Then
    Me.Output = "DVD"
Else
    If Me.combo_01 = "TV" Then
        Me.Output = "TV"
    End If
End If
End Sub

Det er bedre at bruge den indbyggede elseif og holde det i én if sætning (eller select case)

Niels

hov de p skulle da have være dine mugs ???

Tjaaaa

jeg tror sig der er problemer på E her i aften. Bruger F5 for at se om nogen har skrevet noget. Har de ikke - klikker på på udfør og svarene/kommentarerne vælter ind  :/

>>nih overskuelig mjo måske. Er jo egentlig let nok at læse, når det sættes ordentligt op, som du har gjort 22:02, og ikke bare pastet som jeg gjorde. En select case giver mere overblik, men med if´ferne skal man bae huske ingen IF uden en END IF ;)

sorry mugs :o(

Eksperten kører spooky i aften og det gør det jeg ser også :o)

>>mugs vil du have de 30 p, så opretter jeg et sp ???

susanne > nej det gider vi ikke bøvle med. Der er skrevet rigeligt for et så simpelt spørgsmål.

;) oki fint nok, så er jeg den der er smuttet ind og få lidt aftensmad...

Oki... det var simpelt ! nu kommer der snart et svært ét :o)

Hold øje med hvad der sker her...