มีคนถามว่า อยากให้เช็คเท็กซ์บ็อกซ์ ถ้าว่างให้เปลี่ยนสีให้หน่อย
Text box name = HomeMobile

What event should I use on the report: • Private Sub Report_Load() • Private Sub Report_Open(Cancel As Integer)

Private Sub Report_Open(Cancel As Integer)

If IsNull(Textbox.Value) = True Then
Textbox.BackColor = vbRed

End If

End Sub

อีกคำตอบ


You could try with the Format or Print event, and also arrange for the colour to be reset:

Textbox.BackColor = IIf(IsNull(Textbox.Value), vbRed, vbWhite)

อันนี้คำถามว่า อยากให้ฟอร์มโหลดขึ้นมาแล้วเปลี่ยนสีทุกกล่องข้อความ

You can place this code in the Onload event of your form and this will change all of your boxes at one time.
Delcare the control:
Dim tb as Control
Code:
 For Each tb In Me.Controls
        If TypeOf tb Is TextBox Then
            tb.BackColor = 'your color goes here
        End If
    Next
-----------------------------------------------------------------------------
อันนี้โค้ดของคนถาม
For Each Ctl In Detail.Controls
'ตรวจสอบเฉพาะที่เป็นประเภท TextBox / Combo Box
If Ctl.ControlType = acTextBox Or Ctl.ControlType = acComboBox Then 'Or ctl.ControlType = acCheckBox
'และเฉพาะที่ชื่อชื้นต้นด้วย Status
If Ctl.Name Like "Status*" Then
'ถ้าได้ค่าว่างๆ
If Ctl &"" = "Less than 1 day" Then
isBlank = "LT"
Elsef Ctl &"" = "More than 1 day" Then
isBlank = "MT"
Elsef Ctl &"" = "Card expired" Then
isBlank = "C"
Exit For
End If
End If
Next
If isBlank = "LT" Then
Ctl.BackColor = vbYellow
Elself isBlank = "MT" Then
Ctl.BackColor = vbGreen
ElseIf isBlank = "C" Then
Ctl.BackColor = vbRed
Exit Sub
End If
End if

ไม่ได้ช่วยอะไรครับ ใช้คำค้น combobox report ในช่องค้นหานี้พอได้แนวไหมครับ
--ผมก็เขียนโค้ดไม่เป็นใช้วิธีแบบบ้านๆสำหรับผมก็ เพิ่มฟิลด์คำไปในตารงว่าติกเป็นแบบ y/n ถ้าโดนเลือกช่วยเอาไปออกคิวรี่ ทำปุ่มดูรายงานทั้งสองแบบ แบบ 1 คือครบทุกรายการ แบบที่สองก็เอาที่ทำเครื่องหมายไปออกรายงาน--

มันขึ้นข้อผิดพลาดทั้งหมายเมื่อก่อนไม่รู้ ตอนนี้ขอติดตั้งเฉพาะแอคเซสอย่างเดียวครับ ต้องทำช้อตคัตไว้หน้าจอเลย...ขึ้นข้อความแปลกๆ ลงใหม่จบ แล้วฝังแอคเซสและอันอื่นๆ ที่น่าจะเชื่อมกันของโปรแกรมไมโครซอฟท์ เรียกใช้จากในพีซี ครับ

เราสั่งให้มันตรวจตรงวันเกิดก่อนว่าถ้าว่างไม่ต้องใช้สูตร iif aฟิลด์วันเกิด =is null="",สูตรคำนวณอายุ

ทำคิวรี่ขึ้นมาใหม่ เอาของที่เขาให้คำตอบข้างบน เลือกตาราง/คิวรี่ เลือกชื่อคิวรี แล้วก็สั่ง sum ในคิวรี่ที่สองที่สร้างขึ้นใหม่