Tùy chọn
loi khi chay form thi macro bi loi
- loi khi chay form thi macro bi loi
-
loi khi chay form thi macro bi loi
cuongvan09 > 25-06-12, 09:19 AM
mấy bác ơi xin hướng dẫn e sửa cái lỗi này với, tình hình là khi e mở cái form F_innhanvien lên rồi nhấp vô phần chọn để in thì nó báo lỗi mà e ko biết bị lỗi gì nên nhờ mấy bác giúp và hỗ trợ e sửa lỗi với ah, và đây là link download bài và hình ảnh bị lỗi của bài e ah, e mong mấy bác download về coi rồi hướng dẫn e sửa với ah
đây là link dowload bài ah
http://maxup.vn/tai-ve/5yrlwyuvmbm10h5/doan_2.mdb.html
mong mấy bác giúp cho e với
-
RE: loi khi chay form thi macro bi loi
ht03 > 25-06-12, 09:47 AM
(25-06-12, 09:19 AM)cuongvan09 Đã viết: mấy bác ơi xin hướng dẫn e sửa cái lỗi này với, tình hình là khi e mở cái form F_innhanvien lên rồi nhấp vô phần chọn để in thì nó báo lỗi mà e ko biết bị lỗi gì nên nhờ mấy bác giúp và hỗ trợ e sửa lỗi với ah, và đây là link download bài và hình ảnh bị lỗi của bài e ah, e mong mấy bác download về coi rồi hướng dẫn e sửa với ah
đây là link dowload bài ah
http://maxup.vn/tai-ve/5yrlwyuvmbm10h5/doan_2.mdb.html
mong mấy bác giúp cho e với
đọc một hồi mà vẫn không hiểu cái form của bạn lắm nhưng mình nghĩ bạn nên coi lại sự kiện timer của bạnMã:Private Sub Form_Timer()
Select Case i
Case 1, 4, 7, 10, 13, 16, 19, 22, 25
Me.Label57.Caption = Left(chuoi, i) & " /"
Case 2, 5, 8, 11, 14, 17, 20, 23, 26
Me.Label57.Caption = Left(chuoi, i) & " --"
Case Else
Me.Label57.Caption = Left(chuoi, i) & " \"
End Select
i = i + 1
If i > Len(chuoi) Then
i = 1
End If
End Sub
- và ban sửa lại macro InNhanVien của bạn thay 2 cái dòng đầu tiên cột action ApplyFilter = SetValue -
RE: loi khi chay form thi macro bi loi
khanhduycsgt > 25-06-12, 09:52 AM
Đã sửa:
http://maxup.vn/tai-ve/ofr1n20beplcjcl/do_an_2.mdb.html
Vấn đề không phải lỗi do timer, mà là lỗi câu lệnh trong macro thôi, mình viết code cho bạn rồi. -
RE: loi khi chay form thi macro bi loi
cuongvan09 > 25-06-12, 09:53 AM
(25-06-12, 09:47 AM)ht03 Đã viết:
(25-06-12, 09:19 AM)cuongvan09 Đã viết: mấy bác ơi xin hướng dẫn e sửa cái lỗi này với, tình hình là khi e mở cái form F_innhanvien lên rồi nhấp vô phần chọn để in thì nó báo lỗi mà e ko biết bị lỗi gì nên nhờ mấy bác giúp và hỗ trợ e sửa lỗi với ah, và đây là link download bài và hình ảnh bị lỗi của bài e ah, e mong mấy bác download về coi rồi hướng dẫn e sửa với ah
đây là link dowload bài ah
http://maxup.vn/tai-ve/5yrlwyuvmbm10h5/doan_2.mdb.html
mong mấy bác giúp cho e với
đọc một hồi mà vẫn không hiểu cái form của bạn lắm nhưng mình nghĩ bạn nên coi lại sự kiện timer của bạnMã:Private Sub Form_Timer()
Select Case i
Case 1, 4, 7, 10, 13, 16, 19, 22, 25
Me.Label57.Caption = Left(chuoi, i) & " /"
Case 2, 5, 8, 11, 14, 17, 20, 23, 26
Me.Label57.Caption = Left(chuoi, i) & " --"
Case Else
Me.Label57.Caption = Left(chuoi, i) & " \"
End Select
i = i + 1
If i > Len(chuoi) Then
i = 1
End If
End Sub
cái đó là cái code chữ chạy thôi bác ơi, còn nó báo lỗi là do e tạo cái macro ấy, bác coi cái macro hộ e với, e cung ko biết sao báo lỗi nữa, bữa trước e làm y chang vậy thì đc cái giờ e xóa cái đó đi rồi làm lại cái nó báo lỗi thế ah
(25-06-12, 09:52 AM)khanhduycsgt Đã viết: Đã sửa:
em cám ơn bác nhiều nha, mà cái đó là bác bỏ luôn cái macro luôn ah hả bác hay là sao thế xin bác hướng dẫn e với, có gì bác liên hệ qua yahoo của e cho tiện nha: changngoc_sitinh617
http://maxup.vn/tai-ve/ofr1n20beplcjcl/do_an_2.mdb.html
Vấn đề không phải lỗi do timer, mà là lỗi câu lệnh trong macro thôi, mình viết code cho bạn rồi. -
RE: loi khi chay form thi macro bi loi
khanhduycsgt > 25-06-12, 10:05 AM
chủ yếu là viết code thôi, mình thấy macro nhiều lúc hơi hơi khùng khùng và khó chịu giống như "girl xinh" vậy, tốt nhất là mình về với vợ "code VBA" thôi!
phần code thì mình đã viết rồi, bạn vào tham khảo nhé! -
RE: loi khi chay form thi macro bi loi
cuongvan09 > 25-06-12, 10:08 AM
(25-06-12, 10:05 AM)khanhduycsgt Đã viết: chủ yếu là viết code thôi, mình thấy macro nhiều lúc hơi hơi khùng khùng và khó chịu giống như "girl xinh" vậy, tốt nhất là mình về với vợ "code VBA" thôi!
ok e cảm on bác nhiều ah, mà bác cho e hỏi thêm cái này ah, giờ e muốn cung trường hop nhu vậy mà mình làm cho 3 cái form còn lại là bao cao nhap, bao cao xuat, và bao cao ton nua thi minh phai làm sao ah, và để cho 2 cái textbox của bao cao nhap la tu ngay đen ngay bị an đi khi minh ko chon thi minh phai lam sao ah, xin bac hướng dan e làm với ah
phần code thì mình đã viết rồi, bạn vào tham khảo nhé!
-
RE: loi khi chay form thi macro bi loi
ht03 > 25-06-12, 10:12 AM
không hiểu sao máy mình nó cứ báo lỗi sự kiện Timer không, chắc tại bác ý để sự kiện Timer có 150 @@ mà mình dùng Tab nên @@, chỉnh lại timer, thì nó mới báo lỗi cái macro, nhưng chỉ dc 1 lúc nó lại báo lỗi Timer tiếp @@ -
RE: loi khi chay form thi macro bi loi
khanhduycsgt > 25-06-12, 10:19 AM
Những cái đó bạn làm tương tự như form In này thôi.
Muốn khóa sử dụng đối tượng nào thì trong sự kiện Form_load thì khóa nó luôn. Ví dụ trong đề tài của bạn là:
Mã:Private Sub Form_Load()
Me.cboChon.Enabled = False
End Sub
Rồi khi đặt sự kiện cho Frame9 mà = 2 thì cái cboChon sẽ hiện ra thì bạn viết code Frame9__BeforeUpdate theo hàm If...Else...End If như sau:
Mã:If Me.Frame9 = 1 Then 'Neu Chon radio button thu 1 trong Frame9
Me.cboChon.Enabled = False 'Khoa cboChon
Else 'Neu nguoc lai
Me.cboChon.Enabled = True 'Mo khoa cbChon
End If -
RE: loi khi chay form thi macro bi loi
cuongvan09 > 25-06-12, 10:54 AM
(25-06-12, 10:19 AM)khanhduycsgt Đã viết: Những cái đó bạn làm tương tự như form In này thôi.
dạ cái đó thì e làm đc rồi nhưng mà con cái F_baocaonhap thì e ko biết làm sao cho no ẩn 2 cái textbox trong cái form đó hết, xin bác coi rồi hướng dẫn e với, e cảm ơn bác nhiều ah
Muốn khóa sử dụng đối tượng nào thì trong sự kiện Form_load thì khóa nó luôn. Ví dụ trong đề tài của bạn là:
Mã:Private Sub Form_Load()
Me.cboChon.Enabled = False
End Sub
Rồi khi đặt sự kiện cho Frame9 mà = 2 thì cái cboChon sẽ hiện ra thì bạn viết code Frame9__BeforeUpdate theo hàm If...Else...End If như sau:
Mã:If Me.Frame9 = 1 Then 'Neu Chon radio button thu 1 trong Frame9
Me.cboChon.Enabled = False 'Khoa cboChon
Else 'Neu nguoc lai
Me.cboChon.Enabled = True 'Mo khoa cbChon
End If
-
RE: loi khi chay form thi macro bi loi
khanhduycsgt > 25-06-12, 11:10 AM
Code trong Frame9
Mã:Private Sub Frame9_BeforeUpdate(Cancel As Integer)
If Me.Frame9 = 1 Then 'Neu Frame9 chon radio button thu 1 thi khoa 2 textbox Tungay va Denngay
Me.Tungay.Enabled = False
Me.Denngay.Enabled = False
Else 'Nguoc lai thi mo khoa
Me.Tungay.Enabled = True
Me.Denngay.Enabled = True
End If
End Sub
Code trong form_load
Mã:Private Sub Form_Load()
'Ngay khi mo form thi 2 textbox nay se bi khoa, vi mac dinh Frame9 chon la 1
Me.Tungay.Enabled = False
Me.Denngay.Enabled = False
End Sub