Being a rookie at Access, I imagine the answer is simple. I am developing a waiting list using a SIN number as a primary key. What I'm hoping to accomplish is when I enter in the SIN number the form fills with their previous information unless they are a new client. Any ideas would be helpful.
Waitlist creation
- Thread starter Bear
- Start date
Travis
Registered User.
- Local time
- Today, 14:23
- Joined
- Dec 17, 1999
- Messages
- 1,332
Try this:
On the AfterUpdate of the SIN Number
Private Sub SIN_AfterUpdate()
on error resume next
Dim rst as RecordSource
set rst = Currentdb.OpenRecordSet("Select * from [tblData] where SIN = " & me.SIN,dbOpenSnapShot)
rst.movefirst
if Err.Number = 0 Then 'This is only for SINs with data
Me.[Field1] = rstFields("Field1")
Me.[Field2] = rstFields("Field2")
Me.[Field3] = rstFields("Field3")
Me.[Field4] = rstFields("Field4")
set rst = Nothing
end if
Just add new lines if you need them.
On the AfterUpdate of the SIN Number
Private Sub SIN_AfterUpdate()
on error resume next
Dim rst as RecordSource
set rst = Currentdb.OpenRecordSet("Select * from [tblData] where SIN = " & me.SIN,dbOpenSnapShot)
rst.movefirst
if Err.Number = 0 Then 'This is only for SINs with data
Me.[Field1] = rstFields("Field1")
Me.[Field2] = rstFields("Field2")
Me.[Field3] = rstFields("Field3")
Me.[Field4] = rstFields("Field4")
set rst = Nothing
end if
Just add new lines if you need them.
Similar threads
