Tùy chọn
huong dan sửa lỗi form baocaonhap
- huong dan sửa lỗi form baocaonhap
-
huong dan sửa lỗi form baocaonhap
cuongvan09 > 25-06-12, 01:10 PM
mấy bác ơi coi dùm e cái form báo cáo nhâp này nó bị sao ấy khi mình nhấp vô chon in tất cả thì ko bị lỗi gì còn khi chọn in tungay...denngay thì nó lại bị lỗi ah, mong mấy bác coi hộ và hướng dẫn e sửa lỗi với, và đây là hình ảnh bị lỗi và file bài của e đây ah, mong mấy bác giúp đỡ với, hình ảnh lỗi đây ah
bài của e đây ah
http://maxup.vn/tai-ve/6kfqb4feixrfl8i/do_an_2.mdb.html -
RE: huong dan sửa lỗi form baocaonhap
khanhduycsgt > 25-06-12, 01:51 PM
Bạn định dạng textbox Tungay và Denngay nhập theo dạng 99/99/9999 nên khi nhập vào và tìm kiếm sẽ không có ký tự / phân cách. Chẳng hạn: nhập là 28/05/2012 nhưng vào bộ nhớ tìm kiếm sẽ là 28052012. Chính vì thế phải chuyển về đúng định dạng ngày tháng; mình thử áp dụng hàm format() và cả format$() nhưng toàn báo lỗi Overflow, chỉ còn cách là cắt và ghép chuỗi.
Code cho nút Xem trong form F_BaoCaoNhap như sau:
Mã:Private Sub Command4_Click()
Dim s1, s2, s As String 'Khai bao bien luu thong tin
s1 = Left(Tungay, 2) & "/" & Mid(Tungay, 3, 2) & "/" & Right(Tungay, 4) 'dd/mm/yyyy cua Tungay
s2 = Left(Denngay, 2) & "/" & Mid(Denngay, 3, 2) & "/" & Right(Denngay, 4) 'dd/mm/yyyy cua Denngay
s = "[Ngaynhap] BETWEEN #" & s1 & "# AND #" & s2 & "#"
If Me.Frame9 = 1 Then
DoCmd.OpenReport "R_BaoCaoNhap1", acViewPreview
Else
DoCmd.OpenReport "R_BaoCaoNhap", acViewPreview, , s
End If
End Sub -
RE: huong dan sửa lỗi form baocaonhap
cuongvan09 > 25-06-12, 02:25 PM
(25-06-12, 01:51 PM)khanhduycsgt Đã viết: Bạn định dạng textbox Tungay và Denngay nhập theo dạng 99/99/9999 nên khi nhập vào và tìm kiếm sẽ không có ký tự / phân cách. Chẳng hạn: nhập là 28/05/2012 nhưng vào bộ nhớ tìm kiếm sẽ là 28052012. Chính vì thế phải chuyển về đúng định dạng ngày tháng; mình thử áp dụng hàm format() và cả format$() nhưng toàn báo lỗi Overflow, chỉ còn cách là cắt và ghép chuỗi.
Code cho nút Xem trong form F_BaoCaoNhap như sau:
Mã:Private Sub Command4_Click()
Dim s1, s2, s As String 'Khai bao bien luu thong tin
s1 = Left(Tungay, 2) & "/" & Mid(Tungay, 3, 2) & "/" & Right(Tungay, 4) 'dd/mm/yyyy cua Tungay
s2 = Left(Denngay, 2) & "/" & Mid(Denngay, 3, 2) & "/" & Right(Denngay, 4) 'dd/mm/yyyy cua Denngay
s = "[Ngaynhap] BETWEEN #" & s1 & "# AND #" & s2 & "#"
If Me.Frame9 = 1 Then
DoCmd.OpenReport "R_BaoCaoNhap1", acViewPreview
Else
DoCmd.OpenReport "R_BaoCaoNhap", acViewPreview, , s
End If
End Sub
em cảm ơn bác nhiều ah, nhưng mà e làm theo rồi mà ko đc bác ơi rồi còn có cách nào khác nữa ko bác, hay là mình chuyển kiểu đinh dạng sang kiểu khác đc ko bác
-
RE: huong dan sửa lỗi form baocaonhap
cuongvan09 > 25-06-12, 02:59 PM
(25-06-12, 01:51 PM)khanhduycsgt Đã viết: Bạn định dạng textbox Tungay và Denngay nhập theo dạng 99/99/9999 nên khi nhập vào và tìm kiếm sẽ không có ký tự / phân cách. Chẳng hạn: nhập là 28/05/2012 nhưng vào bộ nhớ tìm kiếm sẽ là 28052012. Chính vì thế phải chuyển về đúng định dạng ngày tháng; mình thử áp dụng hàm format() và cả format$() nhưng toàn báo lỗi Overflow, chỉ còn cách là cắt và ghép chuỗi.
Code cho nút Xem trong form F_BaoCaoNhap như sau:
Mã:Private Sub Command4_Click()
Dim s1, s2, s As String 'Khai bao bien luu thong tin
s1 = Left(Tungay, 2) & "/" & Mid(Tungay, 3, 2) & "/" & Right(Tungay, 4) 'dd/mm/yyyy cua Tungay
s2 = Left(Denngay, 2) & "/" & Mid(Denngay, 3, 2) & "/" & Right(Denngay, 4) 'dd/mm/yyyy cua Denngay
s = "[Ngaynhap] BETWEEN #" & s1 & "# AND #" & s2 & "#"
If Me.Frame9 = 1 Then
DoCmd.OpenReport "R_BaoCaoNhap1", acViewPreview
Else
DoCmd.OpenReport "R_BaoCaoNhap", acViewPreview, , s
End If
End Sub
ah e cảm ơn bác nhiều ah, giờ thì e có cách khác để sửa lại rồi ah,cái đó thì mình chỉ cần chỉnh kiểu nhập của ngày tháng năm thôi ah, mình vẫn để theo kiểu nhập vậy thì nó cững ra nữa bác ah
-
RE: huong dan sửa lỗi form baocaonhap
khanhduycsgt > 25-06-12, 03:13 PM
uhm, mình hay để mặc định là không có theo định dạng nào cả, như thế sau này khi truy vấn sẽ dễ hơn, lỡ để rồi thì bạn làm theo cách của mình đi là được. -
RE: huong dan sửa lỗi form baocaonhap
Xuân Thanh > 25-06-12, 10:27 PM
1/ textbox tungay và denngay nên format theo trường ngày trong table
2/ Trong report, thiếu dấu = trong controlsource của textbox tungay và denngay
3/ các phần khác chưa xem, không có ý kiến
