title image


Smiley Re: Laufzeitfehler in VBA nur warum?
Bei mir funzt es so...







Private Sub strExtension_NotInList(NewData As String, Response As Integer)

  Response = acDataErrAdded

  Dim rs As DAO.Recordset

  Set rs = Current.OpenRecordset("tblExtension", dbOpenDynaset)

  If MsgBox("Die Export-Erweiterung ist nicht vorhanden. Möchten Sie diese anlegen?", vbYesNo) = vbYes Then

    rs.AddNew

    rs!strExtension = NewData

    rs!intArt = 2

    rs.Update

  Else

    Response = acDataErrContinue

    Me!strExtension.Undo

  End If

  Set rs = Nothing

End Sub







Code eingefügt mit Syntaxhighlighter 4.0





Mußt du halt nur noch anpassen...



Gruß aus Wuppertal

Gruß aus Wuppertal
Stefan

-------------------------------------------------------------------------------
Soweit nicht anders angegeben, beziehen sich meine
Antworten auf WinXP SP2 und Access2003.
-------------------------------------------------------------------------------

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: