I've a form with tabs on it.
Some tabs has a subform on it.
I select tab 1 (with a subform). This subform has closed Details. I open the Details and show a new record.
Then I choose a other tab. It use this VBA-code
Private Sub TabbestEl6_Click()
' bij keuze, voor het geval er al een keuze was. Me.menukeuze=oude keuze
Select Case Me.menukeuze
Case 1
If IsNull(Me!FormulierDagboek.Form.nummer) Then
Me!FormulierDagboek.Form.nummer = Null
Me!FormulierDagboek.Form.Undo
Else
Me!FormulierDagboek.Form.omschrijving.SetFocus
Me!FormulierDagboek.Form.Recordset.Delete
End If
Me!FormulierDagboek.Form.Details.Visible = False
Me!FormulierDagboek.Form.Toevoegen.Visible = True
End Select
'bij keuze hier de nieuwe keuze aan Me.menuekeuze toekennen
Select Case TabbestEl6
Case 0
Me.menukeuze = 0
Case 1
Me.menukeuze = 1
Case 2
Me.menukeuze = 2
Case 3
Me.menukeuze = 3
Case 4
Me.menukeuze = 4
End Select
Me.Refresh
End Sub
So far so good.
Then I do the same again, but then it tells me I don't have a current record.
What do I do wrong? Who can help me.
Regards,
Frits
Some tabs has a subform on it.
I select tab 1 (with a subform). This subform has closed Details. I open the Details and show a new record.
Then I choose a other tab. It use this VBA-code
Private Sub TabbestEl6_Click()
' bij keuze, voor het geval er al een keuze was. Me.menukeuze=oude keuze
Select Case Me.menukeuze
Case 1
If IsNull(Me!FormulierDagboek.Form.nummer) Then
Me!FormulierDagboek.Form.nummer = Null
Me!FormulierDagboek.Form.Undo
Else
Me!FormulierDagboek.Form.omschrijving.SetFocus
Me!FormulierDagboek.Form.Recordset.Delete
End If
Me!FormulierDagboek.Form.Details.Visible = False
Me!FormulierDagboek.Form.Toevoegen.Visible = True
End Select
'bij keuze hier de nieuwe keuze aan Me.menuekeuze toekennen
Select Case TabbestEl6
Case 0
Me.menukeuze = 0
Case 1
Me.menukeuze = 1
Case 2
Me.menukeuze = 2
Case 3
Me.menukeuze = 3
Case 4
Me.menukeuze = 4
End Select
Me.Refresh
End Sub
So far so good.
Then I do the same again, but then it tells me I don't have a current record.
What do I do wrong? Who can help me.
Regards,
Frits