title image


Smiley Re: Wie kann man per VBA bestimmte Datensätze in Access-Datenbank löschen?
Public Const dbName = "D:\Kunden.mdb"

Public Const tblName = "tblKunden"

'

Sub TestAccDelete()

Dim ws As DAO.Workspace

Dim db As DAO.Database

Dim rsDAO As DAO.Recordset

'

Set ws = DBEngine.Workspaces(0)

Set db = ws.OpenDatabase(dbName)

Set rsDAO = db.TableDefs(tblName).OpenRecordset(dbOpenDynaset)

rsDAO.MoveLast

rsDAO.MoveFirst

'

'sSuche = "Nachname = '" & TextBox7.Text & "'"

sSuche = "Nachname = '" & Grün & "'"

rsDAO.FindFirst sSuche

rsDAO.Delete

'

rsDAO.Close

Set rsDAO = Nothing

Set db = Nothing

ws.Close

Set ws = Nothing

End Sub

'

' Ändern am Beispiel aus einer Userform (2000/XP)

Frohe Osterfeiertage













geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: