resimdeki gösterdiğim şekilde nasıl yapabilirim bu bütün metin kutuları için geçerli

Private Sub Form_Current()
Resimkutusu1.Picture = "C:\Belgelerim\Sayılar\" & Me.Text1 & ".JPG"
End Sub


Pardon Text e giriş yapıpda çağırmak için
Text1 in AfterUpDate() özelliğine aynı kodu yazınız...

form açıldığı anda veriler otomatik olarak tablodan çekiliyor yani texte elle bir veri girişi olmuyor form başlangıcında textde var olan veriyi kullanacağım
-----------------------------------
birde texte bulunan yazı diyelimki 22.jpg ve klasörde o resim yok resim yoksa boş çıkmasını nasıl sağlarız bu verdiğin kod gayet güzel çalıştı teşşekkürler yardımın için yani klasörün içeriğini bi şekilde yönetmem gerekli yardımlarınızı bekliyorum

sn alemciler, örnek ekleyebilirmisin ?

yukarıdaki resimde gösterdiğim gibi form var 6 tane text var bu textlerde rakamlar var tablodan alıyorum rakamları yapmak istediğim şey
Private Sub Form_Current()
Resimkutusu1.Picture = "C:\Belgelerim\Sayılar\" & Me.Text1 & ".JPG"
End Sub
burdaki kodu kullanarak resimleri çağırmak ama klasörde eğer texteki rakamın diyelimki 33 klasörde 33.jpg yoksa resimkutusu1.picture="resim bulunamadı" gibi birşey istiyorum

Dir komutu ile dosyanın olup olmadığını If yapısı ile kontrol edin eğer dosya yoksa belirttiğiniz gibi bir yazı göstersin ya da sizin şimdiki avatarınız gibi Resim Yok yazan bir resim göstersin. Eğer o dosya varsa resimi göstersin.

Arama kutusunda TXT diye aratın benim eklemiş olduğum bir konu var ondaki dosyayı indirip kodları inceleyin.