Private Function UpdateData() As Boolean
On Local Error Goto err_UpdateData
 
    Dim idx As Long
 
    UpdateData = False
 
    bTransactInProgress = True
 
    pCon.BeginTrans
 
            For idx = 1 To txtObjekt.Count - 1
 
                If idx <= 4 Then
                    rsObject.Fields(idx).Value = txtObjekt(idx).Text
                Else
                    rsObject.Fields(idx + 1).Value = Val(txtObjekt(idx).Text)
                End If
 
            Next
 
            rsObject.Fields(5).Value = CLng(cboObjArt.BoundText)
        rsObject.Update
 
    pCon.CommitTrans
 
    RaiseEvent Modifyed(txtObjekt(0).Text)
 
    'DoEvents    - brachte auch nichts !!!!!!
'   -----------------Procedure-Exit---------------
Exit_UpdateData:
    bTransactInProgress = False
    '   Prozedur verlassen
    Exit Function
 
'   -----------------Err-Handler---------------
err_UpdateData:
    MsgBox Err.Description, vbCritical, "Modul:frmWrkObjekt, Proc:UpdateData"
    If (bTransactInProgress) Then pCon.RollbackTrans
    UpdateData = True
    Resume Exit_UpdateData
 
End Function

Private Sub xpbtnSave_Click()
On Local Error Goto err_xpbtnSave_Click
 
    If (CheckFields) Then Exit Sub
    With xpbtnSave
 
        Select Case Me.FormStatus
 
                Case fsedit:
                    'If (UpdateData) Then
                    '    Exit Sub
                    'End If
                    UpdateData
                Case fsnew:
 
                    If .Caption = C_DATA_SAVE Then
                        If (SaveData) Then
                            Exit Sub
                        Else
                            .Caption = C_DATA_NEW
                            bDurty = False
                        End If
                    Else
                        Call ClearForm
                        .Caption = C_DATA_SAVE
                    End If
        End Select
 
    End With
 
'   -----------------Procedure-Exit---------------
Exit_xpbtnSave_Click:
 
    '   Prozedur verlassen
    Exit Sub
 
'   -----------------Err-Handler---------------
err_xpbtnSave_Click:
    MsgBox Err.Description, vbCritical, "Modul:frmWrkObjekt," & _
      "Proc:xpbtnSave_Click"
    Resume Exit_xpbtnSave_Click
 
End Sub

Sch?ne Gr??e

Klaas


[Mein System: WinXP, Visual Basic Enterprise Edition SP5, Office XP]