อย่างเช่น ใน 1 button เราสามารถ จะ action ให้มันทั้งออก รายงาน และ บันทึกลงใน table ได้เลยมั้ยครับ

Private Sub btnOutTextfile_Click()

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sq As String
Dim i, j As Integer
Dim sql As String


Set conn = CurrentProject.Connection
rs.Open "qryReportTextfile", conn, 1


If Not rs.EOF Then
rs.MoveLast
rs.MoveFirst
j = rs.Fields.Count - 1

Open "C:\asoke\Data.txt" For Output As #1

Do While Not rs.EOF
sq = ""
For i = 0 To j
sq = sq & rs(i)
If i = 1 Then sq = sq & "00000000000000000000000"
If i = 5 Then sq = sq & "00"
Next

Print #1, sq
rs.MoveNext
Loop
Close #1

End If

MsgBox "Done", vbInformation

rs.Close
Set rs = Nothing
Set conn = Nothing

End Sub

ใหัมันทำการบันทึก ลงใน tbl ได้ ป่าวครับ