กระทู้เก่าบอร์ด อ.Yeadram
2,277 2
URL.หัวข้อ /
URL
คนเริ่มต้น
ค้นหา field 2 field แต่อยู่คนละ record โดยออกแบบการเขียนโดย VB
เช่น โดยการหา Series number นี้แต่มีการปรับเปลี่ยนไปอยู่อีก record หนึ่ง
ซึ่งต้องการออกมาโชว์ทางรายงานทั้ง 2 แถวนะครับ
ผมเขียนอย่างงี้ไม่ออกมาโชว์ครบ
Private Sub Cmd5_Click()
Dim Acceptor As String
Dim AcceptorNow As String
Acceptor = "[Coin Acceptor] Like '*'"
AcceptorNow = "[Current Status] Like '*'"
If SNumber5 <> "" Then Acceptor = Acceptor & " AND [Coin Acceptor] like '" & SNumber5 & "'" & " AND vbCrLf
If SNumber5 <> "" Then AcceptorNow = AcceptorNow & " And [Current Status] Like "'" & SNumber5 & "'"
DoCmd.OpenReport "TAcceptor", acViewPreview, , Acceptor, , AcceptorNow
End Sub
เช่น โดยการหา Series number นี้แต่มีการปรับเปลี่ยนไปอยู่อีก record หนึ่ง
ซึ่งต้องการออกมาโชว์ทางรายงานทั้ง 2 แถวนะครับ
ผมเขียนอย่างงี้ไม่ออกมาโชว์ครบ
Private Sub Cmd5_Click()
Dim Acceptor As String
Dim AcceptorNow As String
Acceptor = "[Coin Acceptor] Like '*'"
AcceptorNow = "[Current Status] Like '*'"
If SNumber5 <> "" Then Acceptor = Acceptor & " AND [Coin Acceptor] like '" & SNumber5 & "'" & " AND vbCrLf
If SNumber5 <> "" Then AcceptorNow = AcceptorNow & " And [Current Status] Like "'" & SNumber5 & "'"
DoCmd.OpenReport "TAcceptor", acViewPreview, , Acceptor, , AcceptorNow
End Sub
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R10703
รายงานผลใช้ได้แล้วครับ ขอบคุณมากครับ
Time: 0.3349s
เงื่อนไขใส่ได้ที่เดียวนะครับ
คุณอาจจะใส่ว่า
stWhere = "[Coin Acceptor] Like '" & mySerial & "' Or [Current Status] Like '" & mySerial & "'"
DoCmd.OpenReport "TAcceptor", acViewPreview, , stWhere