Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: henry117 14-08-14, 07:50 PM Chuyên mục: Query - Không có hồi đáp |
Tạo liên kết giữa 2 form tách rời|
|
Viết bởi: Chinh Lê 14-08-14, 12:52 AM Chuyên mục: Forms - Bài trả lời (5) |
Đề bài yêu cầu tạo một form Tra tìm sinh viên theo khoa. Người sử dụng chọn khoa từ combo box 'Khoa', sau đó click vào nút 'Tìm'----> xuất hiện kết quả trong 1 form khác tách rời.
Em không biết làm sao để lọc cái form thứ 2 danh sách sv theo khoa, với lại làm sao để liên kết 2 form với nhau. Em gần thi rồi, mọi người giúp đỡ em nhé.
Em cảm ơn trước ạ
[/size][/font]
Cần tạo bao nhiêu Table cho yêu cầu quản lý công cụ, dụng cụ tại kho|
|
Viết bởi: lammyphuong 13-08-14, 11:41 PM Chuyên mục: Table - Bài trả lời (7) |
Mình muốn tạo 1 phần mềm nho nhỏ để quản lý công cụ, dụng cụ tại kho. Nhưng vì bỏ quên kiến thức cũng khá lâu, nên muốn nhờ các anh/chị/các bạn tư vấn giúp với những yêu cầu sau đây thì mình cần tạo bao nhiêu Table:
Các thông tin quản lý kho:
- Mã số công cụ (CC).
- Tên công cụ.
- Quy Cách.
- Số lượng tồn đầu kỳ.
- Số lượng nhập mới
- Số lượng mượn.
- Số lượng tồn cuối kỳ (=số lượng tồn đầu kỳ + số lượng nhập mới (nếu có) - số lượng mượn)
- Mã số NV
- Tên NV
- Ngày mượn
- Số lượng (mượn).
- Ngày trả
- Số lượng trả.
-------------
Mình có 3 yêu cầu truy cập:
- Tra cứu thông tin công cụ theo Nhân viên. Gồm những thông tin: MSNV, tên NV, Mã số công cụ, Tên Công cụ, quy cách, số lượng(mượn)
- Tra cứu thông tin công cụ theo Mã số công cụ & NV mượn. Gồm những thông tin: Mã số công cụ, Tên Công Cụ, Số lượng tồn đầu kỳ,Mã số NV mượn, ngày mượn, số lượng mượn.
- Tra cứu tổng hợp các công cụ theo Mã số công cụ: Mã số công cụ, Tên Công cụ, Số lượng tồn đầu kỳ, số lượng mượn, số lượng tồn cuối kỳ.
---------------
Mong các anh/chị/các bạn chỉ giáo!
Cảm ơn rất nhiều.
|
|
Viết bởi: Minh Tiên 11-08-14, 09:04 PM Chuyên mục: Forms - Bài trả lời (2) |
Hình
Nhờ ACE chỉ dẫn cách khắc phục.
Cảm ơn nhiều !
Tiên Up lại hình, nhờ các ACE giúp !
Thanks !
|
|
Viết bởi: dinh_trong_hoa 11-08-14, 07:15 PM Chuyên mục: Forms - Bài trả lời (7) |
- Trong thời gian qua, mình có nhu cầu tạo một msgbox tiếng việt, nhưng các kiến thức tìm thấy trên mạng phức tạp quá so với trình độ của mình. Hôm nay mình xin chia sẽ kinh nghiệm về việc tạo một msgbox tiếng việt mà mình mới phát hiện ra. Nếu bạn nào có cách hay hơn hoặc trùng ý tưởng xin đừng cười nha.
- Vấn đề chính nằm ở bảng mã tiếng việt, mình nhận thấy trong VBA không dịch được tiếng việt nếu sử dụng bảng mã Unicode. Đối với bảng mã VNI-Window thì hiểu rất tốt. Nhưng nếu sử dụng VNI-Window thì buộc phải chỉnh lại font trong hệ thống.
- Giải pháp = mời các bạn tham khảo bên dưới, hiệu quả 99%.
Bước 1: Tạo một module, copy hai công thức bên dưới vào
Mã:
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function MessageBoxW Lib "user32" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Function MsgBoxUni(ByVal PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal TitleUni As Variant = vbNullString) As VbMsgBoxResult
'Function MsgBoxUni(ByVal PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal TitleUni As Variant, Optional HelpFile, Optional Context) As VbMsgBoxResult
'BStrMsg,BStrTitle : La chuoi Unicode
Dim BStrMsg, BStrTitle
'Hàm StrConv Chuyen chuoi ve ma Unicode
BStrMsg = StrConv(PromptUni, vbUnicode)
BStrTitle = StrConv(TitleUni, vbUnicode)
MsgBoxUni = MessageBoxW(GetActiveWindow, BStrMsg, BStrTitle, Buttons)
End Function
Function VNItoUNICODE(vnstr As String)
Dim C As String, i As Integer
Dim db As Boolean
For i = 1 To Len(vnstr)
db = False
If i < Len(vnstr) Then
C = Mid(vnstr, i + 1, 1)
If C = "ù" Or C = "ø" Or C = "û" Or C = "õ" Or C = "ï" Or _
C = "ê" Or C = "é" Or C = "è" Or C = "ú" Or C = "ü" Or C = "ë" Or _
C = "â" Or C = "á" Or C = "à" Or C = "å" Or C = "ã" Or C = "ä" Or _
C = "Ù" Or C = "Ø" Or C = "Û" Or C = "Õ" Or C = "Ï" Or _
C = "Ê" Or C = "É" Or C = "È" Or C = "Ú" Or C = "Ü" Or C = "Ë" Or _
C = "Â" Or C = "Á" Or C = "À" Or C = "Å" Or C = "Ã" Or C = "Ä" Then db = True
End If
If db Then
C = Mid(vnstr, i, 2)
Select Case C
Case "aù": C = ChrW$(225)
Case "aø": C = ChrW$(224)
Case "aû": C = ChrW$(7843)
Case "aõ": C = ChrW$(227)
Case "aï": C = ChrW$(7841)
Case "aê": C = ChrW$(259)
Case "aé": C = ChrW$(7855)
Case "aè": C = ChrW$(7857)
Case "aú": C = ChrW$(7859)
Case "aü": C = ChrW$(7861)
Case "aë": C = ChrW$(7863)
Case "aâ": C = ChrW$(226)
Case "aá": C = ChrW$(7845)
Case "aà": C = ChrW$(7847)
Case "aå": C = ChrW$(7849)
Case "aã": C = ChrW$(7851)
Case "aä": C = ChrW$(7853)
Case "eù": C = ChrW$(233)
Case "eø": C = ChrW$(232)
Case "eû": C = ChrW$(7867)
Case "eõ": C = ChrW$(7869)
Case "eï": C = ChrW$(7865)
Case "eâ": C = ChrW$(234)
Case "eá": C = ChrW$(7871)
Case "eà": C = ChrW$(7873)
Case "eå": C = ChrW$(7875)
Case "eã": C = ChrW$(7877)
Case "eä": C = ChrW$(7879)
Case "où": C = ChrW$(243)
Case "oø": C = ChrW$(242)
Case "oû": C = ChrW$(7887)
Case "oõ": C = ChrW$(245)
Case "oï": C = ChrW$(7885)
Case "oâ": C = ChrW$(244)
Case "oá": C = ChrW$(7889)
Case "oà": C = ChrW$(7891)
Case "oå": C = ChrW$(7893)
Case "oã": C = ChrW$(7895)
Case "oä": C = ChrW$(7897)
Case "ôù": C = ChrW$(7899)
Case "ôø": C = ChrW$(7901)
Case "ôû": C = ChrW$(7903)
Case "ôõ": C = ChrW$(7905)
Case "ôï": C = ChrW$(7907)
Case "uù": C = ChrW$(250)
Case "uø": C = ChrW$(249)
Case "uû": C = ChrW$(7911)
Case "uõ": C = ChrW$(361)
Case "uï": C = ChrW$(7909)
Case "öù": C = ChrW$(7913)
Case "öø": C = ChrW$(7915)
Case "öû": C = ChrW$(7917)
Case "öõ": C = ChrW$(7919)
Case "öï": C = ChrW$(7921)
Case "yù": C = ChrW$(253)
Case "yø": C = ChrW$(7923)
Case "yû": C = ChrW$(7927)
Case "yõ": C = ChrW$(7929)
Case "AÙ": C = ChrW$(193)
Case "AØ": C = ChrW$(192)
Case "AÛ": C = ChrW$(7842)
Case "AÕ": C = ChrW$(195)
Case "AÏ": C = ChrW$(7840)
Case "AÊ": C = ChrW$(258)
Case "AÉ": C = ChrW$(7854)
Case "AÈ": C = ChrW$(7856)
Case "AÚ": C = ChrW$(7858)
Case "AÜ": C = ChrW$(7860)
Case "AË": C = ChrW$(7862)
Case "AÂ": C = ChrW$(194)
Case "AÁ": C = ChrW$(7844)
Case "AÀ": C = ChrW$(7846)
Case "AÅ": C = ChrW$(7848)
Case "AÃ": C = ChrW$(7850)
Case "AÄ": C = ChrW$(7852)
Case "EÙ": C = ChrW$(201)
Case "EØ": C = ChrW$(200)
Case "EÛ": C = ChrW$(7866)
Case "EÕ": C = ChrW$(7868)
Case "EÏ": C = ChrW$(7864)
Case "EÂ": C = ChrW$(202)
Case "EÁ": C = ChrW$(7870)
Case "EÀ": C = ChrW$(7872)
Case "EÅ": C = ChrW$(7874)
Case "EÃ": C = ChrW$(7876)
Case "EÄ": C = ChrW$(7878)
Case "OÙ": C = ChrW$(211)
Case "OØ": C = ChrW$(210)
Case "OÛ": C = ChrW$(7886)
Case "OÕ": C = ChrW$(213)
Case "OÏ": C = ChrW$(7884)
Case "OÂ": C = ChrW$(212)
Case "OÁ": C = ChrW$(7888)
Case "OÀ": C = ChrW$(7890)
Case "OÅ": C = ChrW$(7892)
Case "OÃ": C = ChrW$(7894)
Case "OÄ": C = ChrW$(7896)
Case "ÔÙ": C = ChrW$(7898)
Case "ÔØ": C = ChrW$(7900)
Case "ÔÛ": C = ChrW$(7902)
Case "ÔÕ": C = ChrW$(7904)
Case "ÔÏ": C = ChrW$(7906)
Case "UÙ": C = ChrW$(218)
Case "UØ": C = ChrW$(217)
Case "UÛ": C = ChrW$(7910)
Case "UÕ": C = ChrW$(360)
Case "UÏ": C = ChrW$(7908)
Case "ÖÙ": C = ChrW$(7912)
Case "ÖØ": C = ChrW$(7914)
Case "ÖÛ": C = ChrW$(7916)
Case "ÖÕ": C = ChrW$(7918)
Case "ÖÏ": C = ChrW$(7920)
Case "YÙ": C = ChrW$(221)
Case "YØ": C = ChrW$(7922)
Case "YÛ": C = ChrW$(7926)
Case "YÕ": C = ChrW$(7928)
End Select
Else
C = Mid(vnstr, i, 1)
Select Case C
Case "ô": C = ChrW$(417)
Case "í": C = ChrW$(237)
Case "ì": C = ChrW$(236)
Case "æ": C = ChrW$(7881)
Case "ó": C = ChrW$(297)
Case "ò": C = ChrW$(7883)
Case "ö": C = ChrW$(432)
Case "î": C = ChrW$(7925)
Case "ñ": C = ChrW$(273)
Case "Ô": C = ChrW$(416)
Case "Í": C = ChrW$(205)
Case "Ì": C = ChrW$(204)
Case "Æ": C = ChrW$(7880)
Case "Ó": C = ChrW$(296)
Case "Ò": C = ChrW$(7882)
Case "Ö": C = ChrW$(431)
Case "Î": C = ChrW$(7924)
Case "Ñ": C = ChrW$(272)
End Select
End If
VNItoUNICODE = VNItoUNICODE + C
If db Then i = i + 1
Next i
End FunctionBước 2: Khi cần sử dụng thì tương tự như sau
Mã:
Dim TIEU_DE, THONG_BAO as string
THONG_BAO = VNItoUNICODE("Baïn khoâng ñöôïc ñeå troáng ")
TIEU_DE = VNItoUNICODE("Thoâng baùo")
MsgBoxUni THONG_BAO , vbOKOnly + vbInformation, TIEU_DE
| Chủ đề Mới nhất |
| Peptide research and refe... -Chuyên mục: MS Word-Đăng bởi lần cuối: CarlosDug-3 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1 |
| SkfterjeadS -Chuyên mục: MS Word-Đăng bởi lần cuối: Danielapams-4 Giờ trước- » Bài trả lời: 0- » Lượt xem: 3 |
| tripscan — Почему предска... -Chuyên mục: MS Word-Đăng bởi lần cuối: NicholasAxiot-7 Giờ trước- » Bài trả lời: 0- » Lượt xem: 3 |
| 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,367 |
| 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: 156 |
| 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: 164 |
| 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: 8,163 |
| 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: 184 |
| Đồ 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: 668 |
| 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: 189 |
| 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 đủ |