| |
Member
Beiträge: 17
| Ich habe gerade alles was nicht benötigt wird für die Eingabe einer neuen Ländervorwahl gelöscht.
Dann funktioniert es.
Nun noch folgende die Zusatzinformation. Sobald ein Datensatz im hForm oder uForm geändert wird,
wird die SUB FORM_DIRTY durchlaufen. Vieleicht hat das einen Einfluß ??
Private Sub Form_Dirty(Cancel As Integer)
10 On Error Resume Next
20 If Me.DirtyForm = False Then
30 Me.DirtyForm = True
40 wrk.BeginTrans
80 End If
End Sub
In Form_Current
Private Sub Form_Current()
Dim rst As DAO.Recordset
10 On Error Resume Next
73 Set rst = db.OpenRecordset(GetSqlStrg("tblTelefonPrivat", Nz(Me.IDKunde, 0)), dbOpenDynaset)
74 Set Me!uFrmTelefonPrivat.Form.Recordset = rst 'Assig rcordset to uFrmTelefonPrivat.
End Sub
Public Property Get DirtyForm() As Boolean
10 On Error Resume Next
20 DirtyForm = mDirtyForm
End Property
Public Property Let DirtyForm(bolDirtyForm As Boolean)
10 On Error Resume Next
20 mDirtyForm = bolDirtyForm
End Property | |
|
