Jag behöver få ut resultatet från en fråga till en semikolonseparerad fil.

Nån som kan ge mig lite tips

//Torfi

Det kan göras med VBA:

OBS, inte så snygg kod, framförallt variabelnamnen, jag skrev den för MÅNGA år sedan... :) Sökvägen till filen som skapas ligger i varibeln Answer.
<code>
Dim f As Integer
If Dir(Answer) <> "" Then
If MsgBox("Filen finns redan, vill du skriva över den?", vbYesNo + vbQuestion + vbDefaultButton2) = vbNo Then Exit Sub
End If
f = FreeFile
Open Answer For Output As f

Dim DBS As DATABASE, RST As Recordset
Set DBS = CurrentDb
Dim a As Field
Dim strExp As String


Set RST = DBS.OpenRecordset("MinFråga")
strExp = ""
For Each a In RST.Fields
strExp = strExp & Chr(9) & a.Name
Next
Print #f, Right(strExp, Len(strExp) - 1)

With RST
While Not .EOF
strExp = ""
For Each a In .Fields
strExp = strExp & Chr(9) & a
Next
Print #f, Right(strExp, Len(strExp) - 1)
.MoveNext
Wend
End With
Set RST = Nothing

Close f
</code>

/Johan

Försöker få in detta i en funktion men det fungerar inte.

Får meddelandet "Förväntas: ="

<code>
Private Sub sExport(strFil As String, strFraga As String)

Dim f As Integer
If Dir(strFil) <> "" Then
If MsgBox("Filen finns redan, vill du skriva över den?", vbYesNo + vbQuestion + vbDefaultButton2) = vbNo Then Exit Sub
End If
f = FreeFile
Open strFil For Output As f

Dim DBS As Database, RST As Recordset
Set DBS = CurrentDb
Dim a As Field
Dim strExp As String


Set RST = DBS.OpenRecordset("strFraga")
'strExp = ""
'For Each a In RST.Fields
' strExp = strExp & ";" & a.Name
' MsgBox strExp
'Next
'Print #f, Right(strExp, Len(strExp) - 1)

With RST
While Not .EOF
strExp = ""
For Each a In .Fields
strExp = strExp & ";" & a
'MsgBox strExp
Next
Print #f, Right(strExp, Len(strExp) - 1)
.MoveNext
Wend
End With
Set RST = Nothing

Close f


End Sub

Private Sub Kommandoknapp0_Click()
sExport("c:\temp\into.txt", "q1") --------------------Här gnäller den
End Sub
</code>

//T

Parenteser bort ?

/Johan

Bort med parenteserna i anropet som redan är sagt:

sExport "c:\temp\into.txt", "q1"

Sedan har du nog tänkt att det ska vara såhär istället:

Set RST = DBS.OpenRecordset(strFraga)

/Johan

Tack.

Fungerar kanon.

//T