Eğer örneğinizi VB6 haricindeki kullandığınız komponentler ile birlikte eklemiş olsaydınız bu sorununuz çözülmüş olacaktı şimdi yaptığımız farazi olarak varsayım üzerine yorum yaparak kod yazmak oluyor.Eklediğiniz örnekte resim ekleme ile ilgili bir buton veya bölüm görünmüyor.Siz bu resmi nasıl eklemeyi düşünüyorsunuz? Hata vermesini engelleyen kodlar aşağıdadır.
On Error GoTo HataKontrol
'Sonraki Kayıt
With Adodc1.Recordset
.MoveNext
If .EOF Then .MoveFirst
End With
yResim.Picture = LoadPicture(App.Path & "\Resim\" & Me.Text6 & ".jpg")
On Error GoTo 0: Exit Sub
HataKontrol:
Dim strErr As String
strErr = "Hata olustu: " & Err.Number & " " & Err.Description & " " & "Bulunamadı"
MsgBox strErr, vbCritical + vbOK, "Oğulcan & Olcaytuğ"
TC No ile resim kayıt etmek için kayıt butonuna aşağıdaki kodu ekleyiniz.
ResimKaydet App.Path & "\Resim\" & Me.Text6 & ".jpg"