AccessTr.neT - Acces Donuyor

Sayfalar: 1 2

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

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, 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

[Resim: do.php?imgf=147151608913451.png]

Şuan düzeldi

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: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.

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.

Sayfalar: 1 2