ต้องการให้ text box ฟอร์มแรกเท่ากับฟอร์ม 2 ครับ



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

19 มิ.ย. 62 , 15:23:20
อ่าน 548 ครั้ง

Eik Q Sang

ผมสร้างฟอร์ม ชื่อ frmMain1 มี text box ชื่อ txt_No1 ในฟอร์มนี้มีปุ่มเปิดฟอร์ม ชื่อ frmMain2 ในฟอร์มนี้มี textbox ชื่อ txt_No2
คำถาม ผมต้องการให้ frmMain1 เมื่อกดปุ่มเปิดฟอร์ม frmMain2 ให้ txt_No1= txt_No2 ต้องเขียนโค้ดใน vb ว่าอย่างไรบ้างครับ ขอบคุณมากครับ

 

19 มิ.ย. 62 , 15:50:06
ตอบกลับ #1

ปิ่นณรงค์

: ต้องการให้ text box ฟอร์มแรกเท่ากับฟอร์ม 2 ครับ
« ตอบกลับ #1 เมื่อ: 19 มิ.ย. 62 , 15:50:06 »
ผมสร้างฟอร์ม ชื่อ frmMain1 มี text box ชื่อ txt_No1 ในฟอร์มนี้มีปุ่มเปิดฟอร์ม ชื่อ frmMain2 ในฟอร์มนี้มี textbox ชื่อ txt_No2
คำถาม ผมต้องการให้ frmMain1 เมื่อกดปุ่มเปิดฟอร์ม frmMain2 ให้ txt_No1= txt_No2 ต้องเขียนโค้ดใน vb ว่าอย่างไรบ้างครับ ขอบคุณมากครับ

ถ้าเป็นแบบ อ้างอิงแบบไม่ได้ Filter ที่ปุ่มก็ใส่แบบนี้ครับ
โค๊ด: [Select]
Private Sub OpenFrmMain2_Click()
DoCmd.OpenForm "frmmain2"
Forms!frmmain2.Form!txt_No2 = Me.txt_No1
End Sub

แต่ถ้าเป็นรูปแบบการ Filter เช่น txt_No2 Bound Field ชื่อ No และอยากให้ ระบุ No ที่ frmmain1 เมื่อเปิดฟอร์ม frmmain2 ก็ให้ Filter No มาแสดงก็ใส่แบบนี้
ถ้า Field No เป็น Number
โค๊ด: [Select]
Private Sub OpenFrmMain2_Click()
DoCmd.OpenForm "frmmain2", WhereCondition:="[No]=" & Me.txt_No1
End Sub

ถ้า Field No เป็น text
โค๊ด: [Select]
DoCmd.OpenForm "frmmain2", WhereCondition:="[No]= '" & Me.txt_No1 & "'"
« แก้ไขครั้งสุดท้าย: 19 มิ.ย. 62 , 16:07:01 โดย ปิ่นณรงค์ »
:love: :grin:
 
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang

19 มิ.ย. 62 , 16:10:10
ตอบกลับ #2

Eik Q Sang

: ต้องการให้ text box ฟอร์มแรกเท่ากับฟอร์ม 2 ครับ
« ตอบกลับ #2 เมื่อ: 19 มิ.ย. 62 , 16:10:10 »
ผมสร้างฟอร์ม ชื่อ frmMain1 มี text box ชื่อ txt_No1 ในฟอร์มนี้มีปุ่มเปิดฟอร์ม ชื่อ frmMain2 ในฟอร์มนี้มี textbox ชื่อ txt_No2
คำถาม ผมต้องการให้ frmMain1 เมื่อกดปุ่มเปิดฟอร์ม frmMain2 ให้ txt_No1= txt_No2 ต้องเขียนโค้ดใน vb ว่าอย่างไรบ้างครับ ขอบคุณมากครับ

ถ้าเป็นแบบ อ้างอิงแบบไม่ได้ Filter ที่ปุ่มก็ใส่แบบนี้ครับ
โค๊ด: [Select]
Private Sub OpenFrmMain2_Click()
DoCmd.OpenForm "frmmain2"
Forms!frmmain2.Form!txt_No2 = Me.txt_No1
End Sub

แต่ถ้าเป็นรูปแบบการ Filter เช่น txt_No2 Bound Field ชื่อ No และอยากให้ ระบุ No ที่ frmmain1 เมื่อเปิดฟอร์ม frmmain2 ก็ให้ Filter No มาแสดงก็ใส่แบบนี้
ถ้า Field No เป็น Number
โค๊ด: [Select]
Private Sub OpenFrmMain2_Click()
DoCmd.OpenForm "frmmain2", WhereCondition:="[No]=" & Me.txt_No1
End Sub

ถ้า Field No เป็น text
โค๊ด: [Select]
DoCmd.OpenForm "frmmain2", WhereCondition:="[No]= '" & Me.txt_No1 & "'"

ขอบคุณมากครับอาจารย์

 


บอร์ดเรียนรู้ Access สำหรับคนไทย