ฟอร์ม A,B เปิดอยู่พร้อมกันหรือเปล่าครับ

1. ฟอร์ม A เปิด,ฟอร์ม B ปิด & ไปขึ้นทะเบียนใหม่ในตาราง B โดยวิธีที่ผมใช้นั้นคือ
  1.1 ในฟอร์ม A ทำปุ่มเปิดฟอร์ม Bฉบับไร้เงา(DoCmd.OpenForm "Bฉบับไร้เงา")
  1.2 ที่ฟอร์ม Bฉบับไร้เงา(ผูกข้อมูลอยู่กับตาราง B) ทำกล่องข้อความเพื่อเก็บค่าต่างๆที่ต้องการเช่น
       - กล่อง vaNo สั่งผูก Control Source = vaNo , สั่งดึงข้อมูลมาจากฟอร์ม A (ที่เปิดอยู่) Default Value = =[Forms]![ฟอร์ม A]![ชื่อกล่องที่จะดึงมา]
       - กล่อง vaCus_Name สั่งผูก Control Source = vaCus_Name , สั่งดึงข้อมูลมาจากฟอร์ม A (ที่เปิดอยู่) Default Value = =[Forms]![ฟอร์ม A]![Name]
       - .....
  1.3 ฟอร์ม Bฉบับไร้เงา สั่งบันทึกข้อมูลลงตารางและสั่งปิด
Private Sub Form_Close()
    DoCmd.RunCommand acCmdSaveRecord
End Sub
Private Sub Form_Load()
    DoCmd.Close
End Sub
2. ฟอร์ม A,B เปิด คล้ายวิธีตามข้อ1 เพียงแต่แบบนี้จะออกแบบให้ TextBox ในฟอร์ม B ผูกกับตารางB ไหนอย่างไรหรือไม่ก็ได้,ตัว TextBox ไม่สามารถดึงข้อมูลมาได้แบบ 1.2 = เปลี่ยนเป็นใช้วิธีทำปุ่มคำสั่งให้ทำการดึงข้อมูลจากฟอร์ม A มาใส่ฟอร์ม B (ถ้าเป็นจะให้ A ส่งไป B นั่นผมไม่รู้วิธีครับ)
Private Sub Command16_Click()
     me.vaNo = [Forms]![ฟอร์ม A]![ชื่อกล่องที่จะดึงมา]
     me.vaCus_Name =[Forms]![ฟอร์ม A]![Name]
     .....
End Sub
เป็นแนวทางเบื้องต้นลองนำไปปรับใช้ดูครับผม

เนื่องด้วยผมมี Combo Box(Nboss_xx) อยู่ประมาณ 30ตัว โดยเมื่อเลือกแล้วจะดึงค่าไปแสดงผลที่ Text Box(Ne_xx) และเทียบค่าไปแสดงผลต่อที่ Text Box(WinNE_xx)
สามารถเขียนมาโครหรือโมดูลในการทำชุดคำสั่งชุดเดียวใว้ใช้งานแทนที่จะทำแยกทั้งหมด 30ชุดใหมครับ

Private Sub Nboss_01_AfterUpdate()
    Me.Ne_01 = Nboss_01.Column(4)
    Select Case Ne_01

Case "Undead"	: Me.WinNE_01.Value = "Fire"
Case "Earth"	: Me.WinNE_01.Value = "Fire"
Case "Fire"	: Me.WinNE_01.Value = "Water"
Case "Water"	: Me.WinNE_01.Value = "Wind"
Case "Wind"	: Me.WinNE_01.Value = "Earth"
Case "Poison"	: Me.WinNE_01.Value = "Holy"
Case "Shadow"	: Me.WinNE_01.Value = "Holy"
Case "Holy"	: Me.WinNE_01.Value = "Shadow"
Case Else	: Me.WinNE_01 = ""

    End Select
End Sub

ขนาด width ได้ครับแต่ height ยาวเกิน ครับ

ติดตั้งแล้วครับ รายงารจะออกมาแบบนี้ครับ มี 2 หน้า

1.ออกแบบรายงานกำหนดขนาดไม่ให้เกิน 8cm แล้วใช่ใหมครับ


2.จากที่ว่าเพิ่มขนาด 8x8cm(80*80mm) ลงไปใน print server properties นั้นเครื่องพิมพ์กระดาษความร้อนรองรับใช่ใหมครับ
ตย.เครื่องผมที่รองรับเล็กสุดได้ที่ 55*89mm

แนวทางครับ

> ทำปุ่มค้นหาแล้ววฟอร์มที่แสดงหลังจากค้นหาไม่ตรงกับความต้องการค่ะ

> สอบถามการใช้ combo Filter มากกว่า1รายการ หรือ การใส่ filter sort แต่ละ column

Trust Center ใน Runtime จะไม่มีให้ตั้งค่า ใช้วิธีแก้ Registry โดยเพิ่ม Trusted Locations
https://www.accessribbon.de/en/?Trust_Center:Trusted_Locations
ถ้างงว่าแก้ยังไงในเว็บด้านล่างโหลดโปรแกรมตามเวอร์ชั่น runtime แตกไฟล์โปรแกมออกมา > นำไปวางใว้ที่เดียวกับไฟล์ Access > รันโปรแกรมจะทำการแก้ regedit ให้ > ทนลองเปิดไฟล์งาน

* สั่งรันเพื่อแก้ regedit เพียงครั้งเดียวต่อหนึ่งที่อยู่ (รันเสร็จลบหรือย้ายไปรันที่อื่นต่อได้)
* ถ้ามีไฟล์ Access อยู่หลายที่เช่น
1. c:/งาน1
2. d:/งาน2/งาน2.2
ให้นำโปรแกรมไปวางใว้แล้วส้่งรันในทุกที่เหมือนเป็นการเพิ่มระเบียนว่ามีที่ไหนบ้างให้ runtime ยอมรับว่าปลอดภัย

ปล.ในส่วนของ Action Query ลองทำตาม อ.สันติสุข ดูก่อนนะครับ

คือยังไงครับ

ปกติท่านมีหน้าฟอร์มของ admin อยู่แล้วยังล่ะครับ  ถ้ายังไม่มีหาดูในบอร์ดเลยครับตัวอย่างของอ.สันติสุข โปรแกรมตัวอย่างการสร้างฟอร์มล็อคอินและเมนูที่เปลี่ยนไปตามผู้ใช้
ฟอร์มผู้ใช้มีแค่ปุ่ม DM500  /  ฟอร์มหัวหน้าถึงจะมีปุ่ม Unlock เป็นต้นครับ

แก้ชื่อฟอร์ม(ที่แสดงขอบบน)ได้ที่ Format > Caption อยู่บรรทัดบนสุดครับ(เหมือนแก้ป้ายชื่อหรือข้อความที่แสดงบนปุ่ม)

1.ท่านสั่งให้มันจำค่าต่างๆ(รหัส,วันที่สั่ง,...)ใว้ที่ Table ไหนก็ไปเพิ่มให้มันจำสถานะปุ่มใว้ด้วยนะ
2.เมื่อเปิดฟอร์มมาก็สั่งให้ตรวจสอบแล้วสั่งให้ปุ่มมีผลตามค่านั้น
ปล.ไม่รู้ว่าท่านสั่งให้ปุ่มชื่อ DM500 มาจากไหนอ่านะครับผมจึงสั่งให้ฟอร์มเป็นตัวกำหนด
Private Sub Form_Current()
    If Me.Check_cb_no1 = True Then
        Me.cb_no1.Caption = "DM500"
        Me.cb_no1.BackColor = vbYellow
        Me.cb_no1.Enabled = True
    Else
        Me.cb_no1.Caption = "Lock"
        Me.cb_no1.BackColor = vbRed
        Me.cb_no1.Enabled = False
    End If
End Sub

Private Sub cb_no1_Click()
    If Me.cb_no1.Caption = "DM500" Then
        Me.cb_no1.Caption = "Lock"
        Me.cb_no1.BackColor = vbRed
        Me.cb_no1.Enabled = False
        Me.Check_cb_no1 = False
    End If
End Sub

Private Sub cb_no2_Click()
    Me.cb_no1.Caption = "DM500"
    Me.cb_no1.BackColor = vbYellow
    Me.cb_no1.Enabled = True
    Me.Check_cb_no1 = True
End Sub

แวะมาโพสรูปเทียบไฟล์เดียวกันเครื่องเดียวกันแต่เปิด-ปิด Visual effects ของ Windows ต่างกัน
ผลคือถ้าปุ่มตั้งค่า Use Theme = Yes ใว้ Visual effects ไม่มีผล