• Cập nhật số liệu trên forms
  • Cập nhật số liệu trên forms

    DoquangLam > 04-11-10, 08:12 PM

    Các bạn giúp mình với nhé :

    Khi mình nhập số liệu vào forms frmBanHang, khi nhập Combo mã vật tư sai mã có trong T_DMVatTu thì hiện thông báo “Vật tư này chưa đăng ký” và hiện forms F_DMVatTu để mình đăng ký thêm => code mình đã làm được.

    Bây giờ mình muốn : Khi báo lỗi Vật tư chưa đăng ký bấm OK thì hiện lên F_DMVatTu, mình đăng ký thêm Mã vật tư vào F_DMVatTu xong khi bấm nút Kết thúc thì vật tư vừa nhập đó được hiện luôn trong Combo mã vật tư trên frrmBanHang

    Xin cám ơn !
  • RE: Cập nhật số liệu trên forms

    dinhvank19 > 04-11-10, 10:54 PM

    (04-11-10, 08:12 PM)DoquangLam Đã viết: Các bạn giúp mình với nhé :

    Khi mình nhập số liệu vào forms frmBanHang, khi nhập Combo mã vật tư sai mã có trong T_DMVatTu thì hiện thông báo “Vật tư này chưa đăng ký” và hiện forms F_DMVatTu để mình đăng ký thêm => code mình đã làm được.

    Bây giờ mình muốn : Khi báo lỗi Vật tư chưa đăng ký bấm OK thì hiện lên F_DMVatTu, mình đăng ký thêm Mã vật tư vào F_DMVatTu xong khi bấm nút Kết thúc thì vật tư vừa nhập đó được hiện luôn trong Combo mã vật tư trên frrmBanHang

    Xin cám ơn !

    Bạn thử đoạn code này ở sự kiện on not in list tai combo MAVT trong forms frmBanHang như sau:
    Private Sub MAVT_NotInList(NewData As String, Response As Integer)
    Dim ctl As Control
    Set ctl = Me!Mavt
    If MsgBox ('Chua co trong danh muc.Cap nhat khong?", vbYesNo, "Cap nhat moi") = vbYes Then
    Response = acDataErrAdded
    DoCmd.OpenForm "F_DMVatTu ", , , , acFormAdd, acDialog
    ctl.RowSource = ctl.RowSource
    Else
    Response = acDataErrContinue
    ctl.Undo
    End If
    End Sub

    Thân ái
  • RE: Cập nhật số liệu trên forms

    DoquangLam > 05-11-10, 12:04 PM

    Vẫn không được bạn ơi, bạn làm ơn tải file mình gửi về thử dùm mình với. Cám ơn.
  • RE: Cập nhật số liệu trên forms

    Cafe Via He > 05-11-10, 02:14 PM

    @DoquangLam : Bạn sửa lại đoạn code cho nút KetThuc như sau thử xem. Thân happy !!!!

    Mã:
    Private Sub KetThuc_Click()
    Form_frmBanHang.Recalc
    DoCmd.Close
    End Sub
  • RE: Cập nhật số liệu trên forms

    DoquangLam > 05-11-10, 02:25 PM

    Không được Cafe ơi, chắc phải nhờ Noname ra tay thôi.
  • RE: Cập nhật số liệu trên forms

    hmhieu > 29-11-10, 09:48 PM

    Mình cũng kẹt như bạn DoquangLam, có ai cao thủ giúp với.

    Rất cảm ơn!
    Mình cũng kẹt như bạn DoquangLam, có ai cao thủ giúp với.

    Rất cảm ơn!