Please try:
Code:
Private Sub Command9_Click()
DoCmd.Requery
If IsNull(Me.txtQCDateEntry) = True Then
MsgBox ("Please sign entries of this case")
Exit Sub
End If
If MsgBox("This will create a new entry, would you like to continue?", vbYesNo, "Edit an entry") = vbYes Then
Dim Micro_Analysis As DAO.Recordset
Set Micro_Analysis = CurrentDb.OpenRecordset("Micro_Analysis", dbOpenDynaset)
Micro_Analysis.AddNew
Micro_Analysis![Slide Label] = Me.btnEditSelect.Value
The slide label will fill the information on a Look up to Slide Label to keep integrity of the relationship
Micro_Analysis![AnalysisNumber] = Me.txtAnalysisNumber.Value
Micro_Analysis.Update
The analysis number will be a ID-like field (the real ID is hidden) to say how many times this was analysed
'DoCmd.OpenForm "EDITION DEVICE"
End If
End Sub
Cheers,