S
SF
Hi,
I have a data entry form having 5 fields and 1 save button link to a
temporary table (1 PK and 4 memo fileds). These memo fields are bound to
Leban RTF 1.8. The form is set to record multiple records. When I click the
save button, the last record alway been ignored by the append query (If the
table has 5 record, only 4 is added).
Could someone advice?
btnSave
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim qdf As DAO.QueryDef
Dim Vstd As Long
Dim Stg As String
If IsNull(Me.MsID) Then
MsgBox "Error Found! Missing ID:", vbOKOnly + vbInformation
DoCmd.Close
Exit Sub
End If
DoCmd.Hourglass True
Set dbs = CurrentDb
Vstd = Me.MsID
Set qdf = dbs.QueryDefs("AddDetailMileStone")
qdf.Parameters("S") = Vstd
qdf.Execute dbFailOnError
Set qdf = Nothing
''Call ClearTempMiletone
DoCmd.Hourglass False
DoCmd.Close
End Sub
SF
I have a data entry form having 5 fields and 1 save button link to a
temporary table (1 PK and 4 memo fileds). These memo fields are bound to
Leban RTF 1.8. The form is set to record multiple records. When I click the
save button, the last record alway been ignored by the append query (If the
table has 5 record, only 4 is added).
Could someone advice?
btnSave
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim qdf As DAO.QueryDef
Dim Vstd As Long
Dim Stg As String
If IsNull(Me.MsID) Then
MsgBox "Error Found! Missing ID:", vbOKOnly + vbInformation
DoCmd.Close
Exit Sub
End If
DoCmd.Hourglass True
Set dbs = CurrentDb
Vstd = Me.MsID
Set qdf = dbs.QueryDefs("AddDetailMileStone")
qdf.Parameters("S") = Vstd
qdf.Execute dbFailOnError
Set qdf = Nothing
''Call ClearTempMiletone
DoCmd.Hourglass False
DoCmd.Close
End Sub
SF