กระทู้เก่าบอร์ด อ.Yeadram
1,131 3
URL.หัวข้อ /
URL
เรียนอาจารย์ทุกท่านครับ
ผมใช้คำสั่งในการอัพเดทข้อมูลจากฟอร์มไปสู่ตารางดังนี้ครับ
Dim myDB As Database
Dim mySet As DAO.Recordset
Set myDB = DBEngine.Workspaces(0).Databases(0)
Set mySet = myDB.OpenRecordset("Tblpro", dbOpenDynaset)
mySet.AddNew
mySet![no] = no
mySet![name] = name
mySet![Product] = Product
mySet.Update
mySet.Close
myDB.Close
1.ผมต้องการให้เช็คค่าของ txtno อีกตารางหนึ่งชือ tblcus เพื่อให้เพิ่มหมายเลขลูกค้าใน txtno ครับ
2.เมื่อคลิกบันทึกที่ Command อยากให้ข้อมูลที่อยู่ใน txtbox และ combobox(มีค่าเป็น unbound) ทุกตัวที่อยู่ในฟอร์มมีค่าเท่ากับเวลาที่เราเปิดเข้ามาใหม่ ตอนนี้ผมใชั DoCmd.GoToRecord , , acNewRec มันไม่ได้ผลครับ
ขอขอบคุณอาจารย์ทุกท่านครับ
Dim myDB As Database
Dim mySet As DAO.Recordset
Set myDB = DBEngine.Workspaces(0).Databases(0)
Set mySet = myDB.OpenRecordset("Tblpro", dbOpenDynaset)
mySet.AddNew
mySet![no] = no
mySet![name] = name
mySet![Product] = Product
mySet.Update
mySet.Close
myDB.Close
1.ผมต้องการให้เช็คค่าของ txtno อีกตารางหนึ่งชือ tblcus เพื่อให้เพิ่มหมายเลขลูกค้าใน txtno ครับ
2.เมื่อคลิกบันทึกที่ Command อยากให้ข้อมูลที่อยู่ใน txtbox และ combobox(มีค่าเป็น unbound) ทุกตัวที่อยู่ในฟอร์มมีค่าเท่ากับเวลาที่เราเปิดเข้ามาใหม่ ตอนนี้ผมใชั DoCmd.GoToRecord , , acNewRec มันไม่ได้ผลครับ
ขอขอบคุณอาจารย์ทุกท่านครับ
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R11036
ในข้อที่สองนะครับ เวลาที่บันทึกข้อมูลแล้ว ไม่เข้าใจว่าผมใช้ DoCmd.GoToRecord , , acNewRec ข้อมูลที่เรากรอกและบันทึกไปแล้วก็ยังอยู่ครับ มันไม่ขึ้นเรคคอร์ดใหม่ครับ
3 @R11038
ถ้าเป็น Unbound ก็ต้องเขียนโค้ดเคลียร์ข้อมูลบนฟอร์มเองครับ
Time: 0.3312s
ข้อ 2. "txtbox และ combobox(มีค่าเป็น unbound) ทุกตัวที่อยู่ในฟอร์มมีค่าเท่ากับเวลาที่เราเปิดเข้ามาใหม่"
--> ทำไมทุกตัวต้องเท่ากับเวลา,
--> เวลาที่เราเปิด คือ current time หรือเปล่าครับ