vinamilk0510 > 04-08-15, 02:59 PM
ledangvan > 04-08-15, 03:30 PM
(04-08-15, 02:59 PM)vinamilk0510 Đã viết: Cái tiêu đề của mình nó hơi lủng củng
Nôm na là thế này: mình tạo một form để nhập chứng từ, trường ma-kh hàng sẽ tạo một list sổ xuống (lấy dữ liệu từ bảng ds-khach-hang), mình có gán một phím tắt (F5) để mở bảng ds-khach-hang thêm dữ liệu mới và thêm sự kiện dbl-click gán dữ liệu vào trường ma-kh trên form nhập liệu...
Nhưng mình gặp một rắc rối là khi quay trở lại form nhập liệu thì record được chọn là record đầu tiên, không phải record mình muốn sửa
(ví dụ mình đang ở record số 8, số 9, hay số n thì khi trở lại form nó đều ở vị trí record số 1 )
Mình mò mãi mà chưa ra, có bạn nào biết chỉ hộ mình với. Thanks nhiều
Link file access:
https://drive.google.com/file/d/0B19dkHU...sp=sharing
vinamilk0510 > 04-08-15, 04:26 PM
(04-08-15, 03:30 PM)ledangvan Đã viết:(04-08-15, 02:59 PM)vinamilk0510 Đã viết: Cái tiêu đề của mình nó hơi lủng củng
Nôm na là thế này: mình tạo một form để nhập chứng từ, trường ma-kh hàng sẽ tạo một list sổ xuống (lấy dữ liệu từ bảng ds-khach-hang), mình có gán một phím tắt (F5) để mở bảng ds-khach-hang thêm dữ liệu mới và thêm sự kiện dbl-click gán dữ liệu vào trường ma-kh trên form nhập liệu...
Nhưng mình gặp một rắc rối là khi quay trở lại form nhập liệu thì record được chọn là record đầu tiên, không phải record mình muốn sửa
(ví dụ mình đang ở record số 8, số 9, hay số n thì khi trở lại form nó đều ở vị trí record số 1 )
Mình mò mãi mà chưa ra, có bạn nào biết chỉ hộ mình với. Thanks nhiều
Link file access:
https://drive.google.com/file/d/0B19dkHU...sp=sharing
Cho cái này vào thu tục Load Form : DoCmd.GoToRecord , "", acLast
ledangvan > 04-08-15, 04:33 PM
(04-08-15, 04:26 PM)vinamilk0510 Đã viết:(04-08-15, 03:30 PM)ledangvan Đã viết:(04-08-15, 02:59 PM)vinamilk0510 Đã viết: Cái tiêu đề của mình nó hơi lủng củng
Nôm na là thế này: mình tạo một form để nhập chứng từ, trường ma-kh hàng sẽ tạo một list sổ xuống (lấy dữ liệu từ bảng ds-khach-hang), mình có gán một phím tắt (F5) để mở bảng ds-khach-hang thêm dữ liệu mới và thêm sự kiện dbl-click gán dữ liệu vào trường ma-kh trên form nhập liệu...
Nhưng mình gặp một rắc rối là khi quay trở lại form nhập liệu thì record được chọn là record đầu tiên, không phải record mình muốn sửa
(ví dụ mình đang ở record số 8, số 9, hay số n thì khi trở lại form nó đều ở vị trí record số 1 )
Mình mò mãi mà chưa ra, có bạn nào biết chỉ hộ mình với. Thanks nhiều
Link file access:
https://drive.google.com/file/d/0B19dkHU...sp=sharing
Cho cái này vào thu tục Load Form : DoCmd.GoToRecord , "", acLast
Vẫn không được bạn ơi, khi chuyển qua form khác thì vị trí record lại chuyển về record số 1 (nên khi mình dblclick vào bảng ds-khach-hang thì nó gán mã vào trường ma-kh của record số 1 chứ không phải record mình cần thêm)
https://lh3.googleusercontent.com/sbDacC...76-h667-no
https://lh3.googleusercontent.com/vLSnpH...76-h667-no
MTNQ > 05-08-15, 07:31 AM
(04-08-15, 02:59 PM)vinamilk0510 Đã viết: Cái tiêu đề của mình nó hơi lủng củng
Nôm na là thế này: mình tạo một form để nhập chứng từ, trường ma-kh hàng sẽ tạo một list sổ xuống (lấy dữ liệu từ bảng ds-khach-hang), mình có gán một phím tắt (F5) để mở bảng ds-khach-hang thêm dữ liệu mới và thêm sự kiện dbl-click gán dữ liệu vào trường ma-kh trên form nhập liệu...
Nhưng mình gặp một rắc rối là khi quay trở lại form nhập liệu thì record được chọn là record đầu tiên, không phải record mình muốn sửa
(ví dụ mình đang ở record số 8, số 9, hay số n thì khi trở lại form nó đều ở vị trí record số 1 )
Mình mò mãi mà chưa ra, có bạn nào biết chỉ hộ mình với. Thanks nhiều
Link file access:
https://drive.google.com/file/d/0B19dkHU...sp=sharing
Private Sub ma_kh_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF3 Then
DoCmd.OpenForm "frm-ds-khach-hang", acFormDS
DoCmd.GoToControl Forms![frm-ds-khach-hang]![ma-kh].Name
DoCmd.FindRecord Forms![frm-chung-tu-thu]![ma-kh]
End If
End Sub
Private Sub ma_kh_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF3 Then
DoCmd.OpenForm "frm-ds-khach-hang", acFormDS, , "[ma-kh] = '" & Me.ma_kh & "'"
End If
End Sub
Private Sub Form_DblClick(Cancel As Integer)
If Forms![frm-chung-tu-thu]![ma-kh] <> "" Then
If MsgBox(DLookup("[message]", "tbl-message", "[id]=1"), vbYesNo, DLookup("[title]", "tbl-message", "[id]=1")) = vbYes Then
Forms![frm-chung-tu-thu]![ma-kh] = Forms![frm-ds-khach-hang]![ma-kh]
End If
Else 'Gan gia tri ma khach hang tu bang ds-khach-hang vào bang chung-tu-thu
Forms![frm-chung-tu-thu]![ma-kh] = Forms![frm-ds-khach-hang]![ma-kh]
End If
DoCmd.Close acForm, "frm-ds-khach-hang"
End Sub
vinamilk0510 > 05-08-15, 02:45 PM