ongke0711 > 13-02-17, 11:09 AM
Private Sub cmdXoa_Click()
Dim db As DAO. Database
Set db=CurrentDb
If MsgBox("Ban muon xoa phieu nay khong?", vbYesNo + vbQuestion, "ABC") = vbYes Then
db.Execute "DELETE * FROM tblPhieuNhapXuatKho WHERE SoChungTu = '" & Me.suf_DMNK.Form.SoChungTu & "'", dbFailOnError
Me.suf_DMNK.Requery
End If
db.Close
End Sub
ChiMai > 13-02-17, 07:43 PM
Function ma_NCC()
On Error Resume Next
Dim i As Double, j As Double
j = DMax("[idNCC]", "[tblDanhMucNhaCungCap]")
If IsNull(j) Then
i = 1
Else
i = j + 1
End If
End Function
maidinhdan > 15-02-17, 12:52 AM
(13-02-17, 07:43 PM)ChiMai Đã viết: Em đang tạo form cập nhật nhà cung cấp mới. Em đang bị mắc ở chỗ hàm tự động tăng mã nhà cung cấp (khi tạo mới). Em không biết lỗi ở đâu khi em chọn nút Mới nó không đánh mã tăng được?
Nhờ mọi người chỉ thêm cho em nhé!Mã PHP:Function ma_NCC()
On Error Resume Next
Dim i As Double, j As Double
j = DMax("[idNCC]", "[tblDanhMucNhaCungCap]")
If IsNull(j) Then
i = 1
Else
i = j + 1
End If
End Function
Cám ơn mọi người nhiều!
Link: http://www.mediafire.com/file/22xvregmrt..._MaNCC.rar
ma_NCC = i