-
12-23-2008, 06:27 AM #1Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
giúp mình số chứng từ tự động tăng khi nhấn nút thêm
mình có mainform & subform, trong đó có REC là khoá, còn số chứng từ là kiểu số.
mình thiết kế có 1 nút thêm có dạng như sau :
Private Sub cmdthem_Click()
On Error GoTo Err_cmdthem_Click
DoCmd.GoToRecord , , acNewRec
SOCT.SetFocus
SOCT = Format(DCount("B01 CHI TIET THU CHI.SOCT", "B01 CHI TIET THU CHI", Not (SOCT) = Null) + 1, "000")
DoCmd.GoToControl "MACTX"
Exit_cmdthem_Click:
Exit Sub
Err_cmdthem_Click:
MsgBox Err.Description
Resume Exit_cmdthem_Click
End Sub
View more random threads:
- Giúp mình phần tạo command button
- Xin hướng dẫn cách chèn hình vào trong access 2007
- Cần giúp đỡ về report có điều kiện trong access 2003
- Giúp tạo main/sub form
- Lỗi combobox và Listbox.
- Lỗi Record new trong share csdl nhiều người dùng
- Đề tài quản lý bán hàng!
- Bài tập Access
- Tại mục Total trong query, khi nào xài expresion?
- Tạo tiêu đề in đậm của form dạng datasheet
-
12-23-2008, 03:51 PM #2Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: giúp mình số chứng từ tự động tăng khi nhấn nút thêm
Gửi bởi xiketuan
Trong đoạn code của bạn, thật tình tôi thấy hơi vương vướng. Theo tôi, bạn nên sửa lại:
Dim somax
somax = DMAX("SOCT", "B01 CHI TIET THU CHI", "SOCT Is Not Null)
If IsNull(somax) Then
SOCT = "001"
Else
SOCT = Right("000 & Trim(Str(Val(somax) + 1), 3)
End If
-
12-23-2008, 06:49 PM #3Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 11
Ðề: giúp mình số chứng từ tự động tăng khi nhấn nút thêm
Gửi bởi phatnq2002
Pallet nhựa Nhơn Trạch giao hàng nhanh Pallet nhựa Nhơn Trạch là lựa chọn phổ biến cho nhiều doanh nghiệp do tính linh hoạt, bền bỉ và đa dạng trong ứng dụng. Các sản phẩm pallet nhựa Nhơn Trạch ở...
Pallet nhựa Nhơn Trạch giao hàng nhanh