Hello, I am new to access, please I need help. I want a table with beneficiaries details with names and ID and a checkbox , I have added a search button on the form but I want if I search my checkbox automatically checkeck yes if the record if found. Please help.
Database (1 Viewer)
- Thread starter Salihu
- Start date
thanks for you response. Below is the vb i am using,it searches for records and checks check box to yes,but i need it to save the record found in another table if record is found or simply update the tables checkbox so that i can print or use it for analysis.
thank you.
Private Sub Command8_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("table1")
Dim x As Integer
x = 0
While rs.EOF = False
If rs!ID = Val(Text0) Then
Text4 = rs!beneficiary
Text6 = rs!age
Check9 = True
x = 1
End If
rs.Move 1
Wend
If x = 1 Then
MsgBox ("found")
Else: MsgBox ("not found")
End If
End Sub
thank you.
Private Sub Command8_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("table1")
Dim x As Integer
x = 0
While rs.EOF = False
If rs!ID = Val(Text0) Then
Text4 = rs!beneficiary
Text6 = rs!age
Check9 = True
x = 1
End If
rs.Move 1
Wend
If x = 1 Then
MsgBox ("found")
Else: MsgBox ("not found")
End If
End Sub
arnelgp
..forever waiting... waiting for jellybean!
- Local time
- Today, 13:47
- Joined
- May 7, 2009
- Messages
- 19,233
i slightly modify your code:
Code:
Private Sub Command8_Click()
With Currentdb.OpenRecordset("SELECT table1.* FROM table1 WHERE [ID] = " & Val([Text0]))
If .RecordCount > 0 Then
[Check9]=True
.MoveFirst
[Text4]=!Beneficiary
[Text6]=!Age
Msgbox "Found"
Else
Msgbox "Not Found"
If [Check9]=True Then [Check9]=False
End If
End With
End Sub
- Local time
- Today, 06:47
- Joined
- Jul 9, 2003
- Messages
- 16,280
Is the problem a spelling mistake?
Code:
'arnelgp
If .RecordCount > 0 Then
'Salihu
If .Recordsetcount > 0 then
