VBA Inserting two new records

[lzook88]

I have VBA code that inserts a new record in two tables from one form.



When I press the submit button, it creates the two records in the separate tables as I wanted, however it creates a blank record with only one field ("Station") filled out in the table tblUsers.

Private Sub CloseUser_Click()
Dim DBBS As Database
Dim rs As DAO.Recordset
Dim rss As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT FullName, HashID, Password, UserSecurity, Station, Status FROM tblUsers")

With rs
    .AddNew
    !FullName = Me.UserName
    !HashID = Me.HashID
    !Password = Me.Password
    !UserSecurity = Me.UserSecurity
    !Station = Me.Station
    !Status = Me.Status
    .Update
End With
rs.Close
Set rs = Nothing
Set rss = CurrentDb.OpenRecordset("SELECT PLocation, Shift, Type, Station FROM tblLocations")
With rss
    .AddNew
    !PLocation = Me.HashID
    !Shift = Me.Shift
    !Type = Me.Type
    !Station = Me.Station
    .Update
End With
rss.Close
Set rss = Nothing
DoCmd.Close
End Sub

I have a feeling it might have something to do with both tables having that station value but that is all I could think of.. any help would be greatly appreciated.

Thanks as always

[orange]

Is the button CloseUser your "submit" button?

I would put a break point on your first Set statement, the step through the code using local watches to confirm values and assignments. Since you are not looping in your code, I don't see why/how it would add ore than 1 record in each table.
But you may find something unexpected by stepping through the code.
Good luck.

[lzook88]

I found the issue. I some how accidently tied the "Station" combobox field back to the Station field on the Users Table. So when the form would close it would save that record.

all fixed! Just had to do it step by step to see where it was getting put in at.


Thanks.