Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Hỏi về cách tạo và update nhanh record mới vào CSDL khi recordsource là query
#1
Mình làm chương trình quản lý thiết bị có một bảng tblThietbi chứa dữ liệu, 2 form như sau:
[Hình: 002.jpg]
Form2 này là form lọc dữ liệu theo các tham số từ các combobox và textbox như đã thấy (bằng query qryLoc), nhấn nút "Truy nhập dữ liệu" thì sẽ hiện Form1 như sau:
[Hình: Form2.png]
Form1 này sẽ chứa toàn các record đã được lọc từ Form2, người dùng có thể chỉnh sửa dữ liệu và in luôn thông qua Report vì vậy mình để chung thuộc tính recordsource của cả 2 form là qryLoc.
Trên Form1 khi nhấn nút Copy thì chương trình sẽ sao chép ra một record mới có giá trị các Field y hệt với record hiện hành trên Form1, save vào CSDL luôn và mình có thể dùng mà in luôn. Bằng code như này:

Private Sub cmdSaochep_Click()
'On Error GoTo Err_Handler
Dim strSql As String 'SQL statement.
Dim lngID As Long 'Primary key value of the new record.

If Me.NewRecord Then
MsgBox "Select the record to duplicate."
Else
With Me.RecordsetClone
.AddNew
!tenTB = Me.cbbTenTB
........
'va nhieu truong khac nua
.Update
Me.Bookmark = .LastModified
End With
End If

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Requery

Exit_Handler:
Exit Sub

Err_Handler:
MsgBox "Error " & Err.Number & " - " & Err.Description, , "cmdSaochep_Click"
Resume Exit_Handler
End Sub

Vấn đề ở chỗ mình muốn làm một nút New tạo mới record với các Field hoàn toàn trắng để người dùng có thể nhập dữ liệu, được sao lưu luôn và in ngay nhưng mình thử nhiều phương pháp mà không được:
1. Mình áp dụng code giống như nút Copy như trên nhưng chưa làm được việc gán giá trị các field của record mới là "trắng"
2. Sử dụng
DoCmd.GoToRecord , , acNewRec
thì nó sẽ không lưu và in luôn được mà phải khi tắt chương trình mở lại mới thấy record mới

Rất mong được sự giúp đỡ của các bạn, cám ơn rất nhiều !
Chữ ký của neverstopvn Xin chào, mình là neverstopvn, Tham gia http://thuthuataccess.com/forum từ ngày 20-05 -11.
Reply
Những người đã cảm ơn
#2
bạn thử phát biểu cặp lệnh này
Mã:
DoCmd.GoToRecord , , acNewRec ' tạo record mới
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 ' save record hiện hành
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , neverstopvn , nhunguyet0103


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  tạo query trị giá cao nhất tran780 4 88 8 Giờ trước
Bài mới nhất: tran780
  Xin giúp về tạo query để làm theo mẫu report trungminh 10 296 23-05-17, 08:08 AM
Bài mới nhất: tranthanhan1962
  cho hỏi về cách gộp mã hàng trong tieu_ngao 10 482 18-05-17, 07:25 PM
Bài mới nhất: tieu_ngao
  Nhờ sửa lỗi # Error khi tính toán trong Query tieu_ngao 13 402 18-05-17, 06:52 AM
Bài mới nhất: tieu_ngao
  Thiết lập giá bán chi tiết cho query feeling 2 133 11-05-17, 04:22 PM
Bài mới nhất: tranthanhan1962

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ