Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: Noname 31-08-10, 10:53 PM Chuyên mục: Thư Viện Ứng Dụng - Bài trả lời (37) |
Xuân Thanh- Dân kế Toán Đã viết:Hôm trước đã giới thiệu với các bạn một file quan lý Nhập Xuất Tồn đơn giản bằng Excel,. Hôm nay xin gửi các bạn một file quản lý như thế nhưng viết bằng Access. Nội dung chủ yếu cũng vẫn là Nhập xuất vật tư, tính tồn kho và tính thẻ kho. File này tương đối đầy đủ hơn file viết bằng Excel.DownLoad
.................................................. .................................
Do đường dẫn cũ bị lỗi, bạn nào chưa download được file hãy dow theo file phía dưới. Mật khẩu mở file là : xuan
Lưu ý : File viết đã lâu, dùng font VNI, các bạn chú ý kẻo lỗi font
Thân
|
Viết bởi: The Wind 31-08-10, 10:47 AM Chuyên mục: Query - Bài trả lời (2) |
Mình rất dốt về SQL nên các bạn giúp mình nhé:
Mình có 2 table:
tb_ThietBi:ThietBi_ID,TenThietBi....
tb_BanGiao:banGiao_ID,ThietBi_ID,NgayBanGiao,NhanVien_ID,PhongBan_ID...
tb_ThietBi liên kết 1 nhiều với tb_Bangiao qua khoasThietBi_ID.
Mình muốn lọc ra danh sách tất cả các thiết bị cùng với ngày bàn giao cuối cùng(lớn nhất), cùng NhanVien_ID,PhongBan_ID nếu nó đã được bàn giao.
Noname và các bạn giúp mình nhé.
Xin lỗi, nếu mình thông minh hơn chút... đọc hoài hok hiểu các dùng total query để làm được cái này
|
|
Viết bởi: Noname 31-08-10, 09:19 AM Chuyên mục: Thư Viện Hàm - Bài trả lời (2) |
Mã:
Function TypeField(T As String, F As String)
'T: tên table, F: tên Field
TypeField = FieldType(CurrentDb.TableDefs(T).Fields(F).Type)
End FunctionMã:
Function FieldType(intType As Integer) As String
Select Case intType
Case dbBoolean
FieldType = "dbBoolean"
Case dbByte
FieldType = "dbByte"
Case dbInteger
FieldType = "dbInteger"
Case dbLong
FieldType = "dbLong"
Case dbCurrency
FieldType = "dbCurrency"
Case dbSingle
FieldType = "dbSingle"
Case dbDouble
FieldType = "dbDouble"
Case dbDate
FieldType = "dbDate"
Case dbText
FieldType = "dbText"
Case dbLongBinary
FieldType = "dbLongBinary"
Case dbMemo
FieldType = "dbMemo"
Case dbGUID
FieldType = "dbGUID"
End Select
End FunctionSửa Dụng:
Giải sử ta có 1 field trong table và muốn biết nó có kiểu dữ liệu là gì , ta có thể gọi hàm này kiểm tra
Mã:
Private Sub Command0_Click()
MsgBox TypeField("Table1", "MASO")
End Sub
|
|
Viết bởi: Noname 31-08-10, 09:12 AM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (7) |
Và bây giờ bắt đầu:
Tạo 1 form tên là frmTest
Vẽ 1 Textbox tên là txtPath.
Vẽ 1 nút nhấn là cmdSelectfile
Vẽ 1 textBox đặt là txtRange để bạn nhập tên sheet muốn import vào
Vẽ 1 Textbox đặt tên là txtTable để bạn nhập tên Table muốn lưu
Vẽ 1 nút nhấn có tên cmdImport
Tạo 1 module copy đoạn code sau vào:
Mã:
Function getFile(Tit As String, formatName As String, formatType As String)
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
With dlgOpen
.Title = Tit
.Filters.Clear
.Filters.Add formatName, formatType
.AllowMultiSelect = False
result = .Show
If (result <> 0) Then
getFile = Trim(dlgOpen.SelectedItems.Item(1))
End If
End With
End FunctionVà lưu thành tên Module 1
Trong event Onclick của nút cmdSelectfile, ta nhập như sau:
Mã:
Private Sub cmdSelectfile_Click()
Me![txtPath] = getFile("c:\", "Select the Excel File", "*.xls")
End SubTrong event Click của nút cmdImport, ta nhập như sau:
Mã:
Private Sub cmdImport_Click()
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, txtTenTable, txtPath, True, txtRange
MsgBox "import thanh cong"
End SubGiờ sử dụng: đầu tiên ta click vào nút cmdSelectfile để chọn file Excel muốn import
Nhập tên Sheet muốn import vào txtRange (ví dụ: Sheet1!:A1:H300)
Nhập tên table muốn lưu. (Ví dụ: Table1)
Và nhấn Nút Import
Rồi hưởng thành quả
DownloadDemo
|
|
Viết bởi: Noname 31-08-10, 09:08 AM Chuyên mục: Thư Viện Hàm - Không có hồi đáp |
Nay, nhập MASO chỉ nhập bằng số (vẫn kiểu text) và cần phải thay đổi mã số của các khách hàng cũ. Làm thế nào lọc ra được các dữ liệu đã có mã nhập toàn bằng số và những dữ liệu có mã nhập không hoàn toàn bằng số.
Đáp: Bạn dùng hàm IsNumeric([Chuỗi]) để kiểm tra chuỗi đó có phải là 1 số không.
Ví Dụ: IsNumeric("123456") =>Kết quả True/Yes
IsNumeric("KH0123")=> Kết quả : False/No
Như vậy bạn hoàn toàn có thể lọc ra những giá trị cần thay thế
| Chủ đề Mới nhất |
| 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,260 |
| 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,127 |
| 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: 5,947 |
| 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: 66 |
| 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,340 |
| 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: 750 |
| 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,051 |
| (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,473 |
| 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,237 |
| E chia sẽ Quản lý nhà trọ -Chuyên mục: Forms-Đăng bởi lần cuối: hoaithanh-18-07-25, 02:28 PM- » Bài trả lời: 0- » Lượt xem: 293 |
| Diễn đàn Thống kê |
|
» Thành viên: 8,044 » Thành viên mới nhất: tv88food » Các chủ đề diễn đàn: 9,898 » Các bài viết diễn: 48,828 Thống kê đầy đủ |