แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Bravo_M79

หน้า: [1]
1
gotocontrol ต้องระบุชื่อฟิลล์ ที่เชื่อมอยู่นะครับ Error นั้นแจ้งว่าคุณไประบุชื่อ คอนโทรล ไม่ใช่ชื่อฟิลล์ที่เชื่อมไว้ หรือลองตั้งชื่อ ฟิลล์และ ชื่คอนโทรลเหมือนกันดูครับ

ส่วน โค้ดจะใช้  Me.Txtsearch6.Setfocus ได้เลย

 ถ้าจะเขียนเป็นโค้ดทั้งหมด ก็น่าจะเป็น

Private Sub PrintBotton_Click()
DoCmd.OpenReport "P_ScanOrder", acViewNormal, , "RuningID Like '*" & [forms]![Frm_PS_SCANERORDER]!TxtSearch & "*'"
Docmd.GoToRecord,,acNext
Me.txtSearch6.Setfocus
End Sub
ลองดูครับว่าได้หรือไม่ถ้าติด ERROR ช่วยส่งรูป Error นั้นมาดูนะครับ


โพสต์นี้ได้รับคำขอบคุณจาก: Bravo_M79

2
แก้เป็น

โค๊ด: [Select]
A: Replace(Replace([ShipToAddress1],Chr(13) & Chr(10),""),Chr(10),"")
หรือ
ถ้าต้องการช่องว่างระหว่าง ข้อความ
โค๊ด: [Select]
A: Replace(Replace([ShipToAddress1],Chr(13) & Chr(10)," "),Chr(10)," ")


หรือ แบบนี้ก็ได้เหมือนกันครับ
โค๊ด: [Select]
A: Replace([ShipToAddress1],Chr(10)," ")
โพสต์นี้ได้รับคำขอบคุณจาก: Bravo_M79

3
_เจอปัญหาละ แก้ให้แปปครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Bravo_M79

4
งง ครับ ผมลองทดสอบแล้วมันได้นะ
ส่งตัวอย่างไฟล์มาทาง Inbox ครับผมเช็คให้
โพสต์นี้ได้รับคำขอบคุณจาก: Bravo_M79

5
ลองแบบนี้ในคิวรี่นะครับ

ShipToAdderss: Replace([ShipToAdderss1],Chr(13) & Chr(10),"")

โพสต์นี้ได้รับคำขอบคุณจาก: Bravo_M79

6
ห้อง MS Access / > แทนค่าใน Tables
« เมื่อ: 27 มี.ค. 61 , 16:04:47 »
ทำได้ยังครับ :smile:
โพสต์นี้ได้รับคำขอบคุณจาก: Bravo_M79

หน้า: [1]