Hello my Assignment is in the final stage so I have one more problem to solve before it is finished. Right now I have Created A querry that Selects all the records in the Table when a certain field and its value is Equal to "Uitgeleend".
Now this Querry is linked to a form with a combo list and choice list for viewing the entire list of Loaned articles. This form will also have the function to deliver Articles Back to the system, therefore changing the value status from Uitgeleend to "Beschikbaar", and also two other fields back to Blank.
The Querry in Question that is the source of my form is the following:
Code:
SELECT BIB.AANWINSTNR, BIB.STATUS, BIB.UITLENER, BIB.UITGELEENDOP, BIB.O_I_II_III, BIB.STANDNR, BIB.KOP, BIB.TITEL, BIB.AUTEUR, BIB.EDITIE, BIB.PLAATSUITG, BIB.UITGEVER, BIB.JAAR, BIB.PAGINERING, BIB.ILLUSTRA, BIB.REEKS, BIB.ANNOTATIE, BIB.ISBN_NR, BIB.HERKOMST, BIB.KEY_WORDS, BIB.[UITGESCHREVEN OP]
FROM BIB
WHERE (((BIB.STATUS)="Uitgeleend"));
So the following has to change:
BIB.STATUS to "Beschikbaar"
BIB.Uitlener to Blank
BIB.Uitgeleendop to Blank
How do I do this in VBA?
Edit: So far this is the following code:
Code:
Private Sub Knop13_Click()
If "Query6Update.AANWINSTNR = '*'" & "Me.Keuzelijst9 = '*'" Then
Query6Update.STATUS = "Beschikbaar"
Query6Update.UITLENER = vbNullString
Query6Update.UITGELEENDOP = vbNullString
End If
End Sub
I get Error 13 Types do not match.