pvhung76 > 03-11-17, 04:31 PM
tranthanhan1962 > 03-11-17, 05:49 PM
pvhung76 > 03-11-17, 07:13 PM
(03-11-17, 05:49 PM)tranthanhan1962 Đã viết: Invalid or Deleted File.
cpucloi > 04-11-17, 11:08 AM
pvhung76 > 04-11-17, 12:51 PM
cpucloi Đã viết:Vài góp ý với bạn:
1. Nên đọc phần căn bản của Access, đặc biệt là cách sử dụng đặt tên các đối tượng như table, query, textbox, listbox, ....
2. Không nên đặt tên có khoảng trắng hoặc có dấu (nếu đặt có khoảng trắng, khi gọi đối tượng phải được để trong dấu []) => phần sau
Bạn sử dụng câu lệnh mở report
1. Xem report trên màn hình
DoCmd.OpenReport "TenReport", acViewPreview
nếu muốn có thêm điều kiện khi mở:
DoCmd.OpenReport "TenReport", acViewPreview,,"TenFileddieukien like Dieukien"
Như trường hợp của bạn, TenFileddieukien là [Hanhchinh].[ID number]
Dieukien là Forms![KHAM BENH KE TOA]![ID number]
2. Để in trực tiếp
Thay acViewPreview = acViewNormal
Hoặc bạn có thể trực tiếp đặt điều kiện trong Query nguồn của Report
Filed [Hanhchinh].[ID number] = Forms![KHAM BENH KE TOA]![ID number]
pvhung76 > 05-11-17, 07:25 AM
(04-11-17, 11:08 AM)cpucloi Đã viết: Vài góp ý với bạn:
1. Nên đọc phần căn bản của Access, đặc biệt là cách sử dụng đặt tên các đối tượng như table, query, textbox, listbox, ....
2. Không nên đặt tên có khoảng trắng hoặc có dấu (nếu đặt có khoảng trắng, khi gọi đối tượng phải được để trong dấu []) => phần sau
Bạn sử dụng câu lệnh mở report
1. Xem report trên màn hình
DoCmd.OpenReport "TenReport", acViewPreview
nếu muốn có thêm điều kiện khi mở:
DoCmd.OpenReport "TenReport", acViewPreview,,"TenFileddieukien like Dieukien"
Như trường hợp của bạn, TenFileddieukien là [Hanhchinh].[ID number]
Dieukien là Forms![KHAM BENH KE TOA]![ID number]
2. Để in trực tiếp
Thay acViewPreview = acViewNormal
Hoặc bạn có thể trực tiếp đặt điều kiện trong Query nguồn của Report
Filed [Hanhchinh].[ID number] = Forms![KHAM BENH KE TOA]![ID number]
ongke0711 > 05-11-17, 09:36 AM
(05-11-17, 07:25 AM)pvhung76 Đã viết: Xin hỏi thêm, nếu có chuỗi: "ngày 5 tháng 11 năm 2017", có thể dùng lệnh/hàm như thế nào để cho kết quả là 5112017 hoặc 05112017?
Function TrichSoTuChuoi(ByVal stChuoi As String) As Long
Dim intLen As Integer
Dim n As Integer
stChuoi = Trim(stChuoi)
intLen = Len(stChuoi)
n = 1 'Tim kiem bat dau tu vi tri 'n'
If stChuoi = "" Or IsNull(stChuoi) Or intLen = 0 Then Exit Function
Do
If IsNumeric(Mid(stChuoi, n, 1)) Then 'Kiem tra tung ky tu co phai là So.
TrichSoTuChuoi = TrichSoTuChuoi & Mid(stChuoi, n, 1)
n = n + 1
Else
n = n + 1
End If
Loop Until intLen = (n - 1)
'Luu y: neu ham tra ve gia tri 0 tuc là chuoi không có ký tu So
End Function
pvhung76 > 06-11-17, 06:37 PM
(05-11-17, 09:36 AM)ongke0711 Đã viết:(05-11-17, 07:25 AM)pvhung76 Đã viết: Xin hỏi thêm, nếu có chuỗi: "ngày 5 tháng 11 năm 2017", có thể dùng lệnh/hàm như thế nào để cho kết quả là 5112017 hoặc 05112017?
Cái này cũng đơn giản. Cách làm là cứ duyệt qua từng ký tự nếu nó là số (IsNumeric) thì thêm vô chuỗi số. Xác định nó là ký tự số cũng có 2 cách:
1. Select Case stChuoi
Case "0 to "9"
...
2. dùng hàm IsNumeric.
Trong đây tôi dùng hàm IsNumeric(). Bạn dùng hàm trích số từ chuỗi bên dưới:
Mã PHP:Function TrichSoTuChuoi(ByVal stChuoi As String) As Long
Dim intLen As Integer
Dim n As Integer
stChuoi = Trim(stChuoi)
intLen = Len(stChuoi)
n = 1 'Tim kiem bat dau tu vi tri 'n'
If stChuoi = "" Or IsNull(stChuoi) Or intLen = 0 Then Exit Function
Do
If IsNumeric(Mid(stChuoi, n, 1)) Then 'Kiem tra tung ky tu co phai là So.
TrichSoTuChuoi = TrichSoTuChuoi & Mid(stChuoi, n, 1)
n = n + 1
Else
n = n + 1
End If
Loop Until intLen = (n - 1)
'Luu y: neu ham tra ve gia tri 0 tuc là chuoi không có ký tu So
End Function