ผมเปิดไฟล์ที่แนบมา แล้ว ไม่มีการกำหนดอะไร control source report1 อะไรเลยครับ  อจ ลืมพิมพ์อะไรหรือเปล่าครับ

้แกให้ใหม่ละครับโทษที ด้านบนนะครับ

แก้ให้ใหม่ละครับ

คือเราอยากทำตัวหนังสือใน text box อยู่ข้างล่างบ้าง ตรงกลางบ้าง ค่ะ มันมีแต่ปุ่ม ชิดซ้าย ชิดขวา และกึ่งกลางแต่มันจะอยู่บนสุดตลอด 

กำหนด Topmargin เอาครับ ใส่ค่าตัวเลขยิ่งสูง ข้อความใน textbox ยิ่งลงมาต่ำครับเช่น การกำหนดแบบ เลือกตาม texbox ที่อยากกำหนดว่า แต่ละตัวกำหนดให้ข้อความอยู่ตรงไหน
Private Sub Form_Current()
Me.Textbox1.TopMargin = 100 'กำหนดตัวเลขได้ยิ่งสูงยิ่งต่ำ
End Sub

ถ้าอยากกำหนด textbox ทั้งหมดของฟอร์มกำหนดแบบนี้ครับ
Private Sub Form_Current()
Call SetMarginTextbox
End Sub
Sub SetMarginTextbox()
  Dim ctl As Control
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then
            ctl.TopMargin = 100
        End If
    Next ctl
End Sub

หมายเหตุตรง
 If ctl.ControlType = acTextBox Then
สามารถกำหนดประเภทตัว control ที่ทำบ่อยๆ ได้ ดังนี้

acComboBox
acCommandButton
acLabel

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

report invoice เชื่อมโยงจาก Query อยู่แล้วมี Field เก็บเลขที่บิลอยู่แล้ว
ก็ไปกำหนด Criteria ใน Query Field ที่เก็บเลขที่บิล
=Forms![ชื่อฟอร์ม]!txt_Bill
เท่านี้เวลาเปิดรายงานก็จะแสดงข้อมูลที่มีเลขที่บิลนั้นขึ้นมาคับ

เท่านี้เวลาเปิดรายงานเลขที่บิลจะปรากฎขึ้นมาทันทีครับ

ขึ้น compile error; syntax error   บรรทัดที่ 5ตรง if txt_date ……….
หมายความว่าผมต้องเพิ่ม ฟิลด์ txt_date ในฟอร์มด้วย หรือเปล่า หรือว่า txt_date ของอจ.คือ bill_date ที่ผมมีอยู่แล้ว ครับ

Private Sub Command0_Click()
Dim StrBill_Date As String
Dim StrtoDay As String
If Not IsNull(Me.Bill_date) Then
StrBill_Date = Format(Bill_date, "D/M/YYYY")
StrtoDay = Format(Now, "D/M/YYYY")
If StrBill_Date = StrtoDay Then
Call ForIsToday
Else
Call ForIsOtherday
End If
End If
End Sub

Sub ForIsToday()
Dim strDate As String
Dim intNum As Integer, intMax As Integer
Dim strSuffix As String
strDate = "IV" & "" & (Format(Now, "yy-mm-dd"))
    If Me.voucher_s_id = "" Or IsNull(Me.voucher_s_id) Then
        If IsNull(DMax("Val(Mid([voucher_s_id],10))", "voucher_s", "Left([voucher_s_id],10) = '" & strDate & " '")) Then
            Me.voucher_s_id = strDate & "-" & "01"
            Debug.Print "1"
        Else
            intMax = DMax("Val(Mid([voucher_s_Id],12))", "voucher_s", "Left([voucher_s_id],10) = '" & strDate & " '")
            intMax = intMax + 1
            Me.voucher_s_id = strDate & "-" & Format(intMax, "00")
            Debug.Print "1"
        End If
End If
End Sub

Sub ForIsOtherday()
Dim strDate As String
Dim intNum As Integer, intMax As Integer
Dim strSuffix As String
strDate = "IV" & "" & (Format(Bill_date, "yy-mm-dd"))
    If Me.voucher_s_id = "" Or IsNull(Me.voucher_s_id) Then
        If IsNull(DMax("Val(Mid([voucher_s_id],10))", "voucher_s", "Left([voucher_s_id],10) = '" & strDate & " '")) Then
            Me.voucher_s_id = strDate & "-" & "01"
            Debug.Print "1"
        Else
            intMax = DMax("Val(Mid([voucher_s_Id],12))", "voucher_s", "Left([voucher_s_id],10) = '" & strDate & " '")
            intMax = intMax + 1
            Me.voucher_s_id = strDate & "-" & Format(intMax, "00")
            Debug.Print "1"
        End If

End If
End Sub


ผมแบ่งเป็น 2 Sub คือ
ForIsToday() ผมใช้การเปรียบเทียบวันที่ปัจจุบัน กับ Bill_date ครับ ถ้าวันที่เดียวกัน ก็จะใช้ Now() มาสร้าง เลขที่บิล

ForIsOtherday() เมื่อเช็คว่าวันที่ไม่ใช่วันปัจจุบัน ก็จะเอาวันที่ของ Bill_date มาสร้างเลขที่บิลครับ
ลองดูตัวอย่างด้านล่างนะครับ

Private Sub CmdFind_Click()
Dim strFindName As String
Dim intCount As Integer

If IsNull(Me.TxtFind) Or (Me.TxtFind) = "" Then
MsgBox "ใส่ข้อมูลไม่ครบ โปรดตรวจสอบ"
Me.TxtFind.SetFocus
Else
strFindName = "SELECT * FROM [บุคคลากร] WHERE [ชื่อ-นามสกุล] LIKE '" & TxtFind & "*';"
Me.RecordSource = strFindName

intCount = DCount("*", "บุคคลากร", "[ชื่อ-นามสกุล] = '" & [Forms]![ชื่อฟอร์ม]![TxtFind] & "'")

If intCount > 1 Then
MsgBox "พบ " & intCount & " เรคคอร์ด", vbInformation, "ค้นหาRecord"

ElseIf intCount = 0 Then
MsgBox "ไม่พบข้อมูล", vbCritical, "ค้นหาRecord"
End If

Me.Requery
Me.TxtFind.SetFocus
Me.TxtFind = Null
End If
End Sub

ลองดูครับ ตรงชื่อฟอร์มที่ผมใส่สีแดง ใส่ชื่อฟอร์มเข้าไปด้วยนะครับ

ที่จริงฟอร์ม ต้นฉบับหรือ ฟอร์มสำเนา ไม่ต้องเปิดขึ้นมาเพื่อจะพิมพ์ก็ได้คับ
ผมสมมุติ ฟอร์มต้นฉบับชื่อ Frm_original
           ฟอร์มสำเนาชื่อ Frm_Copy

คำสั่งที่จะนำไปวางที่ Event ที่ต้องการคือ
Private Sub BtnPrint_Click()

    DoCmd.SelectObject acForm, “Frm_original”, True
    DoCmd.PrintOut , , , , 1
    DoCmd.SelectObject acForm, “Frm_Copy”, True
    DoCmd.PrintOut , , , , 1

End Subเท่านี้ก็จะทำการปริ้น ทั้ง 2 ฟอร์ม โดยไม่ต้องเปิดฟอร์มขึ้นมาก็ได้คับ
หมายเหตุ ตรง DoCmd.PrintOut , , , , 1  การกำหนดจำนวนว่าจะปริ้นกี่แผ่นนะครับ

การที่นำตาราง2ตารางมาคิวรี่ โดยที่เอาแถวที่ซ้ำกันออก ระหว่าง2ตารางออกไปเลย แล้วแสดงข้อมูลที่ไม่ซ้ำ โดยยึดTable1 เช่น!!

Table1               Table2            ผลลัพธ์Query
--------              --------           ------------
    1                       1                      3
    2                       2
    3                         

กำหนดให้ไม่เอาข้อมูลของ table1 ที่มีเหมือนกับ Table2 โดย Check จากตัวอย่างชื่อ Field1  ของ table1 และ table2

SELECT Table1.Field1, *
FROM Table1
WHERE (((Table1.Field1) Not In (select [Field1] from [Table2])));

แบบนี้ก็ได้ครับ