- Katılım
- 12 Ocak 2009
- Mesajlar
- 838
- Excel Vers. ve Dili
- 2003
- Altın Üyelik Bitiş Tarihi
- 07-02-2024
Merhaba arkadaşlar aşağıdaki kod ile resmi image nesnesine alıyorum.
Bu kod ile veritabanında kayıt yapıyorum.
Veritabanına şu şekilde bir kayıt yapıyor.
DblClick olayı ile verileri tekrar nesnelere yüklemek isteyince son satıdaki Picture kodunda hata veriyor.
Sorunu nasıl çözebilirim.
Kod:
Private Sub btnGözat_Click()
'Personelimizin resmini seçiyoruz
Dim dGözat As FileDialog
Set dGözat = Application.FileDialog(msoFileDialogOpen)
With dGözat
.Title = "Resim Dosyası Seçiniz"
With .Filters
.Clear
.Add "Tüm Resimler", "*.gif;*.jpg;*.bmp"
.Add "Gif Resmi", "*.gif"
.Add "JPG Resmi", "*.jpg"
.Add "Bmp Resmi", "*.bmp"
.Item 3
End With
.InitialFileName = UygulamaYolu
If .Show Then
ResimYolu = .SelectedItems(1)
Image1.Picture = LoadPicture(ResimYolu)
ResimEklendi = True
Else
ResimEklendi = False
End If
End With
End Sub
Kod:
Private Sub CommandButton1_Click() 'EKLE
Dim Resim() As Byte
If txtAdi.Text = "" Then
txtAdi.SetFocus
MsgBox ("Lütfen Adı - Soyad Bilgisi Girin..."), vbInformation, "Süleyman SAVAŞ"
Exit Sub
End If
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Call BAGLANTI
rs.Open "select * from [REHBER] where [TC_KIMLIK] = '" & txtTCKimlik & "'", baglan, 1, 3
If rs.RecordCount = 0 Then
rs.AddNew
rs("ADI_SOYADI") = txtAdi.Value
rs("TC_KIMLIK") = txtTCKimlik.Value
rs("IL") = cmbIL.Value
rs("ILCE") = cmbILCE.Value
rs("SICIL") = txtSicil.Value
rs("SINIF") = cmbSinif.Value
rs("UNVAN") = cmbUnvan.Value
rs("GOREV") = txtGorev.Value
rs("FIRMA") = txtFirma.Value
rs("KURUM") = cmbKurum.Value
rs("BASKANLIK") = cmbBaskanlik.Value
rs("BIRIM") = cmbBirim.Value
rs("ISTIHDAMI") = cmbistihdam.Value
rs("YERLESKESI") = cmbYerleske.Value
rs("KAT") = txtKat.Value
rs("ODA_NO") = txtOda.Value
rs("IS_TEL") = txtIstel.Value
rs("FAKS") = txtFaks.Value
rs("DAHILI") = txtDahili.Value
rs("CEP") = txtCeptel.Value
rs("E_POSTA") = txtEposta.Value
rs("ADRES") = txtAdres.Value
rs("VERGI_D") = txtVergiD.Value
rs("VERGI_N") = txtVergiN.Value
rs("NOT") = txtNot.Value
rs("RESIM") = Image1.Picture
'Image1.Picture = Nothing
rs.Update
MsgBox txtAdi & " adlı kayıt başarı ile tamamlandı.", , "Süleyman SAVAŞ"
Else
MsgBox txtTCKimlik & " T.C Kimlik numarasında mevcut bir kayıt var.!!", , "Süleyman SAVAŞ"
End If
rs.Close
Set kayit = Nothing
listeye_al
temizle
End Sub
DblClick olayı ile verileri tekrar nesnelere yüklemek isteyince son satıdaki Picture kodunda hata veriyor.
Sorunu nasıl çözebilirim.