กระทู้เก่าบอร์ด อ.Yeadram
6,286 4
URL.หัวข้อ /
URL
ต้องการดึงข้อมูลจาก query ไปแสดงใน Textbox
เรียนท่านผู้รู้...
คือผมมี
Table ชื่อ Table4
Form ชื่อ frmTable1_insertData บน Form มี Textbox 2 กล่อง ชื่อ Text29 และ Text37
Text29 ใช้รับค่า ตัวเลข 4 ตัว เพื่อไปทำ query มีเกณฑ์คือ
[Forms]![frmTable1_insertData]![Text29]
ชื่อ qryTable4_insert ได้ข้อมูลออกมาดังนี้
Customer_ID Customer_Name
1009 วิทยาลัยเทคนิค
และที่ Text29 มี Code VBA
Private Sub Text29_LostFocus()
Forms(frmTable1_insertData).Text37 = SELECT Customer_Name FROM qryTable4_insert WHERE " Text29 " Like " Customer_ID "
End Sub
ผมคงเขียนผิดน่ะครับ พยายามปรับเปลี่ยนแล้ว มันขึ้น Compile error: Syntax error
ความต้องการของผมคือ
เมื่อคลิกเม้าท์ในช่อง Text29 พิมพ์ Customer_ID 4 ตัว เช่น 1009
พอย้ายเมาท์ ไปจาก Text29 แล้วข้อมูล Customer_Name ไปปรากฎบน
Textbox Text37
ขอขอบคุณล่วงหน้าครับ
คือผมมี
Table ชื่อ Table4
Form ชื่อ frmTable1_insertData บน Form มี Textbox 2 กล่อง ชื่อ Text29 และ Text37
Text29 ใช้รับค่า ตัวเลข 4 ตัว เพื่อไปทำ query มีเกณฑ์คือ
[Forms]![frmTable1_insertData]![Text29]
ชื่อ qryTable4_insert ได้ข้อมูลออกมาดังนี้
Customer_ID Customer_Name
1009 วิทยาลัยเทคนิค
และที่ Text29 มี Code VBA
Private Sub Text29_LostFocus()
Forms(frmTable1_insertData).Text37 = SELECT Customer_Name FROM qryTable4_insert WHERE " Text29 " Like " Customer_ID "
End Sub
ผมคงเขียนผิดน่ะครับ พยายามปรับเปลี่ยนแล้ว มันขึ้น Compile error: Syntax error
ความต้องการของผมคือ
เมื่อคลิกเม้าท์ในช่อง Text29 พิมพ์ Customer_ID 4 ตัว เช่น 1009
พอย้ายเมาท์ ไปจาก Text29 แล้วข้อมูล Customer_Name ไปปรากฎบน
Textbox Text37
ขอขอบคุณล่วงหน้าครับ
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
3 @R14013
ผมทำตามที่คุณ sorn บอกมาตาม Link ข้างบนแล้ว มันขึ้น Compile error: Else without IF ครับ และขอถามเพิ่มอีกข้อครับ เวลาเข้าไปใน VBA ภาษาไทยมันจะเป็นอย่างที่เห็นน่ะครับ จะทำอย่างไรถึงจะอ่านออกครับ ขอบคุณครับ
Private Sub Text29_LostFocus()
If Me.Text29 = IsNull(DLookup("Customer_ID", "Table4", "Customer_ID=forms!frmTable1_insertData!Text29")) Then Me.Text37 = "äÁ辺ÃÒ¡ÒÃ"
Else
Text37 = DLookup("Customer_Name", "Table4", "Customer_ID=forms!frmTable1_insertData!Text29")
End If
End Sub
Private Sub Text29_LostFocus()
If Me.Text29 = IsNull(DLookup("Customer_ID", "Table4", "Customer_ID=forms!frmTable1_insertData!Text29")) Then Me.Text37 = "äÁ辺ÃÒ¡ÒÃ"
Else
Text37 = DLookup("Customer_Name", "Table4", "Customer_ID=forms!frmTable1_insertData!Text29")
End If
End Sub
4 @R14014
ได้แล้วครับผมใช้แค่บรรทัดเดียวตามนี้ครับ ขอบคุณมากนะครับสำหรับคำแนะนำ
ของทุกๆ ท่านครับ
Private Sub Text29_LostFocus()
Text37 = DLookup("Customer_Name", "Table4", "Customer_ID=forms!frmTable1_insertData!Text29")
End Sub
ของทุกๆ ท่านครับ
Private Sub Text29_LostFocus()
Text37 = DLookup("Customer_Name", "Table4", "Customer_ID=forms!frmTable1_insertData!Text29")
End Sub
Time: 0.2615s
Access มีเครื่องมือที่สามารถทำได้ด้วยตัวของมันเองอยู่แล้วครับไม่ต้องเขียนCode ใดๆ
ส่งงานของคุณมาที่aj.tong@hotmail.com จะปรับแต่งส่งไปให้
ถ้าคุณอยู่กรุงเทพแล้วว่าง วันที่20 ตค.ขอเชิญรวมพลคนรักAccess
ติดต่อผู้จัดได้เลย