อยากทราบฟังก์ชันในการ update ค่าที่ใส่จากฟอร์มไปสู่รายงานค่ะ
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 252   1
URL.หัวข้อ / URL
อยากทราบฟังก์ชันในการ update ค่าที่ใส่จากฟอร์มไปสู่รายงานค่ะ

จากฟังก์ชันนี้อยากให้ เมื่อกดปุ่ม add แล้วอยากให้ค่าที่ได้ ไป update ใน report ชื่อ rptnew ด้วยค่ะแต่ไม่รู้ว่าจะเขียนยังไงต่อดี
Private Sub cmdAddnew_Click()
On Error GoTo Err_cmdAddnew_Click

Dim rstMax As Recordset

Set CMDatabase = CurrentDb
Set rst = CMDatabase.OpenRecordset("DaoData", dbOpenTable)


With rst
.AddNew
rst!RecordID = txtID
rst!RecordData = cboCustomerID
rst!Name = txtFirstName
rst!timein = txtLastName
rst!timeout = txtAddress
.Update
End With

rstMax.Close
Set rstMax = Nothing
rst.Close

Exit_cmdAddnew_Click:
Exit Sub

Err_cmdAddnew_Click:
Resume Exit_cmdAddnew_Click
รบกวนอาจารย์ช่วยดูหน่อยนะค่ะ


1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R02915
หมายถึง ให้เพิ่มข้อมูลใหม่เข้าไป แล้วให้ Preview ข้อมูลใหม่นี้ใน Report เป้าหมายเลยใช่มั๊ยครับ

ลองแบบนี้ครับ

Private Sub cmdAddnew_Click()
On Error GoTo Err_cmdAddnew_Click

Dim rst As Object, CMDatabase as Object

Set CMDatabase = CurrentDb
Set rst = CMDatabase.OpenRecordset("DaoData", dbOpenTable)


With rst
.AddNew
rst!RecordID = txtID
rst!RecordData = cboCustomerID
rst!Name = txtFirstName
rst!timein = txtLastName
rst!timeout = txtAddress
.Update
End With

rst.Close
Set rst = Nothing
CMDatabase.Close
Set CMDatabase = Nothing

' เปิดรายงานเฉพาะข้อมูลใหม่ที่เพิ่งเพิ่มเข้าไป
DoCmd.OpenReport "rptnew", acViewPreview, , "ID=" & txtID

Exit_cmdAddnew_Click:
Exit Sub

Err_cmdAddnew_Click:
Resume Exit_cmdAddnew_Click

End Sub
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0848s