title image


Smiley Per VBA Word Serienbrief mit einem DS füllen
@Hubert,



da die PM zurückkam, hier der Code:



Pfad1 ist die Datenbank

Private Const Pfad1 = "C:\DB.mdb"



Sub DatenVonDBImportierenMitDAO1()

Dim Mldg, Titel, Voreinstellung, Wert1

Mldg = "Anfangsbuchstabe(n) des Nachnamens eingeben" ' Aufforderung festlegen.

Titel = "InputBox-Demo" ' Titel festlegen.

Voreinstellung = "*" ' Voreinstellung festlegen.

' Meldung, Titel und Standardwert anzeigen.



Dim nDoc As Word.Document

Set ws = DBEngine.Workspaces(0)

On Error Resume Next

Set db = ws.OpenDatabase(Pfad1)

rc = Err.Number

fehler = Err.Description

On Error GoTo 0

If rc > 0 Then

m = "Die Verbindungsaufnahme mit DAO zu " & Pfad & " ist fehlgeschlagen."

m = m & vbLf & vbLf & "rc: " & rc & vbLf & "Fehler: " & fehler

MsgBox m, vbExclamation



Exit Sub

End If





Wert1 = InputBox(Mldg, Titel, Voreinstellung)



If Wert1 "" Then

If Wert1 = "*" Then

strSQL = "Select * from gadoc"

strSQL = "SELECT * FROM gadoc WHERE Patname like '*'"

Else

strSQL = "Select * from gadoc"

strSQL = "SELECT * FROM gadoc WHERE gadoc.Patname like '" & Wert1 & "'"

strSQL = strSQL & " Order by Patname "

End If

End If



Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)

If rs.RecordCount = 0 Then

MsgBox "Es wurden keine Entsprechungen gefunden."



Exit Sub

End If

'Set nDoc = Documents.Add

Do While Not rs.EOF

ActiveDocument.Content.InsertAfter rs.Fields("Patname") & vbTab _

& rs.Fields("Vorname") & vbCrLf

rs.MoveNext

Loop

End Sub


Gruß Marie

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: