Merhaba arkadaşlar,
sorunsuz olarak kullanmış olduğum dosyamın içerisine farklı çalışmalarımın içerisinde bulunan yeni hazırlanmış tablolar ve formlar aldım.
bu aldığım formların bazılarını açarken ActiveX Denetimi hatası veriyor.
office 2010 da hata vermiyor
office 2003 de açınca bu hatayı veriyor.
neden olabilir acaba?
referanslar:
sorun çıkaran formlarda
on error resume next yada
on error goto …. benzeri kodları pasifleştirip dener misiniz? hata satırına yönlendirecek mi?
SN HOCAM MERHABA,
YÖNLENDİRMEDİ
"sadece bazı formlarda hata veriyor" demişsiniz bu formların ortak özellikleri ne?
En basitinden bir form.
tüm kodları aşağıda,
bundada hata veriyor.
Option Compare Database
Private Sub Açılan_Kutu35_GotFocus()
Me.Açılan_Kutu35.Requery
End Sub
Private Sub Form_Load()
Call yazici_Click
End Sub
Private Sub Form_Open(Cancel As Integer)
kayitekle_Click
End Sub
Private Sub KAPAT2_Click()
'On Error GoTo Err_KAPAT2_Click
DoCmd.Close
Exit_KAPAT2_Click:
Exit Sub
Err_KAPAT2_Click:
MsgBox Err.Description
Resume Exit_KAPAT2_Click
End Sub
Private Sub kaydet_Click()
'On Error GoTo Err_kaydet_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
kayitekle_Click
Exit_kaydet_Click:
Exit Sub
Err_kaydet_Click:
MsgBox Err.Description
Resume Exit_kaydet_Click
End Sub
Private Sub sil_Click()
'On Error GoTo Err_sil_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_sil_Click:
Exit Sub
Err_sil_Click:
MsgBox Err.Description
Resume Exit_sil_Click
End Sub
Private Sub kayitekle_Click()
'On Error GoTo Err_kayitekle_Click
DoCmd.GoToRecord , , acNewRec
Me.HATA_ADI.SetFocus
Exit_kayitekle_Click:
Exit Sub
Err_kayitekle_Click:
MsgBox Err.Description
Resume Exit_kayitekle_Click
End Sub
Private Sub Açılan_Kutu35_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & Str(Nz(Me![Açılan Kutu35], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub LISTEYAZDIR_Click()
'On Error GoTo Err_LISTEYAZDIR_Click
Dim stDocName As String
stDocName = "HATA_ADI_TANIMLA"
DoCmd.OpenReport stDocName, acPreview
Exit_LISTEYAZDIR_Click:
Exit Sub
Err_LISTEYAZDIR_Click:
MsgBox Err.Description
Resume Exit_LISTEYAZDIR_Click
End Sub
Private Sub HATA_RAPORU_PARTI_Click()
'On Error GoTo Err_HATA_RAPORU_PARTI_Click
If IsNull(Me.yazicisec) Then
MsgBox "Önce yazıcıyı seçiniz", vbCritical, "Yazıcıyı Seçiniz!"
Exit Sub
End If
Dim prt As Printer
Dim stDocName As String
Set prt = Application.Printers(Me!yazicisec.Value)
Set Application.Printer = prt
stDocName = "HATA_ADI_TANIMLA"
DoCmd.OpenReport stDocName, acPreview
'DoCmd.OpenReport stDocName, acNormal
Exit_HATA_RAPORU_PARTI_Click:
Exit Sub
Err_HATA_RAPORU_PARTI_Click:
MsgBox Err.Description
Resume Exit_HATA_RAPORU_PARTI_Click
End Sub
Private Sub yazici_Click()
Dim prt As Printer
Me.yazicisec.RowSource = ""
For Each prt In Application.Printers
Me!yazicisec.AddItem Item:=prt.DeviceName
Next prt
End Sub
maalesef bir çözüm öneremiyorum.