อ่านแล้วผมนึกถึงตอนเขียน VB ใช้ Application.Doevents() ใน VBA Access ใช้เหมือนกันหรือเปล่าผมยังไม่เคยใช้
ในตอนที่เราสั่งทำงานอะไรสักอย่างนาน ๆ ก็จะใช้ progress bar เพื่อแสดงสถานะที่ทำถึงไหนแล้วก็ใส่ Application.Doevents() ไว้ในการทำงานมันทำให้สามารถเลื่อนขยับทำอย่างอื่นได้ด้วย

เดี๋ยวจะลองดูครับ ขอบคุณครับ

Private Sub CmdSearch_Enter()
Dim sql As String
Dim FindRecordCount  As Long
Dim rstRecords As Recordset
sql = "SELECT * FROM Table1 Where [Name] like '*" & Nz(Me.Text1, "*") & "*' AND [F1]  [F2] [F3] like '" & Nz(Me.Combo1, "*") & "'"
Set rstRecords = CurrentDb.OpenRecordset(sql)
Forms!Form1!Table1subform.Form.RecordSource = sql
Forms!Form1!Table1subform.Form.Form.Requery

    If rstRecords.EOF Then
            FindRecordCount = 0
        Else
            rstRecords.MoveLast
            FindRecordCount = rstRecords.RecordCount
        End If
   If FindRecordCount = 0 Then
   MsgBox "Not Found!", vbCritical, "Status"
   End If


ตรง AND [F1]  [F2] [F3] like '" & Nz(Me.Combo1, "*") ไม่แน่ใจว่ามันต้องเชื่อมยังไงหรือต้องเขียน VBA ทางไหน รบกวนขอความกรุณาครับ

เบื้องต้นเมื่อวานลอง งมๆมั่วๆดูครับได้โค้ดออกมาเป็นแบบนี้


Private Sub Detail_Paint()

For Each Ctl In Detail.Controls
        If Ctl.ControlType = acTextBox Or Ctl.ControlType = acComboBox Then
            If Ctl.Name Like "Status*" Then
               If Ctl & "" = "Less than 1 day" Then
                        Ctl.BackColor = vbYellow
               ElseIf Ctl & "" = "More than 1 day" Then
                        Ctl.BackColor = vbGreen
                ElseIf Ctl & "" = "Card expired" Then
                        Ctl.BackColor = vbRed
                  Exit For
               End If
           End If
        End If
Next

End Sub


แต่ติดปัญหาตรงคำว่า Card Expire มันไม่ลงสีทุกช่อง



พอลองลบคำว่า Exit For ออก ตอนนี้หายแล้วครับ สำเร็จแล้วครับ ขอบคุณครับผม

ตอนแรกผมคอนเม้นโค้ดเส้นสีเขียวไว้ โค้ดเส้นสีแดงก็ทำงานปกติ พอเปิดทั้ง 2 โค้ด มันกลับทำงานแค่เส้นสีเขียวอย่างเดียวครับ ไม่ทราบว่าเกิดจากอะไรหรอครับ

ไม่ทราบว่าต้องเขียน VBA ไปทางไหนหรอครับ

 Presentaddress1: [House_NO] & " ม." & [Village_No] & " " & [VillageName]
ที่ฟิล Presentaddress1 จะรวมข้อมูลฟิล [House_NO], [Village_No], [VillageName] ไว้

ตัวอย่างตาราง

House_NO  Village_No  VillageName
    45/7        3       หมู่บ้านไท
    65/2        -       หมู่บ้านสอง
    44/3        5       -

ในฟิล Presentaddress1 จะได้เป็น 45/7 ม.3 หมู่บ้านไท(คนแรก)
                                            65/2 - หมู่บ้านสอง(คนสอง)

คำถามคือ Default ของฟิลคือ "-" ครับ ไม่ทราบว่าต้องใส่ iif ตรงไหนเพื่อที่จะบอกว่า ถ้าเจอ "-" ให้โชว์ " " เท่านั้น
ผลลัพธ์ 65/2  หมู่บ้านสอง แบบนี้อะครับให้ - ตรง ม.หาย 

String ="00" & [Text30] ตรงนี้เอาไปใส่ไว้ในไหนหรอครับ

ได้แล้วครับ ขาด Where ตัวเดียวครับ

สวัสดีค่ะ

ปกติถ้ากดพิมพ์แล้วเส้นใน report จะหายไปไหมคะ เพราะในพรีวิวมันหาย(แค่บางเส้นเท่่านั่นค่ะ) แต่ถ้าซุมไปมากๆสัก 200% ก็จะห็นเส้นนั้นอยู่ค่ะ

ลองปริ้นออกมาครับ อยู่ที่ความละเอียดของจอครับ ถ้าปริ้นมาปกติ ก็ไม่น่ามีปัญหาอะไรนะครับ