Subform creation

[fspata]

Can you create a subform after the main form has been created? If not, can you link 2 forms? My "Subform" just has 2 buttons, Check In and Check Out as options which open the main form. I want to also be able to enter NOW() into an existing table with check in and out fields.

[June7]

Certainly. Just grab the subform/subreport container control from the Design tab and pull it onto the main form.

What do you mean by 'open the main form'? Subforms do not open main forms.

DefaultValue property can be used to set CheckIn field to populate with Now().

Will need code to set value of CheckOut field.

[fspata]

All I meant was that my Check in/out buttons do an OpenForm command and I just want the table that have the Check In and Check Out fields to update with the timestamp that they execute that. Sorry for the confusion.

[June7]

So need to open filtered to appropriate record and set field with Now() value?

Rough example:

DoCmd.OpenForm "form name", , , "ID=" & Me.ID
Me.fieldname = Now()

[fspata]

After thinking about my whole process, I've decided to try to simplify the form and just use the Check in/out spalsh form, as I call it, exactly that. I want to set either button they choose to TRUE; Open my other form, called Initial, enter their info and press submit. This is the code I am using on the submit button. I am getting runtime error 2465.

My Check In button runs a macro to OpenForm Initial Onclick, also the following code is in the Onclick event.

Private Sub Command8_Click()
Dim strTimein As String
strTimein = True
End Sub

This is my Submit button on the Initial form.

Private Sub Submit_Click()
If Forms![Splash]!Command8 = "TRUE" Then
'[Souls] = [Souls] + 1
Me![Check In] = Now()
Else
If Forms![Splash]!Command9 = "TRUE" Then
'[Souls] = [Souls] - 1
Me![Check Out] = Now()
End If
End If
RunCommand acCmdSaveRecord
Me.Requery
End Sub

[fspata]

Did I mention I was pretty new at this,

After thinking about my whole process, I've decided to try to simplify the form and just use the Check in/out spalsh form, as I call it, exactly that. I want to set either button they choose to TRUE; Open my other form, called Initial, enter their info and press submit. This is the code I am using on the submit button. I am getting runtime error 2465.

My Check In button runs a macro to OpenForm Initial Onclick, also the following code is in the Onclick event.

Private Sub Command8_Click()
Dim strTimein As String
strTimein = True
End Sub

This is my Submit button on the Initial form.

Private Sub Submit_Click()
If Forms![Splash]!Command8 = "TRUE" Then
'[Souls] = [Souls] + 1
Me![Check In] = Now()
Else
If Forms![Splash]!Command9 = "TRUE" Then
'[Souls] = [Souls] - 1
Me![Check Out] = Now()
End If
End If
RunCommand acCmdSaveRecord
Me.Requery
End Sub

[June7]

The Command8 click event serves no purpose. Command buttons do not have a True/False state. Command buttons do not have any value.

The strTimein variable declared in Command8 click event is not available to any other procedure. It has a life only within that event.

If you want to provide db for analysis, follow instructions at bottom of my post.