-
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:
- Hỏi cách lấy thông tin từ main form làm điều kiện lọc cho sub form
- Làm sao đặt password trong Acess
- Ai biết cách xuất 1 sp nhưng có thể chọn sp xuất từ 2 hóa đơn nhập khác nhau ko? (Access 2003 )
- Ràng buộc về “NGÀY” trong ACCESS????
- Thêm Field User cập nhật vào Table?
- giúp tạo form nhập dữ liệu
- hỏi về cập nhật dữ liệu
- nhờ cả nhà giup đỡ
- Bài tập về quản lý tiệm cầm đồ - Cần giúp gấp
- Mọi người giúp em 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
Theo như Shop tình yêu Hà Nội thì đây là một loại búp bê được làm bằng bơm hơi. Bên ngoài là một loại sislicon y tế cao cấp. Loại búp bê bơm hơi có đầy đủ các bộ phận và chức năng rung cao cấp, hoàn...
Búp bê tình yêu bơm hơi thủng xì khi đàn ông vừa đè lên và cái kết