• 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ủ
•   Lỗi Font trong VBA giữa Win7 và WinXP
  

  Viết bởi: phuonglam1405 22-05-12, 02:11 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (3)

• Mình sử dụng hàm đọc số thành chữ (như đính kèm). Mình viết chương trình access tren win7, nhưng khi để sang máy winxp thì bị lỗi font, mình đã chọn font trong option của VBA rồi là arial (vietnamese) rồi và bảng mã là unicode tổ hợp nhưng vẫn ko được, nhưng nếu để sang máy win7 thì đọc ngon lành. Nó đây ạ!
  
  Public Function ChuSoUni(So As Variant) As String
  On Error GoTo Exit_ChuSoUni
  Dim i As Integer, J As Integer, S As Double, T As String
  Dim FI(4) As Integer, FJ(3) As Integer, GI(4) As String, GJ(3) As String
  ChuSoUni = ""
  So = Int(Abs(So))
  If So > 999999999999# Then GoTo Exit_ChuSoUni
  S = So
  For i = 1 To 4
  FI(i) = Right(S, 3)
  For J = 1 To 3
  FJ(J) = Right(S, 1)
  GJ(J) = Choose(FJ(J) + 1, "", " Mét", " hai", " ba", " bèn", " n¨m", " s¸u", " b¶y", " t¸m", " chÝn")
  S = Int(S / 10)
  Next J
  GJ(3) = IIf(FJ(3) > 0, GJ(3) & " tr¨m", "")
  GJ(2) = IIf(FJ(2) > 1, GJ(2) & " m­¬i", IIf(FJ(2) = 1, " m­êi", IIf(FJ(3) > 0 And FJ(1) > 0, " l?", "")))
  If FJ(2) > 0 And FJ(1) = 5 Then GJ(1) = " l¨m"
  If FJ(2) > 1 And FJ(1) = 1 Then GJ(1) = " mèt"
  GI(i) = IIf(FI(i) = 0, "", GJ(3) & GJ(2) & GJ(1) & Choose(i, "", " ngµn,", " triÖu,", " tû,"))
  Next i
  If So > 1000 And FI(1) > 0 And FI(1) < 10 Then GI(1) = " l?" & GI(1)
  T = Trim(GI(4) & GI(3) & GI(2) & GI(1))
  ChuSoUni = UCase(Left(T, 1)) & Right(T, Len(T) - 1)
  Exit_ChuSoUni:
  Exit Function
  End Function
  
  Rất mong các thành viên có kinh nghiệm vấn đề này giúp đỡ với, mình đang cần gâp!
  


•   Tạo form cập nhập thông tin
  

  Viết bởi: ithanhtung 22-05-12, 10:16 AM Chuyên mục: Forms - Không có hồi đáp

• mình đang học Access
  mình tạo 1 c/trình quản lý máy tính
  các Table mình tạo
  + DM_TB (danh mục thiết bị với mục đích cho phép cập nhập các thiết bị máy tính-main-chip-ram...)
  + DM_MT(danh mục máy tính với mục đích cập nhập tên,địa,chỉ... của ng dùng)
  + DM_capnhapMT (danh mục cập nhập này mục đích là cho biết máy tính (tại DM_MT) bao gồm các thiết bị gì(DM_TB))
  ---------------------------------
  Hiện giờ mình đã tạo đc các form cho các cập nhập lẻ cho các bảng (DM_MT và DM_TB)
  -Vấn đề của mình là chưa biết các thiết kế form có thể cập nhập
  máy tính A( tại DM_MT) với các thiết bị (tại DM_TB)
  ----------------------
  CÓ nghĩa là tại form đó cho phép cập nhập thông tin máy A gồm Ram gì,chip gì....
  các bạn xem ý tưởng và cách tạo form của mình có ổn không?
  cần thêm cái gì và tạo Form cập nhập cho máy tính A ntn?
  


• CASE WHEN trong access được viết như thế nào
  

  Viết bởi: toanzoom 21-05-12, 05:19 PM Chuyên mục: Query - Bài trả lời (3)

• Trong mysql hoặc sqlserver thì không có vấn đề gì nhưng bên access thì lại không được, kiểu dữ liệu của mình là yes/no để chuyển thành Nam/Nữ
  
  
  


•   Kỷ niệm các bác một số nút đẹp chủ yếu khi làm PM trên Access
  

  Viết bởi: ledangvan 21-05-12, 12:33 PM Chuyên mục: Thư Viện Ứng Dụng - Không có hồi đáp

• http://www.mediafire.com/?vnvvybrbrckaaxm
  


•   GIẢI THÍCH CÁC LỆNH KHI VIẾT CODE
  

  Viết bởi: huynhbahoc 21-05-12, 11:51 AM Chuyên mục: Forms - Bài trả lời (3)

• Các bạn Pro ơi cho mình hỏi tí nhé. Mình vừa giải một bài tập Access. Ở phần hướng dẫn tạo Form, khi chuyển một text box sang combo box, người ta hướng dẫn như sau: "...chọn thẻ Event, chọn After Update, Code builder, nhập đoạn code sau vào giữa Private sub và End sub:
  Dim rs As Object
  Set rs = Me.Recordset.Clone
  rs.FindFirst "[MATHE] = '" & Me![MATHE] & "'"
  If Not rs.EOF Then Me.Bookmark = rs.Bookmark
  Khi mình copy và dán vào như hướng dẫn thì Form hoạt động tốt, nhưng mình không hiểu gì về đoạn Code trên cả.
  Bạn nào rành về cách viết code trong Access thì giải thích giùm mình tại sao lại viết như vậy? (nếu bạn giải thích cụ thể từng thành phần của đoạn code trên thì càng tốt). Mình cảm ơn nhiều nhé.
  



Chủ đề Mới nhất

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: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,310

Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 132

Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 150

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 7,912

Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 169

Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 608

Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 178

Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 552

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: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,598

TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 275




Diễn đàn Thống kê

» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ