Makro til at loope gennem data og skrive txt-fil

Så prøver vi lige at smide lidt ekstra point i, for ville meget gerne have et lidt hurtigt svar, så jeg kan komme videre :-)

Er du frisk på at kode, for jeg tror ikke lige at en Access-makro kan klare det?

Værsgo - og send 250 kr. til "http://www.danskfolkepartiskalikkeregeredanmark.dk/", hvis du kan bruge det. Jeg har IKKE testet; det er blot flået ud af en program, jeg bruger.

Findes der nogle Access-hajer, som lige vil kritisere det, thanks?! Jeg ved, at jeg har den uskik først at definere variable, når jeg skal bruge dem...

Sub  x561769 ()
'Læs fra et SQL-statement og skriv til fil.

1. Databaseri
Dim Dbs As Database
Set Dbs = CurrentDb
Dim strSQL As String
strSQL = "SELECT ditten FROM datten WHERE dutten"
Dim Rst As Recordset
Set Rst = Dbs.OpenRecordset(strSQL)
'..Måske overflødigt nu-om-stunder, måske kun et råd fra gamle dage:
' Flyt til slutningen af Recordset.
Rst.MoveLast
' Returner til den første post.
Rst.MoveFirst
Dim varRecords As Variant
' Returner alle rækkerne i matrixen.
varRecords = Rst.Getrows(Rst.RecordCount)

2. Fileri
Dim ChrTab As String
ChrTab = Chr(vbKeyTab) ' Tab som delimitor
Dim record As String
Close #1 'Bad luck, hvis #1 findes og bruges!
Dim OuFname As String
Open OuFname For Output As #1

Dim intRecord As Integer
Dim i As Integer
For intRecord = 0 To UBound(varRecords, 2)
record=""
For i = 0 To NoCols 'Antal kolonner i dit SqlStatement.
record = varRecords(i, intRecord)
record = record & ChrTab
Next i
Print #1, record
Next intRecord

Close #1
End Sub

Ups..efter "Dim OuFname" skal OuFname selvfølgelig initialiseres, f.eks.
OuFname="y:\MyDrive\MySubdrive\MyFile.MyFileextension"
Nå, back to work

Kommer med fejl i: "Dim Dbs As Database"

Skriver du som Macro eller Visual Basic? Hvis som VB, prøv at kalde den noget andet, f.eks. Dbs1

..har lige set, at jeg mangler nogle kommentartegn foran '1. databaseri og '2. fileri. Sorry, men det forklarer ikke 11:36:24

user-defined type not defined
(skriver som vb)

Prøv uden, men ellers er der muligvis en setting som skal sættes

hmm...blev det ikke bedre af...Så fik vi fejl i linien: Set Rst = Dbs.OpenRecordset(strSQL)

Ja, det virker hos mig, og har gjort det siden Windows 3.1 - så der MÅ være en setting et sted; jeg leder. Imens kunne du prøve UDEN dbs, d.v.s. i set rst=OpenRecordset(strSQL)

Ok, tror jeg gør et eller andet helt galt...
Ganske kort - hvor og hvordan opretter jeg den kode i access og hvordan kører jeg den? (Troede jeg havde fat idet, men åbenbart ikke :-) )

Gå i Visual Basic, tryk hjælp, Tryk index, vælg "database property", se example: Her er eksempler på "Dim dbs as Database" - jeg ved stadig ikke, hvorfor det ikke virker hos dig.

Ups, comments crossed. Hvis du vil teste, at du er på rette vej med at aktivere kode i VB, så lav en sub, som blot udskriver, f.eks.

Sub Test()
MsgBox "Hello world"
End Sub

Måske har du glemt at kompilere koden?

Test() virker fint...

"Ganske kort - hvor og hvordan opretter jeg den kode i access og hvordan kører jeg den?" Hvis du er i tvivl er her et eksempel:

Lav en makro med én linie "AfspilKode" i Handling, og funktionsnavn (i bunden) er Test(). Gem den.
Lav et modul (Modul, Ny) og lav og gem FUNKTION, ikke sub, som jeg skrev før:

Function Test()
MsgBox "Hello world"
End Function

Kør makroen fra før. Hvis du ikke får "Hello World" op i en Message Box, må vi prøve igen...

Ups, comments crossed. Ignorer seneste. Jeg leder efter den setting! Hold on (eller håb på hjælp fra andre)

:-)

Ok, Hello World eksemplet virker og det var stort set også sådan jeg havde gjort med det tidligere eks. så jeg var vidst ikke helt galt i byen alligevel...

Men det virker så stadigvæk ikke med database-delen...

Jeg kan sagtens få den til at skrive til filen, hvis jeg udkommenterer hele database-delen...

SÅ virker det...
Function Test()
Dim strSQL As String
strSQL = "SELECT [id],[testfelt1],[testfelt3] FROM [test1]"
Set Rst = CurrentDb.OpenRecordset(strSQL)
'.Måske overflødigt nu-om-stunder, måske kun et råd fra gamle dage:
' Flyt til slutningen af Recordset.
Rst.MoveLast
' Returner til den første post.
Rst.MoveFirst
Dim varRecords As Variant
' Returner alle rækkerne i matrixen.
varRecords = Rst.GetRows(Rst.RecordCount)

Dim ChrTab As String
ChrTab = Chr(vbKeyTab) ' Tab som delimitor
Dim record As String
Close #1 'Bad luck, hvis #1 findes og bruges!
Dim OuFname As String
OuFname = "c:\MyFile.txt"
Open OuFname For Output As #1

Dim intRecord As Integer
Dim i As Integer
For intRecord = 0 To UBound(varRecords, 2)
record = ""
For i = 0 To NoCols 'Antal kolonner i dit SqlStatement.
record = varRecords(i, intRecord)
record = record & ChrTab
Next i
Print #1, record
Next intRecord

Close #1

End Function

Og er nu endeligt kommet frem til følgende:
Function Test()
Dim strSQL As String
strSQL = "SELECT [id],[testfelt1],[testfelt3] FROM [test1]"
Set Rst = CurrentDb.OpenRecordset(strSQL)
'.Måske overflødigt nu-om-stunder, måske kun et råd fra gamle dage:
' Flyt til slutningen af Recordset.
Dim OuFname As String
OuFname = "c:\MyFile.txt"
Open OuFname For Output As #1
Do While Not Rst.EOF
    record = Rst!id
    Print #1, record
Rst.MoveNext
Loop
Close #1


'Dim ChrTab As String
'ChrTab = Chr(vbKeyTab) ' Tab som delimitor
'Dim record As String
'Close #1 'Bad luck, hvis #1 findes og bruges!

'Dim intRecord As Integer
'Dim i As Integer
'For intRecord = 0 To UBound(varRecords, 2)
'record = ""
'For i = 0 To NoCols 'Antal kolonner i dit SqlStatement.
'record = varRecords(i, intRecord)
'record = record & ChrTab
'Next i
'Print #1, record
'Next intRecord


End Function

hov...selvfølgelig bare hvor alt det udkommenterede bliver slettet :-)

Men takker mange gange for din hjælp!!! Og hermed point...

Anytime. Husk 11:19:14, hø-hø.

..og så fandt jeg stedet (og nu er det lige meget): Fra VB: Tools->References, hak af i "Microsoft DAO 3.6 Object Library"! Så kan jeg lige dokumentere det hos mig selv. :-)

:-)