ผม Export Query to excel ไฟล์ที่ออกมาบางทีขนาดไฟล์มัน 9KBไม่มีข้อมูลบางทีก็ได้ไม่มีปัญหา
ผมเลยลองกับคอมหลายๆเครื่อง บางเครื่อง Export ได้ปกติบางเครื่องได้ขนาดไฟล์ 9KB
เป็นสลับกันอยู่อย่างนี้อะครับ
เกี่ยวกับ RAM ไม่พอรึเปล่าผมก็ไม่แน่ใจ

ถ้าexport ได้ไม่มีปัญหาขนาดไฟล์จะ 70KB ประมาณ 5 แสน Row
รูปแบบฐานข้อมูลเวลาดึงคือดึงผ่าน LAN ไป SQL Server มาแสดงที่ Access ครับ

อาจจะเกิดจาก สิ่งเหล่านี้หรือเปล่าครับ ที่เคยเจอ
1.การป้อนวันที่ ก่อน Export เพราะบางที Format ผิด (ถ้ามีการกำหนดวันที่ก่อน Export)


2.การ Enable Trusted Center
Tools > Options > Security > Macro > Security > Trusted Publishers

ถ้าไม่ต้องการลบข้อมูลใน table ก่อนตัดคำสั่งนั้นออกไปถูกแล้วครับ

อ่อโอเค เป็นบน Spilit Form ผมอ่านไม่เคลียอิอิ

อ๋อจริงด้วยครับ ของผมตั้งไว้ที่ Use Specifi Printer ต้องเลือกเป็น Default Printer ถูกต้องหรือเปล่าครับ

ใช่ครับคุณ Prajak

ตัวอย่างนี้เพื่อให้เห็นภาพว่า มันสามารถกำหนดค่าให้โดยแยกหมวดหมู่ของ หน่วยงานนะครับ โดยหาค่า Dlast ของแต่ละหน่วยงาน

บน Module
Function getDigits(s As String) As String
    Dim retval As String
    Dim i As Integer
    retval = ""
    For i = 1 To Len(s)
        If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then
            retval = retval + Mid(s, i, 1)
        End If
    Next
    getDigits = retval
End Function


ที่ TextBox ใน Event Click ชื่อ Serial ใส่คำสั่งดังนี้

Private Sub Serial_Click()
If Me.NewRecord = True Then
    Dim strOldID As String
    Dim lngCurrentNumber As Long
    Dim lngNextNumber As Long
    Dim strNextNumber As String
    Dim strNewID As String
       
    If IsNull(DLast("[JobDetail]", "Query1")) Then
    Me.JobDetail = "0000"
        Else
            strOldID = DLast("[JobDetail]", "Query1")
    Debug.Print strOldID   
    lngCurrentNumber = getDigits(strOldID)
    Debug.Print lngCurrentNumber   
    lngNextNumber = lngCurrentNumber + 1
    Debug.Print lngNextNumber   
    strNextNumber = String(4 - Len(CStr(lngNextNumber)), "0") & CStr(lngNextNumber)
    Debug.Print strNextNumber   
    strNewID = strNextNumber
    Debug.Print strNewID
   
    Me.JobDetail = strNewID
   
End If
      End If
     
End Sub

หมายเหตุ
Me.JobDetail คือ ชื่อ textbox ที่เราจะเพิ่มค่า +1 /ส่วนที่ไม่ที Me.นำหน้าคือชื่อ Field นะครับ พอดีผมตั้งชื่อเหมือนกัน
Query1 คือคิวรี่ที่เราจะหาค่า ของ JobDetail
เลข 4 คือจำนวนค่าที่จะแสดงจำนวน 0 ที่จะแสดง

ตัวอย่างด้านล่าง

สอบถามตามรูปครับ ผมสร้าง Report บนคอมเครื่องหนึ่ง แล้วเวลาไปใช้โปรแกรม access บนคอมอีกเครื่องเพื่อPrint report มันขึ้นตามนี้ครับ เป็นเรื่องปกติหรือเปล่า เข้าใจว่าเหมือนมันจำค่า Default Printer จากเครื่องที่เราสร้าง report ซึ่งก็จะเป็นแค่ครั้งแรกครั้งเดียว

ตรงตั้งค่าของรายงาน ตรงส่วนนี้ท่านตั้งไว้อย่างไรครับ

ฟอร์มนี้ข้อมูลมาจากตารางโดยตรงแน่เลย
เพราะปกติถ้าผ่านคิวรี่ตรงลบจะไม่แสดง
คำสั่งปิด ปุ่มลบตามนี้เลย


Private Sub Form_Load()
Form.Requery
Me.AllowDeletions = False
End Sub

ลองดูตัวอย่างนี้นะครับ น่าจะโอเคสุดละ

บน Module

Public Function RowNum(frm As Form) As Variant
On Error GoTo Err_RowNum
   
    With frm.RecordsetClone
        .Bookmark = frm.Bookmark
        RowNum = .AbsolutePosition + 1
    End With
   
Exit_RowNum:
    Exit Function
   
Err_RowNum:
    If Err.Number <> 3021& Then
        Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description
    End If
    RowNum = Null
    Resume Exit_RowNum
End Function

ที่ textbox ชื่อ NO ใส่ =RowNum([Form])
ตัวอย่างด้านล่าง

ลองดูตัวอย่างนี้นะครับ
ผมลองกรองแล้วก็ยังรันปกติ
ผมใส่ Code ดังนี้

Private Sub Form_Current()
Me.No.ControlSource = "=RunNumber([Sale_Index])"
End Sub

Sale_Index คือชื่อ Control ครับ
No คือชื่อ Unbound textbox