FORUM AÇARKEN ALDIĞIM BİR HATA

MERHABALAR

Arkadaşlar Acces'te öyle saçma sapan bir sorun gösteriyor anlamadım
bayada uğraşıyorum anlamadığım birşey bazen yapıyor bazen yapmıyor size kodlar ile vereceğim kontrol edip hatami bana söyler misiniz?
hatanın resmi ekrandadır.
Debug dediğim zaman verdi hatalı satır.

Visual Basic

Private Sub Komut84_Click()
 
DoCmd.OpenForm "FRM_ISLEMLER", acNormal
 
End Sub

buda açmaya çalıştığım formu açılırken kodudur.

Visual Basic

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
 
Dim Yetki, A As String, C As String
 
 
Yetki = DLookup("Departman", "tblsifre", "[KID]=" & Forms!frmşifre!kullanıcı.Value)
'GRAFİK SADECE İŞARETLEMEDİKLERİNİ GÖSTERECEK
If Yetki = "GRAFİK" Then
Me.GRAFİK.Enabled = True
Me.grafikbtn.Visible = True
SQL = "SELECT SIPARIS.İD, SIPARIS.SİPARİS_NO, SIPARIS.SAT_NO, SIPARIS.URUN_KODU, SIPARIS.FİRMA_ADİ, SIPARIS.SİPARİS_NET, SIPARIS.SİPARİS_FİREADET, SIPARIS.SİPARİS_FİRE, SIPARIS.BİRİMİ, SIPARIS.GİDEN_MİK, SIPARIS.İRSALİYE_NO, SIPARIS.TESLİM_TARİH, SIPARIS.SİPARİS_ACMA_TARİH, SIPARIS.GRAFİK, SIPARIS.URETİM, SIPARIS.DEPO, SIPARIS.SEVKİYAT, SIPARIS.F1, SIPARIS.F2, SIPARIS.F3, SIPARIS.SIP_FIYAT, SIPARIS.TOP_FIYAT, SIPARIS.IRS_TARIHI, SIPARIS.SIP_ACMA_TARIHSAAT, [SİPARİS_NET]-Nz([GİDEN_MİK],0) AS KALAN, SIPARIS.FIRMA FROM SIPARIS WHERE (((SIPARIS.GRAFİK)=False));"
Me.RecordSource = SQL
Me.Requery
Else
End If
'MONTAJA YETKİ VERDİM ŞİMDİ GRAFİK İŞARETLEMEDİYSE MONTAJ GÖREMEYECEK ŞEKİLDE VERİLDİ SADECE SEÇİLİ OLANLARI GÖSTERİYOR.
If Yetki = "MONTAJ" Then
Me.MONTAJ.Enabled = True
Me.montajbtn.Visible = True
SQL = "SELECT SIPARIS.İD, SIPARIS.SİPARİS_NO, SIPARIS.SAT_NO, SIPARIS.URUN_KODU, SIPARIS.FİRMA_ADİ, SIPARIS.SİPARİS_NET, SIPARIS.SİPARİS_FİREADET, SIPARIS.SİPARİS_FİRE, SIPARIS.BİRİMİ, SIPARIS.GİDEN_MİK, SIPARIS.İRSALİYE_NO, SIPARIS.TESLİM_TARİH, SIPARIS.SİPARİS_ACMA_TARİH, SIPARIS.GRAFİK, SIPARIS.URETİM, SIPARIS.DEPO, SIPARIS.SEVKİYAT, SIPARIS.F1, SIPARIS.F2, SIPARIS.F3, SIPARIS.SIP_FIYAT, SIPARIS.TOP_FIYAT, SIPARIS.IRS_TARIHI, SIPARIS.SIP_ACMA_TARIHSAAT, [SİPARİS_NET]-Nz([GİDEN_MİK],0) AS KALAN, SIPARIS.FIRMA FROM SIPARIS WHERE (((SIPARIS.GRAFİK)=True) AND ((SIPARIS.F2)=False));"
Me.RecordSource = SQL
Me.Requery
Else
End If
 
'ÜRETİM SADECE MONTAJIN İŞARETLEDİKLERİNİ GÖRECEK VE KENDİ YAPTIĞI İŞLERİ GÖRMEYECEK
If Yetki = "ÜRETİM" Then
Me.OFSET.Enabled = True
Me.ofsetbtn.Visible = True
SQL = "SELECT SIPARIS.İD, SIPARIS.SİPARİS_NO, SIPARIS.SAT_NO, SIPARIS.URUN_KODU, SIPARIS.FİRMA_ADİ, SIPARIS.SİPARİS_NET, SIPARIS.SİPARİS_FİREADET, SIPARIS.SİPARİS_FİRE, SIPARIS.BİRİMİ, SIPARIS.GİDEN_MİK, SIPARIS.İRSALİYE_NO, SIPARIS.TESLİM_TARİH, SIPARIS.SİPARİS_ACMA_TARİH, SIPARIS.GRAFİK, SIPARIS.URETİM, SIPARIS.DEPO, SIPARIS.SEVKİYAT, SIPARIS.F1, SIPARIS.F2, SIPARIS.F3, SIPARIS.SIP_FIYAT, SIPARIS.TOP_FIYAT, SIPARIS.IRS_TARIHI, SIPARIS.SIP_ACMA_TARIHSAAT, [SİPARİS_NET]-Nz([GİDEN_MİK],0) AS KALAN, SIPARIS.FIRMA FROM SIPARIS WHERE (((SIPARIS.URETİM)=False) AND ((SIPARIS.F2)=True));"
Me.RecordSource = SQL
Me.Requery
Else
End If
'MUCELLİT SADECE ÜRETİMİN İŞARETLEDİKLERİNİ GÖRECEK VE KENDİ YAPTIĞI İŞLERİ GÖRMEYECEK
If Yetki = "MÜCELLİT" Then
Me.MUCELLİT.Enabled = True
Me.mucellitbtn.Visible = True
SQL = "SELECT SIPARIS.İD, SIPARIS.SİPARİS_NO, SIPARIS.SAT_NO, SIPARIS.URUN_KODU, SIPARIS.FİRMA_ADİ, SIPARIS.SİPARİS_NET, SIPARIS.SİPARİS_FİREADET, SIPARIS.SİPARİS_FİRE, SIPARIS.BİRİMİ, SIPARIS.GİDEN_MİK, SIPARIS.İRSALİYE_NO, SIPARIS.TESLİM_TARİH, SIPARIS.SİPARİS_ACMA_TARİH, SIPARIS.GRAFİK, SIPARIS.URETİM, SIPARIS.DEPO, SIPARIS.SEVKİYAT, SIPARIS.F1, SIPARIS.F2, SIPARIS.F3, SIPARIS.SIP_FIYAT, SIPARIS.TOP_FIYAT, SIPARIS.IRS_TARIHI, SIPARIS.SIP_ACMA_TARIHSAAT, [SİPARİS_NET]-Nz([GİDEN_MİK],0) AS KALAN, SIPARIS.FIRMA FROM SIPARIS WHERE (((SIPARIS.URETİM)=True) AND ((SIPARIS.F1)=False));"
Me.RecordSource = SQL
Me.Requery
Else
End If
'DEPO SADECE KENDİ ALANINDA GÖRECEK
If Yetki = "DEPO" Then
Me.DEPO.Enabled = True
Me.depobtn.Visible = True
 
SQL = "SELECT SIPARIS.İD, SIPARIS.SİPARİS_NO, SIPARIS.SAT_NO, SIPARIS.URUN_KODU, SIPARIS.FİRMA_ADİ, SIPARIS.SİPARİS_NET, SIPARIS.SİPARİS_FİREADET, SIPARIS.SİPARİS_FİRE, SIPARIS.BİRİMİ, SIPARIS.GİDEN_MİK, SIPARIS.İRSALİYE_NO, SIPARIS.TESLİM_TARİH, SIPARIS.SİPARİS_ACMA_TARİH, SIPARIS.GRAFİK, SIPARIS.URETİM, SIPARIS.DEPO, SIPARIS.SEVKİYAT, SIPARIS.F1, SIPARIS.F2, SIPARIS.F3, SIPARIS.SIP_FIYAT, SIPARIS.TOP_FIYAT, SIPARIS.IRS_TARIHI, SIPARIS.SIP_ACMA_TARIHSAAT, [SİPARİS_NET]-Nz([GİDEN_MİK],0) AS KALAN, SIPARIS.FIRMA FROM SIPARIS WHERE (((SIPARIS.DEPO)=False));"
Me.RecordSource = SQL
Me.Requery
Else
End If
'YÖNETİM TÜMÜNÜ GÖRECEK VE DEĞİŞTİRME YAPABİLECEK GÖRECEK
If Yetki = "YÖNETİM" Then
Me.GRAFİK.Enabled = True
Me.MONTAJ.Enabled = True
Me.OFSET.Enabled = True
Me.MUCELLİT.Enabled = True
Me.DEPO.Enabled = True
SQL = "SELECT SIPARIS.İD, SIPARIS.SİPARİS_NO, SIPARIS.SAT_NO, SIPARIS.URUN_KODU, SIPARIS.FİRMA_ADİ, SIPARIS.SİPARİS_NET, SIPARIS.SİPARİS_FİREADET, SIPARIS.SİPARİS_FİRE, SIPARIS.BİRİMİ, SIPARIS.GİDEN_MİK, SIPARIS.İRSALİYE_NO, SIPARIS.TESLİM_TARİH, SIPARIS.SİPARİS_ACMA_TARİH, SIPARIS.GRAFİK, SIPARIS.URETİM, SIPARIS.DEPO, SIPARIS.SEVKİYAT, SIPARIS.F1, SIPARIS.F2, SIPARIS.F3, SIPARIS.SIP_FIYAT, SIPARIS.TOP_FIYAT, SIPARIS.IRS_TARIHI, SIPARIS.SIP_ACMA_TARIHSAAT, [SİPARİS_NET]-Nz([GİDEN_MİK],0) AS KALAN, SIPARIS.FIRMA FROM SIPARIS;"
Me.RecordSource = SQL
Me.Requery
Else
End If
 
'PLANLAMA VE SEVKİYAT SADECE GÖRECEK TÜMÜNÜ
If Yetki = "PLANLAMA" Then
SQL = "SELECT SIPARIS.İD, SIPARIS.SİPARİS_NO, SIPARIS.SAT_NO, SIPARIS.URUN_KODU, SIPARIS.FİRMA_ADİ, SIPARIS.SİPARİS_NET, SIPARIS.SİPARİS_FİREADET, SIPARIS.SİPARİS_FİRE, SIPARIS.BİRİMİ, SIPARIS.GİDEN_MİK, SIPARIS.İRSALİYE_NO, SIPARIS.TESLİM_TARİH, SIPARIS.SİPARİS_ACMA_TARİH, SIPARIS.GRAFİK, SIPARIS.URETİM, SIPARIS.DEPO, SIPARIS.SEVKİYAT, SIPARIS.F1, SIPARIS.F2, SIPARIS.F3, SIPARIS.SIP_FIYAT, SIPARIS.TOP_FIYAT, SIPARIS.IRS_TARIHI, SIPARIS.SIP_ACMA_TARIHSAAT, [SİPARİS_NET]-Nz([GİDEN_MİK],0) AS KALAN, SIPARIS.FIRMA FROM SIPARIS;"
Me.RecordSource = SQL
Me.Requery
Else
End If
End Sub

yrdım eder misiniz lutfn

Açmak istediğiniz form yöntemine göre değişebiliyor
iki değişik şekildede form açıyorum senin form aç kodununu aşağıdaki gibi yaparsan açıyormu.

Visual Basic

Private Sub Komut84_Click()
 
DoCmd.OpenForm "FRM_ISLEMLER"
 
End Sub

VEYA

Visual Basic

Private Sub Komut84_Click()
stDocName = "FRM_ISLEMLER"
    DoCmd.OpenForm stDocName, , , acNormal, , acDialog
    DoCmd.GoToRecord , , acNewRec
End Sub

ORDAN BİR HATA YOK AMA SQL SORGULARI SİLDİKTEN SONRA HER TÜRLÜ AÇIYOR. SQL VERİRKEN BAZEN ACIYOR BAZEN ACMIYOR NEYE ACIP ACMADIĞINI ANLAMADIM

bu şekilde anlaşılmıyor dosyayı yükleyin.. bir bakalım..