กระทู้เก่าบอร์ด อ.Yeadram
850 6
URL.หัวข้อ /
URL
ผู้ไม่รู้
มีฟอร์ม F1 เปล่าๆ มี textbox ชื่อ txt1 อยู่อันเดียว ไม่ผูกหรือเชื่อมโยงกับ ตารางใดๆ มีปุ่ม เปิดรายงาน บนหน้าฟอร์มอยู่ 1 ปุ่ม
มีรายงานชื่อ R1 เปล่าๆ มี textbox ชื่อ txt2 อยู่อันเดียว ไม่ผูกหรือเชื่อมโยงกับ ตารางใดๆ
ผมต้องการให้เมื่อคลิกปุ่ม เปิดรายงาน จากหน้าฟอร์ม ให้เอาข้อความ ที่กรอกใน txt1 หน้าฟอร์ม
ไปใส่ใน txt2 หน้ารายงาน ลองเขียนโค้ดแล้วเกิด error ฟ้องว่า ไม่พบเขตข้อมูลที่ถูกอ้างอิง
คิดว่าคงเกิดจากการวิธีการอ้างอิง ที่ผิด ช่วยแก้โค้ดให้ด้วยครับ
DoCmd.OpenReport "R1", acViewPreview, , [txt2] = [Forms]![F1]![txt1]
มีรายงานชื่อ R1 เปล่าๆ มี textbox ชื่อ txt2 อยู่อันเดียว ไม่ผูกหรือเชื่อมโยงกับ ตารางใดๆ
ผมต้องการให้เมื่อคลิกปุ่ม เปิดรายงาน จากหน้าฟอร์ม ให้เอาข้อความ ที่กรอกใน txt1 หน้าฟอร์ม
ไปใส่ใน txt2 หน้ารายงาน ลองเขียนโค้ดแล้วเกิด error ฟ้องว่า ไม่พบเขตข้อมูลที่ถูกอ้างอิง
คิดว่าคงเกิดจากการวิธีการอ้างอิง ที่ผิด ช่วยแก้โค้ดให้ด้วยครับ
DoCmd.OpenReport "R1", acViewPreview, , [txt2] = [Forms]![F1]![txt1]
6 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R18842
ขออภัย ดันเอาชื่อไปใส่ในช่องหัวข้อ ดูผิดครับ
2 @R18843
จริงๆ ก็ไม่ต้องใช้ VBA เลยนะครับ ใช้มาโครก็พอ
ทำตามนี้นะครับ
1. ที่ฟอร์ม (ชื่อ frmF1) มี Text Box (ชื่อ txtText1) มี Command Button
2. ที่รายงาน (ชื่อ rptR1) มี Text Box 1 อันชื่อ txtText2
3. ที่ txtText2 ให้กำหนด Control Source เป็น =[Forms]![frmF1]![txtText1]
4. กำหนดมาโครให้ปุ่ม Command Button ในฟอร์มสั่งเปิดรายงาน rptR1
ทำตามนี้นะครับ
1. ที่ฟอร์ม (ชื่อ frmF1) มี Text Box (ชื่อ txtText1) มี Command Button
2. ที่รายงาน (ชื่อ rptR1) มี Text Box 1 อันชื่อ txtText2
3. ที่ txtText2 ให้กำหนด Control Source เป็น =[Forms]![frmF1]![txtText1]
4. กำหนดมาโครให้ปุ่ม Command Button ในฟอร์มสั่งเปิดรายงาน rptR1
3 @R18844
ถ้าจะใช้ VBA ก็บอกมาละกัน ผมเขียนเอาไว้แล้วล่ะ แต่ผมไม่ชอบมันเลย
4 @R18845
ขอรบกวนเป็น VBA ได้ไม๊ครับ เพราะมาโคร ของผมมันเยอะมาก
จนตอนนี้ ตั้งซื่อ ซ้ำไป ซ้ำมา โยงไปโยงมา จน งง ละครับ
ถ้าเป็น VBA มันจบในโค้ดเดียวได้ไม่ต้องไปโยงอีกน่ะครับ
ขอบคุณท่าน ธัชชัย มากครับผม
จนตอนนี้ ตั้งซื่อ ซ้ำไป ซ้ำมา โยงไปโยงมา จน งง ละครับ
ถ้าเป็น VBA มันจบในโค้ดเดียวได้ไม่ต้องไปโยงอีกน่ะครับ
ขอบคุณท่าน ธัชชัย มากครับผม
5 @R18846
DoCmd.OpenReport "rptR1", acViewDesign
Reports!rptR1!txtText2.ControlSource = "=[Forms]![frmF1]![txtText1]"
DoCmd.OpenReport "rptR1", acViewPreview
ผมชัง Code อันนี้ ตั้งแต่ผมเคยเขียน Code มา
Reports!rptR1!txtText2.ControlSource = "=[Forms]![frmF1]![txtText1]"
DoCmd.OpenReport "rptR1", acViewPreview
ผมชัง Code อันนี้ ตั้งแต่ผมเคยเขียน Code มา
6 @R18847
ขอบคุณครับท่าน ธัชชัย
Time: 0.3172s