MTNQ > 28-02-14, 06:02 PM
Private Sub manoinx_AfterUpdate()
On Error GoTo Err_manoinx_AfterUpdate
If Me.NewRecord Then
Dim strID As String, lngID As Long
strID = DLast("[macongvan]", "[theodoinhapxuat]")
lngID = Val(strID)
Do Until DCount("[macongvan]", "[theodoinhapxuat]", "[macongvan] = '" & strID & "'") = 0
lngID = lngID + 1
strID = Trim(Str(lngID))
Loop
Me!Text46 = strID
End If
Exit_manoinx_AfterUpdate:
Exit Sub
Err_manoinx_AfterUpdate:
MsgBox Err.Description
Resume Exit_manoinx_AfterUpdate
End SubPrivate Sub Command88_Click()
On Error GoTo Err_cmdCommand88_Click
If Me.NewRecord And Not Me.Dirty Then
MsgBox "Chua co du lieu de Sao chep", , "luu Y!"
Exit Sub
End If
Me.Text46.SetFocus
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdRecordsGoToNew
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
Exit_cmdCommand88_Click:
Exit Sub
Err_cmdCommand88_Click:
MsgBox Err.Description
Resume Exit_cmdCommand88_Click
End Sub= DCount("[mavt]", "[vattu]", "([vattu].[mavt]) Like 'DK' & '*'")MTNQ > 28-02-14, 07:23 PM
(28-02-14, 09:42 AM)daiphong1979 Đã viết: 2/ Săn đây bạn cho mình hỏi ..phần report mìnhMình tìm trong file của bạn không thấy có Report nào như bạn hỏi
Thí dụ : xem điện kế thì có nhiều mã điện kế như : DK1040, DK520, DK2080...em muốn xem tổng tức là chỉ đếm vật tư có mã là DK thôi thì phải làm thế nào...em đã thử làm hàm left, right nhưng vẫn lại không thành công..
= DCount("[mavt]", "[vattu]", "Left([mavt],2)= 'DK' ")MTNQ > 28-02-14, 07:54 PM
daiphong1979 > 01-03-14, 10:55 AM
nguyenichtri > 20-10-15, 03:03 PM
(28-02-14, 06:02 PM)MatTroiNguQuen Đã viết: 1/Trường macongvan của bạn kiểu text nên không dùng hàm Dmax đượcHôm nay đọc đến bài này, mình muốn hỏi 1 ý là có cách nào truyền tham số ấn định số lần click của nut copy không? Ví dụ tao 1 textbox A để điền 1 số bất kỳ, khi click nút copy sẽ tự chạy đúng số lần ở A.
-Thủ tục sự kiện AfterUpdate của text box manoinx bạn code như sau:
Mã:Private Sub manoinx_AfterUpdate()
On Error GoTo Err_manoinx_AfterUpdate
If Me.NewRecord Then
Dim strID As String, lngID As Long
strID = DLast("[macongvan]", "[theodoinhapxuat]")
lngID = Val(strID)
Do Until DCount("[macongvan]", "[theodoinhapxuat]", "[macongvan] = '" & strID & "'") = 0
lngID = lngID + 1
strID = Trim(Str(lngID))
Loop
Me!Text46 = strID
End If
Exit_manoinx_AfterUpdate:
Exit Sub
Err_manoinx_AfterUpdate:
MsgBox Err.Description
Resume Exit_manoinx_AfterUpdate
End Sub
Thủ tục trên nhằm tạo mã số tự động cho macongvan sau khi nhập "Nơi gởi"
-Code nút copy:
Mã:Private Sub Command88_Click()
On Error GoTo Err_cmdCommand88_Click
If Me.NewRecord And Not Me.Dirty Then
MsgBox "Chua co du lieu de Sao chep", , "luu Y!"
Exit Sub
End If
Me.Text46.SetFocus
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdRecordsGoToNew
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
Exit_cmdCommand88_Click:
Exit Sub
Err_cmdCommand88_Click:
MsgBox Err.Description
Resume Exit_cmdCommand88_Click
End Sub
2/ chỉ đếm vật tư có mã là DK :
Mã:= DCount("[mavt]", "[vattu]", "([vattu].[mavt]) Like 'DK' & '*'")
MTNQ > 25-10-15, 03:27 AM
(20-10-15, 03:03 PM)nguyenichtri Đã viết: Hôm nay đọc đến bài này, mình muốn hỏi 1 ý là có cách nào truyền tham số ấn định số lần click của nut copy không? Ví dụ tao 1 textbox A để điền 1 số bất kỳ, khi click nút copy sẽ tự chạy đúng số lần ở A.
Cảm ơn
thucgia > 25-10-15, 07:10 PM
(25-02-14, 03:04 PM)daiphong1979 Đã viết: Cám ơn các bạn ! Trong việc copy nội dung các field trong một form theo các code của bạn mattroinguquen chỉ thực hiện được nếu trên form đó không có một filed là khóa chính ...
Trong trường hợp của mình ..thì không thể nào copy được ..nó luôn báo không cho duplicate field có khóa chính !
các bạn xem lại giúp mình trường hợp này nhé ...xin cám ơn các bạn...