Hallo,
Ik ben al een paar dagen op zoek naar de fout in mijn code, maar zie het niet. Misschien dat iemand anders een andere kijk op de zaak kan brengen.
Het gaat om een normaal formulier in access met 2 cbo's en 2 txtvelden
de eerste combo haalt gegevens op uit een tabel
de tweede combo is afhankelijk van de eerste en geeft dan zijn waarden weeer.
die codes staan onder de rijbron van de 2 cbo's
combodia en comboafw genoemd.
ze hebben meerdere kolommen, en uit één zo'n kolom wil ik waarde vergelijken en laten opzoeken door een SQL code.
de volgende code werkt niet naar believe, het geeft de string weer in 1 van de tekstvelden
als ik alleen een kolom laat verwijzen naar een tekstveld krijg ik zonder probleem de waarde.
De bedoeling is dus dat het txtveld me.tijdprijs adhv de waarde van combobox 1 en 2, zijn waarde toegewezen krijgt.
Wie zou mij de goede richting op kunnen wijzen of een ander voorstel kunnen doen. Stel gerust vragen voor meer info.
Heb het ook al geprobeerd met een do while loop, maar die liep niet zo lekker.
Ik ben al een paar dagen op zoek naar de fout in mijn code, maar zie het niet. Misschien dat iemand anders een andere kijk op de zaak kan brengen.
Het gaat om een normaal formulier in access met 2 cbo's en 2 txtvelden
de eerste combo haalt gegevens op uit een tabel
de tweede combo is afhankelijk van de eerste en geeft dan zijn waarden weeer.
die codes staan onder de rijbron van de 2 cbo's
combodia en comboafw genoemd.
ze hebben meerdere kolommen, en uit één zo'n kolom wil ik waarde vergelijken en laten opzoeken door een SQL code.
de volgende code werkt niet naar believe, het geeft de string weer in 1 van de tekstvelden
als ik alleen een kolom laat verwijzen naar een tekstveld krijg ik zonder probleem de waarde.
De bedoeling is dus dat het txtveld me.tijdprijs adhv de waarde van combobox 1 en 2, zijn waarde toegewezen krijgt.
Code:
Private Sub test_Click()
Dim strSQL As String
Dim intSQL As Double
Dim strprijs As String
Me.combodia.Requery
strprijs = Me.combodia.Column(1)
'de tweede kolom van combodia bevat ook prijsID met dezelfde waarden als dus in tblbuisprijs
If Not IsNull(Me.comboafw) And Not IsNull(Me.combodia) Then
strSQL = "SELECT tblbuisprijs.Prijs " & _
"FROM tblbuisprijs " & _
"WHERE tblbuisprijs.[prijsID]= '" & strprijs & "';"
End If
'DoCmd.RunSQL strSQL
'intSQL = CInt(strSQL)
Me.tijdprijs = strSQL
Me.tijdprijs.Requery
End SubWie zou mij de goede richting op kunnen wijzen of een ander voorstel kunnen doen. Stel gerust vragen voor meer info.
Heb het ook al geprobeerd met een do while loop, maar die liep niet zo lekker.
Laatst bewerkt:
