tranthanhan1962 > 19-04-17, 05:45 PM
Private Sub Command41_Click()
Subform2.Requery
RunSQL "Nội dung đoạn SQL chuyễn từ appelle query"
Subform1.Requery
Form3.Refresh
End Sub
thanhtruong > 20-04-17, 11:10 AM
(19-04-17, 05:45 PM)tranthanhan1962 Đã viết: Xong rồi! giờ quay lại CSDL của bạn.
Code trên chỉ là lấy dữ liệu của record hiện hành của subform 2 chuyển qua record của subform 1. Nên bạn phải chọn từng dòng record của subform 2 và từng dòng mới của subform 1 rồi bấm nút lệnh để copy từng dòng tương ứng.
Viết code mà như thế này thà copy từng dòng rồi dán còn sướng hơn.
Để giải quyết toàn bộ đơn thuốc của mã lưu trữ. Bạn phải tạo một quey appelle lọc hết các record của mã lưu trữ hiện hành (ví dụ trên đây là 201700022, tất nhiện khi chuyển qua đơn thuốc khác sẽ có mã khác) của table nguồn subform 2 appelle vào table đích subform 1
Chuyển query appelle trên thành SQL
Viết code như sau:
Mã:Private Sub Command41_Click()
Subform2.Requery
RunSQL "Nội dung đoạn SQL chuyễn từ appelle query"
Subform1.Requery
Form3.Refresh
End Sub
Chú ý:
Nội dung đoạn SQL chuyễn từ appelle query được đặt vào cặp ""
Subform2 và Subform1 không phải là tên subform mà là tên các control subform tương ứng nằm trên mainform
Do không có CSDL nên mình không thể tạo SQL cho bạn được. Nhưng mà cái này cũng dễ mà
Chúc bạn thành công
thanhtruong > 20-04-17, 12:14 PM
tranthanhan1962 > 20-04-17, 03:54 PM
thanhtruong > 20-04-17, 04:18 PM
(20-04-17, 03:54 PM)tranthanhan1962 Đã viết: Mật khẩu code ???
tranthanhan1962 > 20-04-17, 08:18 PM
tranthanhan1962 > 21-04-17, 01:17 AM
thanhtruong > 21-04-17, 10:21 AM
tranthanhan1962 > 21-04-17, 02:59 PM
thanhtruong > 21-04-17, 05:30 PM