Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
20.04.2004 16:38:04 |
manuel |
|
|
|
21.04.2004 10:34:53 |
Rasta |
|
|
|
21.04.2004 13:14:08 |
manuel |
|
|
|
21.04.2004 13:27:21 |
Rasta |
|
|
|
21.04.2004 13:31:55 |
manuel |
|
|
Aw:Aw:Aw:Aw:Aw:naechste zeile im datenblatt |
21.04.2004 13:56:09 |
Rasta |
|
|
Von:
Rasta |
Datum:
21.04.2004 13:56:09 |
Views:
1086 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Aw:naechste zeile im datenblatt |
Hallo Manuel,
also, Dein Problem ist, wie ich bisher verstanden habe, zwischen den einzelnen datensätzen deines Recordsets zu blättern, right?
das machst du so:
do
if rs.eof = true then exit do
txtNachName = txtnachname & " " & rs("Nachname")
rs.movenext
loop
so jedenfalls sollte er durch alle verfügbaren datensätze blättern und diese in deine variable txtnachname schreiben.
hoffe es hilft
gruß
rasta
manuel schrieb am 21.04.2004 13:31:55:
servus,
das makro laeuft im access - hier der code!
Public Sub DatenLesen()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim intI As Integer
Dim txtAus As String
Dim txtNachName As String
Dim txtVorName As String
Dim txtNummer As String
Dim txtPLZ As String
Dim txtStrasse As String
Dim txtWohnort As String
Dim strDateiname As String
Dim strDateinameNeu As String
strDateiname = "D:XXXXXX\datenbank_brief.doc"
strDateinameNeu = "D:\XXXXXXX\datenbank_brief.doc"
Documents.Add Template:=strDateiname
Set db = DBEngine(0)(0)
Set rs = db.OpenRecordset("Personal")
'rs.MoveNext
Do
For intI = 0 To 0
txtNachName = txtNachName & rs.Fields("Nachname").Value & " "
txtVorName = txtVorName & rs.Fields("Vorname").Value
txtNummer = txtNummer & rs.Fields("Hausnummer").Value & " "
txtStrasse = txtStrasse & rs.Fields("Strasse").Value
txtPLZ = txtPLZ & rs.Fields("Postleitzahl").Value & " "
txtWohnort = txtWohnort & rs.Fields("Wohnort").Value
Selection.TypeText Text:=txtNachName & " " & txtVorName & vbCr
Selection.TypeText Text:=txtStrasse & " " & txtNummer & vbCrLf
Selection.TypeText Text:=txtPLZ & " " & txtWohnort & vbCr
Next
Loop Until rs.EOF = False
End Sub
Rasta schrieb am 21.04.2004 13:27:21:
Hi Manuel,
wenn du die datenbank mit "ADO" abfrägst, meinst du etwa:
do until rs.eof
datensatz = rs("Name")
datensatz2 = rs("Vorname")
rs.movenext
loop
?? poste doch mal Deinen Code....
und ich hab noch nicht verstanden, wo das makro läuft- in access oder word?
gruß
rasta
manuel schrieb am 21.04.2004 13:14:08:
servus rasta,
sorry aber da meinte ich ned - es geht darum da ich ne tabelle hab mit daten die er mir ausliest un din ein doc schreibt - er hoert aber nach der ersten zeile auf - er soll aber alle zeilen nacheinander durchlaufen! sprich am ende der zeile soll er auf die naechste zeile gehen und das check i ned!
gruss manuel!
Rasta schrieb am 21.04.2004 10:34:53:
Guten Morgen Manuel,
mit der Eigenschaft "TabIndex" kannst Du bestimmen, in welcher Reihenfolge die einzelnen Elemente angesprungen werden.
Sollte das nicht die gesuchte Lösung sein, bitte das Problem weiter konkretisieren
Gruß
Rasta
manuel schrieb am 20.04.2004 16:38:04:
hallo zusammen,
ich hab ne access-db mit nachnamen vornamen etc dabei soll er mir die daten die ich ihm sage in ein doc schreiben - das macht er auch soweit ganz nett - nur aber leider nur die erste zeile des datenblattes!wie gewoehn ich ihm das an das er mir in die zweite zeile und dan in die dritte etc spring?
danke schon mal!
gruss manuel!
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
20.04.2004 16:38:04 |
manuel |
|
|
|
21.04.2004 10:34:53 |
Rasta |
|
|
|
21.04.2004 13:14:08 |
manuel |
|
|
|
21.04.2004 13:27:21 |
Rasta |
|
|
|
21.04.2004 13:31:55 |
manuel |
|
|
Aw:Aw:Aw:Aw:Aw:naechste zeile im datenblatt |
21.04.2004 13:56:09 |
Rasta |
|
|