Bir userform'um var üstünde textboxlar ve comboboxlar var ben yeni kayıt dediğimde cil yordamını çağırıyorum "Call sil" olarak. ancak sil yordamında for next döngüsünü kuramadım bir türlü konu ile ilgili yardım edebilecek arkadaş var mı?
Private Sub sil()
On Error GoTo hata
For i = 1 To 37
TextBox(i).Text = ""
Next i
For j = 1 To 4
ComboBox(j).Text = ""
Next j
hata:
Call hata
End Sub
Sub hata()
ActiveWorkbook.Save
End
End Sub
Compile error:
Sub or function not defined
hatası verip Textbox(i) seçili oluyor...
bu soruyu
Access bölümüne sorumuşsunuz. ancak bildiğim kadarı ile
Access te böyle bir yöntem yok.
(15/09/2009, 11:14)Nurullah_Serdar yazdı: bu soruyu Access bölümüne sorumuşsunuz. ancak bildiğim kadarı ile Access te böyle bir yöntem yok.
Visul Basic kodları mevcut accesste.
Makrolarla userformlarda çalışabilirsiniz Access'te
Benzer bir yöntemi access'te kullanmıştım. Bu konuda bana Eşref yardım etmişti. Fikir benimdi, uygulamada -özellikle döngüde- Eşref yardım etmişti. Onda da bir form üzerindeki kayırlar adım adım ilerletiliyor ve bir metin kutusu içindeki değere göre kontrol yapılıyordu. Bunun için önce tablodaki kaydı saydırdık ve 1 den nereye kadar gidileceğini belirledik. Son kayıt sayısı bir n değikenine atandı. Sonra bu değişken değerine ulaşana kadar döngü çalıştırıldı. Değere ulaştığımızda da işlem bitirildi. Bununla ilgili çalışmayı arıyorum, bulursam buraya eklerim.
For i = 1 To 37
TextBox(i).Text = ""
Next i
For j = 1 To 4
ComboBox(j).Text = ""
Next j
Bu yöntem bildiğim kadarıyla visual basic'de kopyalanmış textboxlar için çalışır.
Accessde gene bildiğim kadarıyla textboxları dizi olarak kullanamazsınz. (user formlarda başka şekilde mümkün mü emin değilim)
PHP Kod:
for i =1 to 37
me("TextBox"& i)=""
next
şeklinde kullanırsanız sanırım olur.
Sonradan gördüm
Alıntı:Visul Basic kodları mevcut accesste.
Makrolarla userformlarda çalışabilirsiniz Access'te
demişsiniz.
Moderatör olan arkadaşlarımızdan hepsi accessde
Vba çalıştırılabildiğini bilen arkadaşlardır. Yöntem olarak kullandığınız -textboxları dizi olarak kullanmak- accessin desteklediği bir durum değildir. Sanırım bu söylenmeye çalışılmış. Yoksa accessde vb kullanmazsınız ki bu da ne böyle deneceğini sanmıyorum
seruz hocanın yaptığı toplu resim gösterme örneğinin içinde buldum istediğinizi.
For i = Sira_No + 1 To 28
Me("[Resim" & i & "]").Picture = ""
Me("[Label_Resim" & i & "]").Caption = " "
Me("[Label_HesapNumarası" & i & "]").Caption = " "
Next
kolay gelsin