กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
318 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
รบกวนอาจารย์ช่วยดูหน่อยนะค่ะ
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
Time: 0.1419s
ลองแบบนี้ครับ
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