Adding Records from Unbound Form to Database Table

[lzook88]

June7 thank you for that!

[June7]

Glad it's working.

However, now I think labels are better choice for the name and ID values because then users could not click into them (although the ID controls can be not visible to prevent that).

If you do stay with textboxes and they are visible, be sure to set as Locked Yes and TabStop No.

[lzook88]

@June7 Thanks man.. I actually have one other question inside the submitting code

Private Sub CommandSubmit_Click()
Dim DBSS As Database
Dim rs As DAO.Recordset
Dim i As Integer

Set DBSS = CurrentDb
Set rs = CurrentDb.OpenRecordset("SELECT EXP_ID, ADate, Attended FROM Attendance")



With rs
        For i = 1 To 25
            .AddNew
            !ADate = Me.Text0.Value
            !EXP_ID = Me.Controls("exp" & i).Value
            !Attended = Me.Controls("attend" & i).Value
            .Update
        Next i
End With
            End
rs.Close
Set rs = Nothing
DoCmd.Close


End Sub

I have it working with this code.. However there are some times going to be blanks on the me.controls("exp" & i).value and i tried adding an IF Statement inside of the FOR statement. But I am getting an error that it can't continued.. I am not sure how I would add an IF Statement inside of the FOR Statement.

[June7]

Do you want to exit For with the first blank Exp_ID?

For i = 1 to 25
If Me.Controls("exp" & i) & "" = "" Then
Exit For
Else
With rs
...
End With
End If
Next

[lzook88]

Thank you very much for the help.. It is working out standing now.. I have the EXP_ID and the Names locked, tab stop = no and the EXP_ID is not visible..




Thanks AGAIN