K
KBDB
Hi,
I'm trying to add a record to my table that has an attachment via DAO.
I can't figure out my last step here.
Here is my code:
Private Sub SaveTheRecordClick()
Dim dbs As Database
Dim rst As DAO.Recordset
Dim rstComplex As DAO.Recordset2
Set rst = dbs.OpenRecordset("Current Issues", dbOpenDynaset)
Set rstComplex = Me.Recordset!Attach1.Value
rstComplex.FindFirst "FileName='" & Me.Attach_Label.FileName & "'"
With rst
On Error GoTo Errorhandle2
If rst.EOF Then
If rst.Updatable = True Then
rst.AddNew
rst!Title = Me.Title
rst!Attach1 = ????????????
Would you be so kind and help me out?
I would really appreciate it.
Thank you,
Kathleen
I'm trying to add a record to my table that has an attachment via DAO.
I can't figure out my last step here.
Here is my code:
Private Sub SaveTheRecordClick()
Dim dbs As Database
Dim rst As DAO.Recordset
Dim rstComplex As DAO.Recordset2
Set rst = dbs.OpenRecordset("Current Issues", dbOpenDynaset)
Set rstComplex = Me.Recordset!Attach1.Value
rstComplex.FindFirst "FileName='" & Me.Attach_Label.FileName & "'"
With rst
On Error GoTo Errorhandle2
If rst.EOF Then
If rst.Updatable = True Then
rst.AddNew
rst!Title = Me.Title
rst!Attach1 = ????????????
Would you be so kind and help me out?
I would really appreciate it.
Thank you,
Kathleen