-
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:
- tặng phần mềm nhỏ Access để nghiên cứu
- Những tính năng mới được coi là thú vị nhất của Access 2000.
- Lỗi combobox và Listbox.
- LIKE operator trong Access 2007 query
- Cần giúp về làm form tìm kiếm
- Học sử dụng MS. Access sao cho có kết quả?
- Làm sao không cho xoá hoặc copy đè lên File Data
- Làm sao để mở cac bang table va form của file này
- Giúp em bài tập này với ạ! Cần Gấp Ạ!
- Giúp em cái Query căn bản với
-
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
Giả dụ ví dụ phái mạnh vẫn chưa tuột hoặc cắt da quy đầu vẫn hoạt động tình dục thông thường. mặc dầu vậy đối với các tình huống bao quy đầu hẹp và ôm sát lấy dương vật sẽ gây nên biến chứng ít rộng...
Tốn tiền cắt bao quy đầu vẫn "nhanh ra". Bạn trai chua xót tâm sự