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

ใช่ครับคุณ Prajak

สอบถามตามรูปครับ ผมสร้าง 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

คือผมต้องการสร้างปุ่มไว้ Random ฟิวในเทเบิ้ลที่เป็น Text ต้องเขียนโค้ดอย่างไรบ้างครับ ขอบคุณมากครับผม

ผมไม่แน่ใจว่า จะเอาไปใช้ประโยชน์ในการทำงานของโปรแกรมตรงส่วนไหนนะครับ
แต่ผมได้ทำตัวอย่างการ random ข้อมูลที่เป็น text มาให้ดูเพื่อเป็นแนวทาง

ตัวอย่าง Code
Private Sub Command16_Click()
Randomize
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("table1", dbOpenDynaset)
With rs
If .EOF Then
MsgBox "ไม่พบข้อมูลในตารางที่ระบุ!!", vbOKOnly, "ระบบเช็คข้อมูล"
Else
.MoveLast
.AbsolutePosition = CLng(Rnd() * .RecordCount)
Me.text1 = !factory
End If
.Close
End With
Set rs = Nothing
End Sub

หมายเหตุ
table1 คือ ชื่อตารางที่ต้องการ Random
text1 คือ ชื่อ textbox ที่ต้องการแสดงผลการ Random
Factory คือชื่อ Field ในตารางที่ต้องการ นำมา Random

ทำให้แล้วครับ
เมื่อเปิดโปรแกรมมาให้ซ่อนรายการ
Private Sub Form_Current()
Call ShowList
End Sub
Sub ShowList()
If IsNull(Me.cb_GSP) Then
Me.Check20.Visible = False
Me.factory.Visible = False
Me.SteelID.Visible = False
Me.Adress.Visible = False
Me.PhoneNumber.Visible = False
Me.Size_Type.Visible = False
Me.Thickness.Visible = False
Me.Length.Visible = False
Me.weight.Visible = False
Me.Price.Visible = False
Else
Me.Check20.Visible = True
Me.factory.Visible = True
Me.SteelID.Visible = True
Me.Adress.Visible = True
Me.PhoneNumber.Visible = True
Me.Size_Type.Visible = True
Me.Thickness.Visible = True
Me.Length.Visible = True
Me.weight.Visible = True
Me.Price.Visible = True
End If
End Sub
Private Sub Image57_Click()
Call ShowList
End Sub
ตัวอย่างให้แสดงข้อมูลทั้งหมดอีกครั้ง และให้ cb_GSP เป็นค่าว่าง
DoCmd.ApplyFilter , " Size_Type like '*'"
Me.cb_GSP = Null
ผมได้ทำไอค่อนให้กดเพื่อ ซ่อนรายการให้ด้วยนะครับ ที่เป็นรูปดวงตา


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

ขอสอบถามเพิ่มเติมครับ ถ้าต้องการให้ ไดอะล็อกซ์บ๊อกซ์ ที่ขึ้นมาให้เลือกไฟล์ เราจำกำหนดให้เลือกได้เฉพาะไฟล์รูปภาพได้ไหมครับ

Private Sub Import_Click()
Dim f As Object
Set f = Application.FileDialog(3)
f.AllowMultiSelect = True
f.Filters.Clear
f.Filters.Add "Picture Files", "*.bmp;*.jpg;*.gif;*.png"
If f.Show Then
    For i = 1 To f.SelectedItems.Count
        sFile = filename(f.SelectedItems(i), sPath)
        Me.GetFileName = sFile
        Me.GetFilePath = sPath
    Next
End If
End Sub

อันนี้เป็นส่วนที่ต้องเพิ่มใหม่นะครับ
ตัวอย่างด้านล่าง

ไว้ผม กลับจากเล่นคอนเสริตคืนนี้ก่อน เดี่ยวทีมวิวไปทำให้ดูครับ