Subform not allowing creation of new record

[sakuragirl1]

I am working on my second Access project and have run into an issue I
cannot get around nor find info on.

I have a form, with a subform in datasheet view. Within the subform I
have a hyperlink field that is populated when the checkbox field is
clicked. There are no other fields. Once the hyperlink field is filled,
the form does not add a new record for more input. I believe this is
because all the input is done behind the scenes per se, but i cannot
figure out how to fix! Any suggestions are welcome.
Thank you!

[Pachydermitis]

It sounds like you need to link the forms.

[sakuragirl1]

Thank you for your response. The forms are currently linked. if i have
2 textboxes on the subform the subform works correctly. it is only when
i have a checkbox and a hyperlink field that it no longer creates a new
record. Any other suggestions?

[sakuragirl1]

i think i need to clarify a bit more on this; the hyperlink field data
is programically input. I think this is the reason it does not give me
an option to add more, because i am not typing directly into the field.

Private Sub Command18_Click()
On Error GoTo Err_Command18_Click

Dim lngFlags As Long
Dim strfilter As String
Dim strPathAndFile As String
Me.AllowAdditions = True
Me.AllowDeletions = False
strfilter = ahtAddFilterItem(strfilter, "Word Documents (*.doc)",
"*.DOC")
strfilter = ahtAddFilterItem(strfilter, "Excel Documents (*.xls)",
"*.XLS")
strfilter = ahtAddFilterItem(strfilter, "All Files (*.*)", "*.*")
strPathAndFile =
ahtCommonFileOpenSave(InitialDir:="\\department\sh are\", _
Filter:=strfilter, FilterIndex:=3, Flags:=lngFlags, _
DialogTitle:="Choose a File")
If Len(strPathAndFile) > 0 Then
'MsgBox "You selected: " & strPathAndFile
[Form_Gains Chart]!AttachmentLink.Value = Right(strPathAndFile,
Len(strPathAndFile) - InStrRev(strPathAndFile, "\")) & "#" &
strPathAndFile & "#"
Else
MsgBox "You didn't select a file"
End If

Exit_Command18_Click:
Exit Sub
Err_Command18_Click:
MsgBox "Error " & Err.Number & " : " & Err.Description & " in
Command18_Click", vbExclamation, "Model Scoring Form 4"
Resume Exit_Command18_Click
DoCmd.Save
End Sub