[VBA] SQL INSERT met variabele

[Paxlie]

Dag mensjes,

ik heb wederom een probleem (kword er zelf ook gek van )

code:

Dim SerGar As String
If Forms.Form1.Betreft = "1" Then
    MsgBox "Garantie"
    SerGar = "Garantie"
Else
    MsgBox "Service"
    SerGar = "Service"
End If
DoCmd.RunSQL "INSERT INTO VD2 " _
         & "VALUES (Forms.Form1.VD_nummer, Forms.Form1.VD_datum, " _
         & SerGar & ", Forms.Form1.Opmerkingen)"
End Sub

keej, nu wil de SerGar-variabele in de query niet echt meewerken. Er komt namelijk alleen een 1 of een 2 in de database. Ziet iemand waar dit fout gaat of niet? Ik hoop het wel, want anders zit ik met een gebakken peertje (= ook wel lekker, maar nu niet ) Die msg-boxen staan er om te kijken hoe die door de if loopt en dat deed ie goed, dus dat is het niet, echt het variabele setten gaat fout lijkt wel, maar hoe gaat dat dan fout? En is dat dan wel de oplossing? Vele vragen, met waarschijnlijk een simpel antwoord......

[Janoz]

begin eens met het afdrukken van je SQL ipv het gelijk uitvoeren.. maw.. vervang DoCmd.RunSQL eens door Response.write oid. Ik denk dat je dan wel kunt zien wat er allemaal mis gaat.

[Sjnirk]

Zo doe ik het ook altijd, maar wordt er een beetje moe van, bestaat er geen debugger voor asp?

[Verwijderd]

SerGar is geen field. .. maar daar geef je de inhoud van een field...

terwijl je bij de rest het field meegeeft, en niet de inhoud

moet (in dit geval) de inhoud van SerGar niet iets zijn van "Forms1.Forms1.betreft" ofzo ?

[Paxlie]

Nee, SerGar is een variabele
die neemt de waarde Garantie aan als de optie.value=1 en anders neemt ie Service aan.

Dus die waarde wil ik graag in me database-je flikkeren, want anders staat er 1 of 2 en dat leest zo heel erg moeilijk uit.......

Dus ik heb liever dat ik het als Service of Garantie in me database flikker, iemand ideeen?

[Janoz]

Print je query gewoon ff, dan zie je wel wat er fout gaat!!! Als je dat nou ff wat vaker doet, dan kun je er later zelf ook achter komen en hoef je niet telkens weer te vragen .

[Verwijderd]

vervang in de query SerGar door :
iif(Forms.Form1.Betreft = "1", "Garantie", "Service")

[Verwijderd]

if paxlie = "paxlie van HvA" then
paxlie = "pannenkoek"
else
paxlie = "paxlie"
end if

[Paxlie]

if Helerion = "Active van HvA" then
Helerion = "Active-loser"
else
Helerion = "someone-else"
end if



Probleem heeft nu overigens weer andere vormen aangenomen

[Verwijderd]

if probleem > vorige_keer then stop_er_maar_mee ??

[Verwijderd]

Op woensdag 01 mei 2002 17:00 schreef Paxlie het volgende:
if Helerion = "Active van HvA" then
Helerion = "Active-loser"
else
Helerion = "someone-else"
end if



Probleem heeft nu overigens weer andere vormen aangenomen

hahahaha
Alles goed?