กระทู้เก่าบอร์ด อ.Yeadram
        
           2,448   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.5084s
    
      
		
เงื่อนไขใส่ได้ที่เดียวนะครับ
คุณอาจจะใส่ว่า
stWhere = "[Coin Acceptor] Like '" & mySerial & "' Or [Current Status] Like '" & mySerial & "'"
DoCmd.OpenReport "TAcceptor", acViewPreview, , stWhere