Data entry with Leban RTF

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
 
Top