This is what I am working on. When patients count is 0, it works, but when it is increased, suppose 1, it gives an error: "An UPDATE or DELETE query doesn't contain Multi Value Field." What's the problem, Please help me out. Thank you very much.
Code:
rs = New ADODB.Recordset With rs .Open("Select * from Doctor where DName='" & cmbDoctors.Text & "'", cn, 2, 3) If .Fields("Patients").Value = 10 Then MsgBox("All appointments had been taken. Please Select another Doctor.") Exit Sub End If patient = Txtname.Text If .Fields("Patients").Value = 0 Then .Fields("Patient0").Value = patient ElseIf .Fields("Patients").Value = 1 Then .Fields("Patient1").Value = patient ElseIf .Fields("Patients").Value = 2 Then .Fields("Patient2").Value = patient ElseIf .Fields("Patients").Value = 3 Then .Fields("Patient3").Value = patient ElseIf .Fields("Patients").Value = 4 Then .Fields("Patient4").Value = patient ElseIf .Fields("Patients").Value = 5 Then .Fields("Patient5").Value = patient ElseIf .Fields("Patients").Value = 6 Then .Fields("Patient6").Value = patient ElseIf .Fields("Patients").Value = 7 Then .Fields("Patient7").Value = patient ElseIf .Fields("Patients").Value = 8 Then .Fields("Patient8").Value = patient ElseIf .Fields("Patients").Value = 9 Then .Fields("Patient9").Value = patient End If .Fields("Patients").Value += 1 .Fields("Fees").Value += txtAmount.Text .Update() .Close() End With
Comment