Fout 3315 VB

[Abyss]

Ik krijg een foutmelding tijdens het uitvoeren van een selectie via een keuzelijst met invoervak.
Ik heb via VB de volgende code geschreven


Private Sub Veld_AfterUpdate()
Me.[GEN] = Me.Veld.Column(1)
Me.[ZZ] = Me.Veld.Column(2)
End Sub

Nu bijkt als er dus niets staat in een van deze velden krijg ik de foutmenlding dat er dus iets zou moeten staan. Maar dat is niet altijd het geval. Hoe los ik dit op??

 

[vanzwam]

Dit is een lege string fout. Kijk even in je tabel, bij deze velden, lengte 0 toestaan, Dat moet je zetten op JA.

 

[Bartuls]

Je kunt het ook in je code oplossen:

Private Sub Veld_AfterUpdate()
Me.[GEN] = NZ(Me.Veld.Column(1),0)
Me.[ZZ] = NZ(Me.Veld.Column(2),0)
End Sub

 

[Abyss]

vanzwam,

Ja nou je het zo schrijft had ik het zelf ook wel kunnen bedenken. Stom zeg van me

 

[nieko]

ik heb het volgende ervan gemaakt omdat query1 bekostigingsberekening heet
en query2 bekostigingsberekening output heet


SELECT Id-nummer, outputtotaal FROM Bekostigingsberekening output WHERE Bekostigingsberekening output.Id-nummer in (SELECT Id-nummer FROM Bekostigingsberekening)
UNION
SELECT Id-nummer, outputtotaal FROM Bekostigingsberekening output WHERE Bekostigingsberekening output.Id-nummer NOT IN (SELECT Id-nummer FROM Bekostigingsberekening)
UNION SELECT Id-nummer, inputtotaal FROM Bekostigingsberekening WHERE Bekostigingsberekening.Id-nummer NOT IN (SELECT Id-nummer FROM Bekostigingsberekening output);

Helaas krijg ik een syntaxerrorrrrrrrrr (zie bijlage)

Waar ligt dit aan??