Listbox mit MailMerge Datenverknüpfung

  • Word

Es gibt 42 Antworten in diesem Thema. Der letzte Beitrag () ist von Sam85.

    @petaod

    :) ich mach das auch zum ersten Mal, ansich ist das mein vorerst letztes Problem. Eintrag Eins in der Listbox gleichsetzen mit Eintrag Eins im RecordSet. Nun denn vielen Dank für die Hinweise, sollte ich noch was rausfinden poste ich es.

    Bis dahin einen guten Rutsch ins neue Jahr :).

    Falls es noch jemand interessiert, anderweitig konnte mir geholfen werden.
    Link

    Load DB
    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Sub conMDB()
    2. Set cn = CreateObject("ADODB.Connection")
    3. Set c = Me.lb_data
    5. str = "C:\Desktop\Quelle.mdb"
    7. With cn
    8. .CursorLocation = adUseClient
    9. .Mode = adModeShareDenyNone
    10. .Provider = "Microsoft.ACE.OLEDB.12.0"
    11. .ConnectionString = "Data Source=" & str
    12. .Open
    13. End With
    15. csql = "SELECT * FROM DOC ORDER BY ID"
    17. Set rs = CreateObject("ADODB.Recordset")
    18. rs.Open csql, cn, adOpenDynamic, adLockBatchOptimistic
    20. i = rs.Fields.Count
    22. While Not rs.EOF
    23. With c
    24. .ColumnCount = i
    25. .ColumnWidths = "20;120;150;100;50;100"
    26. .AddItem
    27. If IsNull(rs.Fields("ID").Value) Then .List(.ListCount - 1, 0) = " " Else .List(.ListCount - 1, 0) = rs.Fields("ID").Value
    28. If IsNull(rs.Fields("Praxis").Value) Then .List(.ListCount - 1, 1) = " " Else .List(.ListCount - 1, 1) = rs.Fields("Praxis").Value
    29. If IsNull(rs.Fields("Name").Value) Then .List(.ListCount - 1, 2) = " " Else .List(.ListCount - 1, 2) = rs.Fields("Name").Value
    30. If IsNull(rs.Fields("Anschrift").Value) Then .List(.ListCount - 1, 3) = " " Else .List(.ListCount - 1, 3) = rs.Fields("Anschrift").Value
    31. If IsNull(rs.Fields("PLZ").Value) Then .List(.ListCount - 1, 4) = " " Else .List(.ListCount - 1, 4) = rs.Fields("PLZ").Value
    32. If IsNull(rs.Fields("Ort").Value) Then .List(.ListCount - 1, 5) = " " Else .List(.ListCount - 1, 5) = rs.Fields("Ort").Value
    33. End With
    35. rs.MoveNext
    36. Wend
    37. rs.MoveFirst
    38. End Sub



    Add
    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Sub tbAdd()
    2. With rs
    3. .AddNew
    4. .Fields("Praxis").Value = Me.tb_1.Text
    5. .Fields("Name").Value = Me.tb_2.Text
    6. .Fields("Anschrift").Value = Me.tb_3.Text
    7. .Fields("PLZ").Value = Me.tb_4.Text
    8. .Fields("Ort").Value = Me.tb_5.Text
    9. .UpdateBatch adAffectAllChapters
    10. End With
    12. Me.lb_data.Clear
    14. Call conMDB
    15. End Sub



    Del
    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Sub tbDel()
    2. lng = Me.lb_data.Column(0)
    4. With rs
    5. .MoveFirst
    6. .Filter = ("ID=" & lng)
    7. .Delete adAffectCurrent
    8. .UpdateBatch adAffectCurrent
    9. .Filter = 0
    10. .MoveFirst
    11. End With
    13. Me.lb_data.Clear
    15. Call conMDB
    16. End Sub



    Save
    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Sub tbSave()
    2. lng = Me.lb_data.Column(0)
    4. With rs
    5. .MoveFirst
    6. .Filter = ("ID=" & lng)
    7. .Fields("Praxis").Value = Me.tb_1.Text
    8. .Fields("Name").Value = Me.tb_2.Text
    9. .Fields("Anschrift").Value = Me.tb_3.Text
    10. .Fields("PLZ").Value = Me.tb_4.Text
    11. .Fields("Ort").Value = Me.tb_5.Text
    12. .UpdateBatch adAffectCurrent
    13. .Filter = 0
    14. .MoveFirst
    15. End With
    17. Me.lb_data.Clear
    19. Call conMDB
    20. End Sub


    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Sam85“ ()

Facebook
Telefonspende