Acces Donuyor

1 2
18/08/2016, 11:58

ozkovlu29

Merhabalar;
Aşağıya eklemiş olduğum kod "frmKimlikBilgileri" formunun içerisinde, kodun  içeriğine girdiğimde Access donuyor. Bunun sebebi ne olabilir.
[attachment=25413]
Option Compare Database
Option Explicit
Sub TumDenetimlerAktif()

 AktifOlsun "frmKimlikBilgileri"
 btnKapat.Enabled = False
 btnDuzenle.Enabled = False
 
End Sub
Sub TumDenetimlerPasif()
 
 PasifOlsun "frmKimlikBilgileri"
 btnYeniKayit.Enabled = True
 btnDuzenle.Enabled = True
 btnKapat.Enabled = True
   
End Sub


Private Sub btnDuzenle_Click()

 TumDenetimlerAktif
 
End Sub

Private Sub btnIptal_Click()
 
 If Me.Dirty Then
   If MsgBox("Bilgilerde değişiklik yapılmış" & vbCrLf & vbCrLf & "Değişiklikleri ipal etmek istermisiniz?", vbExclamation + vbYesNo, "Dikkat") = vbYes Then
     
   Me.Undo
   TumDenetimlerPasif
 'son kayda git
   'DoCmd.GoToRecord , , acLast   //Son kayda git
   End If
   
 Else
 
 TumDenetimlerPasif
 'son kayda git
 'DoCmd.GoToRecord , , acLast  //Son kayda git
   
 End If

 
End Sub

Private Sub btnKapat_Click()
'KAPAT butonu programı tamamen kapatır
   'Application.Quit
'KAPAT butonu Formu kapatır
 If MsgBox("Formu kapatmak istediğinizden emin misiniz?", vbQuestion + vbYesNo, "Dikkat") = vbYes Then
 DoCmd.Close acForm, "frmKimlikBilgileri"
 End If
 
End Sub

Private Sub btnKaydet_Click()
 'Alanların boş geçilmemesi
 If IsNull(txtAdi) Or txtAdi = " " Then
   MsgBox "Lütfen & txtAdi & alanı boş bırakmayınız", vbExclamation, "UYARI"
   Exit Sub
 End If
 
 'Bilgilerin kaydedilemsi
 DoCmd.RunCommand acCmdSaveRecord
 
 MsgBox "Bilgileri başarıyla kaydedildi.", vbInformation, "işlem Tamam"
 
 TumDenetimlerPasif

End Sub

Private Sub btnYeniKayit_Click()

 TumDenetimlerAktif
 'yeni kayıt aç
 DoCmd.GoToRecord , , acNewRec

End Sub

Private Sub cb_il_Change()
 'İller değiştiğinde From üzerndeki İlçeleri yenile
 Me.cb_ilce.Requery

End Sub



Private Sub cbIDCinsiyet_Enter()
cbCinsiyet.Requery
End Sub

Private Sub cbPerListe_AfterUpdate()
'DoCmd.Requery
'Me.cbPerListe.SetFocus
End Sub

Private Sub cbPerListe_Change()
Dim rs As Object
 Set rs = Me.Recordset.Clone
 rs.FindFirst "[IDKimlik]=" & Me.cbPerListe
 
 If Not rs.EOF Then Me.Bookmark = rs.Bookmark
 



End Sub

Private Sub Form_Current()
 'Form geçerli olduğunda yenile
 Me.Refresh
 
End Sub

'Private Sub Form_Keydown(KeyAscii As Integer)
'Dim AltTusu As Integer
 'AltTusu = acAltMask > 0
 
   'Case vbKeyF4
     'If AltTusu Then
     'KeyCode = 0
     'MsgBox "Alt F4 tuşu kullanılmaz", vbExclamation, "UYARI"
     'End If
 
 
'End Sub

Private Sub Form_Load()
 DoCmd.Maximize
 'TumDenetimlerPasif
 'cbPerAra.Enabled = True

End Sub

Private Sub lstPerListe_AfterUpdate()

Dim rs As Object
 Set rs = Me.Recordset.Clone
 rs.FindFirst "[IDKimlik]=" & Me.lstPerListe
 If Not rs.EOF Then Me.Bookmark = rs.Bookmark
 
End Sub


Private Sub txtPerAra_Change()
 
 Dim aranan As String
   aranan = Forms!frmKimlikBilgileri!txtPerAra.Text
   Forms!frmKimlikBilgileri!txtPerAraGecici = aranan
   lstPerListe.Requery

End Sub
18/08/2016, 12:12

atoz112

Sayın ozkovlu29,

Bahsettiğiniz talebinize yönelik olarak;
Eklediğiniz örnek uygulama,ifade edilen form açıldığında herhangi bir soruna maruz kalmaksızın direkt olarak açılmakta olduğu görülmüştür.

Alıntı:kodun  içeriğine girdiğimde Access donuyor.

İfadeniz ile kast ettiğiniz tam olarak nedir?...hangi kod ve neden kod müdahalesi?

Bahsettiğiniz “DONMA” işlemi;formu açarken mi yoksa bir işlem yaparken mi meydana gelmektedir?

Son olarak;
gerekirse,durumun oluştuğu esnadaki halini içeren ve varsa hata iletisini de dahil edecek şekilde ekran görüntülerini de ekleyebilirsiniz.

Bilginize…iyi çalışmalar,saygılar.
18/08/2016, 13:28

ozkovlu29

(18/08/2016, 12:12)atoz112 yazdı: Sayın ozkovlu29,

Bahsettiğiniz talebinize yönelik olarak;
Eklediğiniz örnek uygulama,ifade edilen form açıldığında herhangi bir soruna maruz kalmaksızın direkt olarak açılmakta olduğu görülmüştür.

Alıntı:kodun  içeriğine girdiğimde Access donuyor.

İfadeniz ile kast ettiğiniz tam olarak nedir?...hangi kod ve neden kod müdahalesi?

Bahsettiğiniz “DONMA” işlemi;formu açarken mi yoksa bir işlem yaparken mi meydana gelmektedir?

Son olarak;
gerekirse,durumun oluştuğu esnadaki halini içeren ve varsa hata iletisini de dahil edecek şekilde ekran görüntülerini de ekleyebilirsiniz.

Bilginize…iyi çalışmalar,saygılar.
Kod satırına gidiğimde


 

Şuan düzeldi
18/08/2016, 14:02

atoz112

Sayın ozkovlu29,

öncelikle;
sorununuz çözüme ulaştıysa,Cevaplanmış Sorular Kategorisi'ne taşınmasını talep edebilirsiniz.

son olarak;
halen,

kod satırına girdiğimde

ifadenizi tam olarak anlamış değilim,açıkçası.nasıl bir müdahaleden veya işlemden bahsediyorsunuz?

form çalışırken,kodlarda bir işlem yapmayı mı deniyorsunuz?

yine de,bir bilgilendirmede bulunmanız yerinde olur.

bilginize...iyi çalışmalar,saygılar.
18/08/2016, 14:14

ozkovlu29

(18/08/2016, 14:02)atoz112 yazdı: Sayın ozkovlu29,

öncelikle;
sorununuz çözüme ulaştıysa,Cevaplanmış Sorular Kategorisi'ne taşınmasını talep edebilirsiniz.

son olarak;
halen,

kod satırına girdiğimde

ifadenizi tam olarak anlamış değilim,açıkçası.nasıl bir müdahaleden veya işlemden bahsediyorsunuz?

form çalışırken,kodlarda bir işlem yapmayı mı deniyorsunuz?

yine de,bir bilgilendirmede bulunmanız yerinde olur.

bilginize...iyi çalışmalar,saygılar.

Cevaplanmış Sorular Kategorisi'ne taşınmasını talep ini nereden bulunacağız.
"form çalışırken,kodlarda bir işlem yapmayı mı deniyorsunuz?" evet 
Yardımcı olduğunuz için Teşekkür ederim.
18/08/2016, 14:21

atoz112

sayın ozkovlu29,

Alıntı:Cevaplanmış Sorular Kategorisi'ne taşınmasını talep ini nereden bulunacağız.

ifadenize yönelik olarak;

eğer herhangi bir konunuzda,katılımcılar tarafındna paylaşılan bilgiler geçerli olup sorununuz çözüme ulaştıysa,o konunuzda bir mesaj içerisinde sorununuzun çözüldüğünü ve konunun Cevaplanmış Sorular Kategorisi'ne taşınabilir olduğunu yazı ile beyan etmeniz yeterli.(örneğin;hani,"teşekkür ederim" ifadesini ayzıyorsunuz ya,bu ifadenin bitimine olabilir.)

Alıntı:"form çalışırken,kodlarda bir işlem yapmayı mı deniyorsunuz?" evet

ifadenize yönelik olarak;

sadece,bir hatırlatma ve tavsiye olması adına,eğer kodlara müdahale etme durumunuz söz konusu olursa,öncesinde açıkta ve kullanımd aolan formunuzu KAPATINIZ (ya da,durdurunuz.) araç hareket halindeyken,arabadan atlamaya benzer bir durum,sizin yapmayı denediğiniz.bunu yapmamaya özen gösteriniz.

bunun için,formun üzerine ya eğer KAPAT butonu yerleştirdiyseniz bu butonu kullanarak ya da formun üzerindeyken SAĞ TUŞA basınız ve sağ tuş menüsünden TASARIM kısmını ya da KAPAT seçeneğini tercih ediniz.ardından,kod sayfasına ALT + F11 tuşu ile geçiniz ya da form üzerindeki hangi olay yordamına geçecekseniz,ÖZELLİKLER - OLAY sekmesinden o olay yordamını seçiniz.

bilginize...iyi çalışmalar,saygılar.
1 2