กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
377 2
URL.หัวข้อ /
URL
เงือนไขสำหรับการส่งค่าไปอีกฟอร์มหนึ่ง
คือผมส่งค่าไปให้อีกฟอร์มหนึ่งแต่ต้องมี 2 Field ที่ต้องเป็นหลักให้ฟอร์มนั้นแสดงครับ
ไม่รู้ผิดตรงไหน
Private Sub txBatchNo_DblClick(Cancel As Integer)
Dim Openfrm As String
Dim Criteria_by As String
Openfrm = "Frm_test2_De"
Criteria_by = "[BatchNo]=" & "'" & Me![txBatchNO] & "'" 'And "[LotNo]=" & "" & Me![txLotNO] & ""
DoCmd.OpenForm Openfrm, , , Criteria_by
End Sub
ไม่รู้ผิดตรงไหน
Private Sub txBatchNo_DblClick(Cancel As Integer)
Dim Openfrm As String
Dim Criteria_by As String
Openfrm = "Frm_test2_De"
Criteria_by = "[BatchNo]=" & "'" & Me![txBatchNO] & "'" 'And "[LotNo]=" & "" & Me![txLotNO] & ""
DoCmd.OpenForm Openfrm, , , Criteria_by
End Sub
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R03263
ขอบคุณมาก ๆ ครับ
Time: 0.1291s
Criteria_by = "[BatchNo]='" & Me![txBatchNO] & "' And [LotNo]='" & Me![txLotNO] & "'"
หรือถ้าเป็น Number ให้เปลี่ยนเป็น
Criteria_by = "[BatchNo]=" & Me![txBatchNO] & " And [LotNo]=" & Me![txLotNO]