Skip to main content

AccessTr.neT


Subscript Out Of Range Hatası

mazhartaktak
mazhartaktak
2
3612

Subscript Out Of Range Hatası

Çözüldü #1
Arkadaşlar AÇILAN KUTU ekledim çalışırken birden bu hatayı vermeye başladı. Aslında hiç bir şey yapmadım. Nasıl oldu bende anlamadım. Eğer yardım ederseniz çok sevinirim.
Yazdığım Programı aşağıya ekledim. İlginize Şimdiden teşekkürler. İyi çalışmalar...
.rar Aile Nüfus Bilgileri Takıp Formu.rar (Dosya Boyutu: 38,75 KB | İndirme Sayısı: 2)
Çaresizlik yoktur dostum, çare olmayan vardır
mazhartaktak, 12-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
Açılan kutunun "satır kaynak türü"nü "Tablo/Sorgu" olarak değiştirdim.

Açılan kutunun denetim kaynağını sildim.

Güncellenme sonrasında olayına aşağıdaki kodu ekledim.

Private Sub Açılan_Kutu68_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[TC KİMLİK NO] = '" & Me![Açılan Kutu68] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

sorgudadaki Adı soyadı alanını 2. satıra alıp açılan kutunun sütun sayısını 2 yapıp sütun genişliklerini 0cm;2,542cm olarak değiştirdim.

Doğru açılan kutudan bahsediyorsak şu anda sorunsuz çalışıyor.

Ayrıca konu başlığınızdaki "Acil Yardım" ibaresi silinmiştir.
.rar Aile Nüfus Bilgileri Takıp Formu.rar (Dosya Boyutu: 46,11 KB | İndirme Sayısı: 5)
Cevapla
Çözüldü #3
sledgeab
Arkadaşım, Teşekkür ederim. Doğru AÇILAN KUTU'dan bahsediyoruz..
Eline sağlık, İyi akşamlar..
Çaresizlik yoktur dostum, çare olmayan vardır
mazhartaktak, 12-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task