Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: dannynguyen1980 25-11-11, 12:24 PM Chuyên mục: Thủ thuật VBA - Không có hồi đáp |
--------------------------------------------------------------------
Private Sub CmdDel_Click()
On Error Resume Next
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
Set rst.ActiveConnection = CurrentProject.Connection
rst.Source = "Select * from T_Danhsachdoituong"
rst.CursorLocation = adUseServer
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.Open
If (MsgBox ( "Ban co muon xoa doi tuong nay khong?", vbYesNo + vbQuestion, "Chu y!" ) = vbYes) Then
rst.Delete adAffectCurrent
rst.Update
MsgBox "Da xoa khoi danh sach theo doi", vbCritical, "Thong bao"
Me.Refresh
End If
rst.Close
Set rst = Nothing
Exit Sub
End Sub
--------------------------------------------------------------------
Thân chào!
Tạo fileaccess quản lý tài trong đó có mục tính toán Khấu hao tự động giá trị tài sản|
|
Viết bởi: huymcsa 24-11-11, 04:04 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (4) |
Bây giờ mình muốn cột "Năm" này tự động cập nhập thay đổi theo năm
mình sử dụng form để nhập dữ liệu)VD: Tên tài sản : Máy chiếu
Năm sử dụng: 2011( cột "Năm" mình nhập số 1)
Khi đến năm 2012 thì cột "Năm" tự động cập nhập thành số 2. Tương tự đến năm 2013 thì cột "Năm" tự động cập nhập thành số 3....sau một năm thì tăng một số.
Các bạn có cách nào giúp mình không
Mình cám ơn nhiều
|
Viết bởi: Noname 24-11-11, 12:20 AM Chuyên mục: Góc MyBB - Không có hồi đáp |
Plugin này giúp mybb của bạn có thể trả lời nhanh giống Thủ thuật Access
|
|
Viết bởi: dongthuan 23-11-11, 06:44 PM Chuyên mục: Table - Bài trả lời (5) |
Các anh biết xin chỉ giúp.
|
|
Viết bởi: dannynguyen1980 23-11-11, 10:35 AM Chuyên mục: Thủ thuật VBA - Bài trả lời (3) |
----------------------------------------
Private Sub CmdAdd_Click()
On Error Resume Next
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
Dim SO_HC As String, Ho_Ten As String, NGAY_SINH As Date, GIOI_TINH As String, VIET_KIEU As String, TEN_QGIA_V As String
SO_HC = InputBox ("Nhap so ho chieu")
Ho_Ten = InputBox ("Nhap ho ten")
NGAY_SINH = InputBox ("Nhap ngay sinh")
GIOI_TINH = InputBox ("Nhap gioi tinh")
VIET_KIEU = InputBox ("Co phai Viet kieu?")
TEN_QGIA_V = InputBox ("Nhap quoc tich")
With rst
Set .ActiveConnection = CurrentProject.Connection
.Source = "select * from T_Danhsachdoituong"
.CursorLocation = adUseServer
rst.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
.AddNew
.Fields("SO_HC") = SO_HC
.Fields("Ho_Ten") = Ho_Ten
.Fields("NGAY_SINH") = NGAY_SINH
.Fields("VIET_KIEU") = VIET_KIEU
.Fields("TEN_QGIA_V") = TEN_QGIA_V
.Update
.Requery
Me.Refresh
End With
rst.Close
Set rst = Nothing
Exit Sub
End Sub
------------------------------------------------------------
Xin hỏi cách bổ sung thêm điều kiện khi nhập vào số hộ chiếu (SO_HC) chương trình sẽ kiểm tra:
1/ Trường hợp 1: Nếu tồn tại số hộ chiếu trong bảng T_Danhsachkhach thì không cho nhập các trường còn lại.
2/ Trường hợp 2: Nếu chưa tồn tại thì tiếp tục nhập.
Mong được các bạn chia sẽ kinh nghiệm.
Trân trọng./.
| Chủ đề Mới nhất |
| Ứng dụng kiểm phiếu bầu c... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-28-12-25, 01:21 AM- » Bài trả lời: 0- » Lượt xem: 41 |
| Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: chuvanthom-08-12-25, 09:12 PM- » Bài trả lời: 2- » Lượt xem: 3,275 |
| Demo - Tra cứu thông tin ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-16-11-25, 07:03 PM- » Bài trả lời: 26- » Lượt xem: 4,169 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: hoandokhai-18-10-25, 04:48 PM- » Bài trả lời: 70- » Lượt xem: 6,012 |
| Thơ Nhạc Nhất Lang - Cảm ... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-09-10-25, 03:12 PM- » Bài trả lời: 1- » Lượt xem: 71 |
| Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: tt1212-09-09-25, 05:03 PM- » Bài trả lời: 32- » Lượt xem: 7,374 |
| Thử nghiệm upload hình -Chuyên mục: Phòng thử nghiệm-Đăng bởi lần cuối: Noname-29-08-25, 09:44 AM- » Bài trả lời: 2- » Lượt xem: 756 |
| Quản Lý Công Văn -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Adung-23-07-25, 10:05 AM- » Bài trả lời: 8- » Lượt xem: 13,073 |
| (Update v.1.0.85 - 30/06/... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: Adung-22-07-25, 10:46 AM- » Bài trả lời: 270- » Lượt xem: 114,676 |
| Video Tự học Access ( Cơ ... -Chuyên mục: Thư Viện Giáo Trình-Đăng bởi lần cuối: Nguyễn Đình Thọ-21-07-25, 10:42 AM- » Bài trả lời: 7- » Lượt xem: 9,277 |
| Diễn đàn Thống kê |
|
» Thành viên: 8,291 » Thành viên mới nhất: 8kbet1cocomm » Các chủ đề diễn đàn: 9,899 » Các bài viết diễn: 48,829 Thống kê đầy đủ |