audition > 15-02-12, 04:44 PM
Noname > 15-02-12, 08:33 PM
Greenlov3 > 19-04-12, 12:34 PM
(15-02-12, 04:44 PM)audition Đã viết: Ngâm cứu tan nát mà hok ra, khi nhấn nút thêm mới nhập dữ liệu vào các ô trên form xong bấm lưu thì nó sẽ kiểm tra số đến nếu trùng nó sẽ đưa ra câu hỏi có thay thế k, nếu nhấn có thì thay thế toàn bộ còn không thì quay lại cho sửa số đến (các ô trong sub form phải tự f5 số liệu khi có thay đổi hoặc khi click các nút lệnh).
Em gặp vướng thêm ở trường hợp về nút sửa, khi chọn dữ liệu cần sửa xong, nhấn nút sửa xong bấm lưu thì nó luôn hỏi trùng số đến, làm sao để khi nhấn nút sửa thì mình nhập các số liệu trên form xong (nếu có sửa số đến thì nó mới kiểm tra trùng) nhấn nút lưu nó sẽ cập nhật số liệu vào record đó
cái file của e đây:
http://www.4shared.com/rar/7WORoI-s/qlcv_3.html
Giúp em với, đa tạ, đa tạ.....
(15-02-12, 04:44 PM)audition Đã viết: Ngâm cứu tan nát mà hok ra, khi nhấn nút thêm mới nhập dữ liệu vào các ô trên form xong bấm lưu thì nó sẽ kiểm tra số đến nếu trùng nó sẽ đưa ra câu hỏi có thay thế k, nếu nhấn có thì thay thế toàn bộ còn không thì quay lại cho sửa số đến (các ô trong sub form phải tự f5 số liệu khi có thay đổi hoặc khi click các nút lệnh).
Em gặp vướng thêm ở trường hợp về nút sửa, khi chọn dữ liệu cần sửa xong, nhấn nút sửa xong bấm lưu thì nó luôn hỏi trùng số đến, làm sao để khi nhấn nút sửa thì mình nhập các số liệu trên form xong (nếu có sửa số đến thì nó mới kiểm tra trùng) nhấn nút lưu nó sẽ cập nhật số liệu vào record đó
cái file của e đây:
http://www.4shared.com/rar/7WORoI-s/qlcv_3.html
Giúp em với, đa tạ, đa tạ.....
Xuân Thanh > 19-04-12, 02:27 PM
(19-04-12, 12:34 PM)Greenlov3 Đã viết: cái này hay thật anh nhi? nhưng ko biết mổ xẻ ra xem ntn ca? hi`
Private Sub cmdThem_Click()
Dim Khach As Recordset
Set Khach = CurrentDb.OpenRecordset("tblKhachHang", dbOpenTable)
Khach.Index = "PrimaryKey"
Khach.Seek "=", Me.MaKhach
If Not Khach.NoMatch Then 'Neu trung
Anser = MsgBox("Ma khach da ton tai. Cap nhat(Yes) hay khong(No)", vbDefaultButton2 + vbQuestion + vbYesNo, "ThongBao")
If Anser = vbNo Then 'Neu khong thay the
Me.MaKhach.SetFocus
Else 'Neu co thay the cac du lieu khac cua Ma Khach hien hanh, khong thay ma khach
Khach.Bookmark = Khach.LastModified
Khach.Edit
Khach.Fields(1) = Me.TenKhach
Khach.Fields(2) = Me.DiaChi
Khach.Update
End If
Else 'Neu khong trung
DoCmd.RunCommand acCmdSaveRecord
End If
End Sub