ผมอยากให้คลิกปุ่มเดียวแล้วเปิดได้สองฟอร์มโดยมีตัวแยกคือInCl โดยผมเขียนไว้แต่เป็นเปิดได้ฟอร์มเดียว
Private Sub Command25_Click()
On Error GoTo Err_Command25_Click
Dim stDocName As String
Dim stLinkCriteria As String
stLinkCriteria ="[CID]="&""&Me![CID]&"""
If Me.InCl="89"Or"00"Or"02" Then
DoCmd.OpenForm "UcData_Edit", , ,stLinkCriteria
ElseIf Me.InCl="71"Or"72"Or"73" Then
DoCmd.OpenForm "HipData_Edit", , ,stLinkCriteria
Exit_Command25_Click:
End If
Exit Sub
โดยในฟอร์มนี้จะเป็นSubForm ของอีกฟอร์มหนึ่ง โปรแกรมมีขนาดใหญ่จึงไม่สามารถนำมาให้ดูได้ ถ้ายังไงวันนี้ผมเฝ้าหน้าจออยู่ถ้าต้องการข้อมูลเพิ่มเติมบอกด้วยนะครับ ขอบคุณครับ