• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Thủ Thuật Access

• Trang chủ

  • Thủ Thuật Access
  • Trang chủ
•   Câu lệnh SQL tìm ra những mặt thiết bị có [ngày bàn giao](thuộc table khác) lớn nhất?
  

  Viết bởi: The Wind 31-08-10, 10:47 AM Chuyên mục: Query - Bài trả lời (2)

• Chào các bạn.
  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
  


•   Hàm Kiểm tra kiểu dữ liệu của fields
  

  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)

• Hàm Dưới đây giúp chúng ta kiểm tra field đang có kiểu dữ liệu gì!
  
  
  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 Function
  '----------------------------------------
  
  Mã:

  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 Function
  
  Sử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
  
  


•   Tùy biến chọn file Excel để Import vào Access
  

  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)

• Chú ý, để sử dụng được các đối tượng có sẵn của Office, bạn phải khai báo sữ dụng thư viện Office bằng cách vào cửa sổ VBA, Menu Tool--> references, chọn Microsoft Office 11.0 library. (chọn 10.0 đối với AccessXP)
  
  
  
  
  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 Function
  
  Và 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 Sub
  
  Trong 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 Sub
  
  Giờ 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
  


•   Hàm kiểm tra 1 chuỗi có phải là số không
  

  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

• Hỏi: (HQQ) Tôi có table (MASO(text), HOTEN): do trước đây khi nhập MASO không có quy định, nên khi nhập mã số nhân viên vận hành có thể nhập thế nào cũng được (ví dụ: 1234, HAO12,...)
  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ế
  


•   Luôn hiện thanh Menu đầy đủ trong Excel.
  

  Viết bởi: Noname 30-08-10, 09:13 PM Chuyên mục: Ms Excel - Không có hồi đáp

• Cái này mình biết cũng lâu, nhưng hôm nay lang thang lượm được trên blog http://vn.360plus.yahoo.com/svpy89 nên đem luôn về share các bạn, đỡ viết lại! :P
  
  

  Trích dẫn:Các bạn sử dụng Excel có gặp những hình ảnh này không.
  
  
  
  Hay là nó như thế này:
  
  
  Những dấu >> như thế này tức là nó còn những lệnh nữa.Để khắc phục tính trạng này ta làm như sau:
  Chúng ta hãy right click lên thanh công cụ và chọn Customize.. nó xuất hiện hộp thoại như sau:
  
  
  Hãy chọn Allways show full menus để hiện thị đầy đủ cho Excel của bạn.Nó sẽ giúp bạn truy cập một cách nhanh chóng.

  
  Chúc thao tác thuận tiện hơn với MS Excel và các ứng dụng Office khác!
  
  



Chủ đề Mới nhất

123B stage is a trusted o... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: 123bCef-1 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1

123B platform is a presen... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: 123bCef-3 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1

123B betting is a mod bet... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: 123bCef-6 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1

123B platform is a truste... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: 123bCef-Hôm qua, 08:55 PM- » Bài trả lời: 0- » Lượt xem: 4

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: thaominhtam-11-09-25, 11:47 AM- » Bài trả lời: 69- » Lượt xem: 5,479

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,110

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: 687

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: 12,949

(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: 113,416

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,046




Diễn đàn Thống kê

» Thành viên: 6,419 » Thành viên mới nhất: Carlolyday » Các chủ đề diễn đàn: 9,902 » Các bài viết diễn: 48,829 Thống kê đầy đủ