Control on Continuous Form

[ladybug via AccessMonster.com]

I have a table that has three fields. First is date, Second is a text field,
the third is a number.

I want to create a form where the date is entered at the top and then the
text field and number field is a continuous form below. I want to be able to
enter in numerous entries under that date without having to enter the date
each time. Can someone help me through the steps in setting this up?

I had the date in the header and then the text and number field in the detail
set to continuous. However, when I enter in the date and then enter the
other two fields when I hit tab it clears out the date.

--
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/200708/1

[Phil Stanton]

On the main form have an unbound textbox called DateEnter

On the Subform have the DateField called say DateEvent

Then you need this bit of code on the BeforeInsert Event on the subform.
(You might consider setting the DefautValue of DateEvent = Date() to set
today's date)

Option Compare Database
Option Explicit

Private Sub Form_BeforeInsert(Cancel As Integer)

If IsNull(DateEvent) Then
If Not IsDate(Me.Parent!DateEnter) Then
MsgBox "There is no date on the top of the form", vbInformation
Cancel = True
Exit Sub
Else
DateEvent = Me.Parent!DateEnter
End If
End If

End Sub

HTH

Phil

"ladybug via AccessMonster.com" <u21071@uwewrote in message
news:7717a95b5de31@uwe...

>I have a table that has three fields. First is date, Second is a text
field,
the third is a number.

I want to create a form where the date is entered at the top and then the
text field and number field is a continuous form below. I want to be able
to
enter in numerous entries under that date without having to enter the date
each time. Can someone help me through the steps in setting this up?

I had the date in the header and then the text and number field in the
detail
set to continuous. However, when I enter in the date and then enter the
other two fields when I hit tab it clears out the date.

--
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/200708/1

[plum.is.caejwp]

On Aug 23, 7:06 am, "ladybug via AccessMonster.com" <u21071@uwe>
wrote:

I have a table that has three fields. First is date, Second is a text field,
the third is a number.

I want to create a form where the date is entered at the top and then the
text field and number field is a continuous form below. I want to be able to
enter in numerous entries under that date without having to enter the date
each time. Can someone help me through the steps in setting this up?

I had the date in the header and then the text and number field in the detail
set to continuous. However, when I enter in the date and then enter the
other two fields when I hit tab it clears out the date.

--
Message posted via AccessMonster.comhttp://www.accessmonster.com/Uwe/Forums.aspx/databases-ms-access/2007...

[ladybug via AccessMonster.com]

How do I create a subform when the only other data on the main form is an
unbound text field?

Phil Stanton wrote:

>On the main form have an unbound textbox called DateEnter

On the Subform have the DateField called say DateEvent

Then you need this bit of code on the BeforeInsert Event on the subform.
(You might consider setting the DefautValue of DateEvent = Date() to set
today's date)

Option Compare Database
Option Explicit

Private Sub Form_BeforeInsert(Cancel As Integer)

If IsNull(DateEvent) Then
If Not IsDate(Me.Parent!DateEnter) Then
MsgBox "There is no date on the top of the form", vbInformation
Cancel = True
Exit Sub
Else
DateEvent = Me.Parent!DateEnter
End If
End If

End Sub

HTH

Phil

>>I have a table that has three fields. First is date, Second is a text
field,

[quoted text clipped - 10 lines]

>set to continuous. However, when I enter in the date and then enter the
other two fields when I hit tab it clears out the date.

--
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/200708/1

[ladybug via AccessMonster.com]

Ok, please disregard my last posting. I talked before I thought. :)

I did what you said and now I am getting this error:
The expression BeforeInsert you entered as the event property setting
produced the following error: Ambiguous name detected: Form_BeforeInsert.

Phil Stanton wrote:

>On the main form have an unbound textbox called DateEnter

On the Subform have the DateField called say DateEvent

Then you need this bit of code on the BeforeInsert Event on the subform.
(You might consider setting the DefautValue of DateEvent = Date() to set
today's date)

Option Compare Database
Option Explicit

Private Sub Form_BeforeInsert(Cancel As Integer)

If IsNull(DateEvent) Then
If Not IsDate(Me.Parent!DateEnter) Then
MsgBox "There is no date on the top of the form", vbInformation
Cancel = True
Exit Sub
Else
DateEvent = Me.Parent!DateEnter
End If
End If

End Sub

HTH

Phil

>>I have a table that has three fields. First is date, Second is a text
field,

[quoted text clipped - 10 lines]

>set to continuous. However, when I enter in the date and then enter the
other two fields when I hit tab it clears out the date.

--
Message posted via http://www.accessmonster.com

[Phil Stanton]

Odd.

The BeforInsert shoul only be on the subform. There should be no code on the
main form

Can you select ALL the code on the subform, copy it into your reply and post
it to the NewsGroup I guess there may be a difference in the names of the
controls

Phil
"ladybug via AccessMonster.com" <u21071@uwewrote in message
news:7721524c3d967@uwe...

Ok, please disregard my last posting. I talked before I thought. :)

I did what you said and now I am getting this error:
The expression BeforeInsert you entered as the event property setting
produced the following error: Ambiguous name detected: Form_BeforeInsert.

Phil Stanton wrote:

>>On the main form have an unbound textbox called DateEnter

On the Subform have the DateField called say DateEvent

Then you need this bit of code on the BeforeInsert Event on the subform.
(You might consider setting the DefautValue of DateEvent = Date() to set
today's date)

Option Compare Database
Option Explicit

Private Sub Form_BeforeInsert(Cancel As Integer)

If IsNull(DateEvent) Then
If Not IsDate(Me.Parent!DateEnter) Then
MsgBox "There is no date on the top of the form",
vbInformation
Cancel = True
Exit Sub
Else
DateEvent = Me.Parent!DateEnter
End If
End If

End Sub

HTH

Phil

>>>I have a table that has three fields. First is date, Second is a text
field,

[quoted text clipped - 10 lines]

>>set to continuous. However, when I enter in the date and then enter the
other two fields when I hit tab it clears out the date.

--
Message posted via http://www.accessmonster.com

[ladybug via AccessMonster.com]

The only code I have in the subform is what you gave me:
Private Sub Form_BeforeInsert(Cancel As Integer)
Option Compare Database
Option Explicit

Private Sub Form_BeforeInsert(Cancel As Integer)

If IsNull(DateEvent) Then
If Not IsDate(Me.Parent!DateEnter) Then
MsgBox "There is no date on the top of the form", vbInformation
Cancel = True
Exit Sub
Else
DateEvent = Me.Parent!DateEnter
End If
End If

End Sub

Phil Stanton wrote:

>Odd.

The BeforInsert shoul only be on the subform. There should be no code on the
main form

Can you select ALL the code on the subform, copy it into your reply and post
it to the NewsGroup I guess there may be a difference in the names of the
controls

Phil

>Ok, please disregard my last posting. I talked before I thought. :)

[quoted text clipped - 37 lines]

>>>set to continuous. However, when I enter in the date and then enter the
other two fields when I hit tab it clears out the date.

--
Message posted via http://www.accessmonster.com

[Phil Stanton]

OK The problem is the very first line. Delete it, it occurs twice and is in
the wrong place. The first line should be

Option Compare Database

In fact the first lines ov erery module should (always) be
Option Compare Database
Option Explicit

Phil

"ladybug via AccessMonster.com" <u21071@uwewrote in message
news:7722a31a30771@uwe...

The only code I have in the subform is what you gave me:
Private Sub Form_BeforeInsert(Cancel As Integer)
Option Compare Database
Option Explicit

Private Sub Form_BeforeInsert(Cancel As Integer)

If IsNull(DateEvent) Then
If Not IsDate(Me.Parent!DateEnter) Then
MsgBox "There is no date on the top of the form", vbInformation
Cancel = True
Exit Sub
Else
DateEvent = Me.Parent!DateEnter
End If
End If

End Sub

Phil Stanton wrote:

>>Odd.

The BeforInsert shoul only be on the subform. There should be no code on
the
main form

Can you select ALL the code on the subform, copy it into your reply and
post
it to the NewsGroup I guess there may be a difference in the names of the
controls

Phil

>>Ok, please disregard my last posting. I talked before I thought. :)

[quoted text clipped - 37 lines]

>>>>set to continuous. However, when I enter in the date and then enter
the
other two fields when I hit tab it clears out the date.

--
Message posted via http://www.accessmonster.com

[ladybug via AccessMonster.com]

THANK YOU!!!!!!!!!!!!!!!!!
Phil Stanton wrote:

>OK The problem is the very first line. Delete it, it occurs twice and is in
the wrong place. The first line should be

Option Compare Database

In fact the first lines ov erery module should (always) be
Option Compare Database
Option Explicit

Phil

>The only code I have in the subform is what you gave me:
Private Sub Form_BeforeInsert(Cancel As Integer)

[quoted text clipped - 34 lines]

>>>>>the
>other two fields when I hit tab it clears out the date.

--
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/200708/1