Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: haquocquan 20-11-10, 01:00 AM Chuyên mục: Tin Học Văn Phòng - Bài trả lời (6) |
Cám ơn nha
|
Viết bởi: ckc2006 19-11-10, 11:13 PM Chuyên mục: Forms - Không có hồi đáp |
1)Trong form T_DM_DONVI:
- Ở nút xóa: việc kiểm tra quan hệ giữa các table trước khi xóa, chắc do cấu trúc code chưa đúng nên khi xóa thì msgbox hiện lên 2 lần
- Ở vùng textbox: khi để mouse lên vùng đó và sử dụng con lăn thì các record thay đổi nhưng phần listbox chưa thay đổi đồng được?
2)Trong form T_DM_PB
- Và ở phần thêm mới mình muốn textbox MA_PB sẽ tự động tăng số mà ko cần nhập.
Do mới làm quen với Access nên còn nhiều yếu kém và khó khăn, rất mong anh em chỉ dẫn dùm.
Thank !!
Link : http://www.mediafire.com/?g7ddaqqd2aqn7dg
|
|
Viết bởi: nguyentung2403 19-11-10, 04:26 PM Chuyên mục: Report - Bài trả lời (3) |
Đây là file bài làm của em
Bài toán tính tỷ lệ học sinh|
|
Viết bởi: nguyentung2403 18-11-10, 08:56 PM Chuyên mục: Query - Bài trả lời (4) |
|
|
Viết bởi: haquocquan 18-11-10, 01:55 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (13) |
Copy vào module:
Mã:
Option Explicit
Function ToUnicode(txtString As String, Optional isReversed As Boolean = False, Optional isISO As Boolean = False) As String
' This function will do the conversion of text string into unicode
Dim iStr As String, repTxt As String, mText As String
Dim i As Long, j As Long
Dim iUnicode As Variant ' array to keep unicode char set
Dim iTCVN As Variant ' array to keep TCVN char set
Dim iProcList() As String ' array to keep what to convert
'parse the parameter into this local variable
iStr = txtString
mText = txtString
iUnicode = Array(225, 224, 7843, 227, 7841, 259, 7855, 7857, 7859, 7861, 7863, 226, _
7845, 7847, 7849, 7851, 7853, 233, 232, 7867, 7869, 7865, 234, 7871, 7873, 7875, _
7877, 7879, 237, 236, 7881, 297, 7883, 243, 242, 7887, 245, 7885, 244, 7889, 7891, _
7893, 7895, 7897, 417, 7899, 7901, 7903, 7905, 7907, 250, 249, 7911, 361, 7909, _
432, 7913, 7915, 7917, 7919, 7921, 253, 7923, 7927, 7929, 7925, 273, 193, 192, 195, _
258, 194, 212, 416, 431, 272)
iTCVN = Array(184, 181, 182, 183, 185, 168, 190, 187, 188, 189, 198, 169, 202, 199, 200, _
201, 203, 208, 204, 206, 207, 209, 170, 213, 210, 211, 212, 214, 221, 215, 216, 220, _
222, 227, 223, 225, 226, 228, 171, 232, 229, 230, 231, 233, 172, 237, 234, 235, 236, _
238, 243, 239, 241, 242, 244, 173, 248, 245, 246, 247, 249, 253, 250, 251, 252, 254, _
174, 193, 192, 195, 161, 162, 164, 165, 166, 167)
' Reenlarge the array
ReDim iProcList(1, 133)
' process the vowel only and covert to asc code
For i = 1 To Len(mText)
repTxt = Mid(mText, i, 1)
If AscW(repTxt) > 122 Then
iStr = Replace(iStr, repTxt, "[" & AscW(repTxt) & "]")
mText = Replace(mText, repTxt, " ")
' write the processed list
iProcList(1, j) = "[" & AscW(repTxt) & "]"
If isISO Then
iProcList(0, j) = GetElementNo(AscW(repTxt), iUnicode)
Else
If isReversed Then
iProcList(0, j) = GetElementNo(AscW(repTxt), iUnicode)
Else
iProcList(0, j) = GetElementNo(AscW(repTxt), iTCVN)
End If
End If
j = j + 1
End If
Next
If j = 0 Then
ToUnicode = txtString
Exit Function
End If
ReDim Preserve iProcList(1, j - 1)
' now convert to unicode
For i = 0 To UBound(iProcList, 2)
If isReversed Then
iStr = Replace(iStr, iProcList(1, i), ChrW(iTCVN(Val(iProcList(0, i)))))
Else
If isISO Then
iStr = Replace(iStr, iProcList(1, i), "&#" & iUnicode(Val(iProcList(0, i))) & ";")
Else
iStr = Replace(iStr, iProcList(1, i), ChrW(iUnicode(Val(iProcList(0, i)))))
End If
End If
Next
fExit:
ToUnicode = iStr
End Function
Private Function GetElementNo(iTxt As Long, iObj As Variant) As String
Dim i As Long
For i = 0 To UBound(iObj)
If iTxt = iObj(i) Then
GetElementNo = CStr(i)
Exit For
End If
Next
End FunctionChuyển TCVN3 sang Unicode:
Mã:
ToUnicode(chuoi)Chuyển Unicode sang TCVN3
Mã:
ToUnicode(chuoi,true)Nguồn: sưu tầm
| Chủ đề Mới nhất |
| CoinMinutes Việt Nam Tri ... -Chuyên mục: Chuyện bốn phương-Đăng bởi lần cuối: davidsmithmq-5 Giờ trước- » Bài trả lời: 0- » Lượt xem: 4 |
| Entente EE88 -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: ee88grado-9 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1 |
| Best Child Porn -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: dmjproahf-Hôm nay, 11:24 AM- » Bài trả lời: 0- » Lượt xem: 3 |
| Treaty EE88 -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: ee88grado-Hôm nay, 07:11 AM- » Bài trả lời: 0- » Lượt xem: 2 |
| Giup minh voi -Chuyên mục: Query-Đăng bởi lần cuối: GeorgeGab-Hôm nay, 06:23 AM- » Bài trả lời: 6- » Lượt xem: 852 |
| Introduction to EE88 -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: ee88slert-Hôm nay, 01:33 AM- » Bài trả lời: 0- » Lượt xem: 2 |
| offtopic -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: nalarsonre-Hôm nay, 01:24 AM- » Bài trả lời: 0- » Lượt xem: 3 |
| 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,496 |
| 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,119 |
| 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: 693 |
| Diễn đàn Thống kê |
|
» Thành viên: 6,453 » Thành viên mới nhất: HyeRoof775 » Các chủ đề diễn đàn: 9,904 » Các bài viết diễn: 48,832 Thống kê đầy đủ |