Konuyu Değerlendir
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5
[VBA] Çalıştıramadığım Vba Kodu
#1
Merhaba .Frm_resim isimli formunda bulunan;

Option Compare Database
Option Explicit
Dim ResimAdi As Variant
Dim ResimveYolu As Variant
______________________________________________________

Private Sub Form_Load()
DoCmd.GoToRecord , , acLast
End Sub
___________________________________________________________

Private Sub Form_Open(Cancel As Integer)
On Error GoTo Hata1
ResimAdi = "kameraodası-" & Format(Now, "ddmmyyyy") & ".bmp"
ResimveYolu = Environ("TEMP") & "\" & ResimAdi
Hata1_Cikis: Exit Sub
Hata1: MsgBox Err.Number & "" & Err.Description
Resume Hata1_Cikis
End
End Sub
__________________________________________________________________
Private Sub Komut5_Click()
On Error GoTo Hata2
SaveClip2Bit (ResimveYolu)
Me.Resim6.Picture = ResimveYolu
Me.Etiket1.Caption = ResimveYolu
If DosyaKontrol(ResimveYolu) = True Then
Me.Komut7.Visible = True
End If
Hata2_Cikis: Exit Sub
Hata2: MsgBox Err.Number & "" & Err.Description
Resume Hata2_Cikis
End Sub
_____________________________________________________________________

Private Sub Komut7_Click()
On Error GoTo Hata3
Application.FollowHyperlink (ResimveYolu)
Hata3_Cikis: Exit Sub
Hata3:
If Err.Number = 490 Then
MsgBox ("Dizinde Resim bulunamadı")
Else
MsgBox Err.Number & "" & Err.Description
End If
Resume Hata3_Cikis
End Sub
____________________________________________________________________

Private Sub Komut4_Click()
DoCmd.Quit
End Sub
_________________________________
Private Sub Komut3_Click()
DoCmd.Minimize
End Sub
___________________________________________________

Private Sub Komut8_Click()
Me.bir_ad = Delete
End Sub

Vba kodlarından Komut8 butonunun tıklandı olayına bağlı Me.bir_ad = delete kodu bu şekilde çalışmayıp hata vererek ne zamanki sayfanın başında bulunan;

Option Compare Database
Option Explicit
Dim ResimAdi As Variant
Dim ResimveYolu As Variant

komut satırını silersem çalışmaya başlıyor ancak o zamanda diğer kodlar çalışmıyor.Yardımlarınızı beklyorum.İyi akşamlar.


Bul
Alıntı
#2
Option Explicit satiri presudurler arasi hatali yazilim kontrolu yapar. delete hatali yazilmis, Yuklu resmin silinmesi amaciyla mi yazdiniz? Ornek VT konuya eklemelisiniz.

Kullanıcı İmzası

Alıntı
#3
bir_ad isimli hücremin içinde bulunan veriyi form üzerinden silmek için yazmıştım
Bul
Alıntı
#4
(09-01-2019, 21:12)Satir demiş ki: bir_ad isimli hücremin içinde bulunan veriyi form üzerinden silmek için yazmıştım

Private Sub Komut8_Click()
Me.bir_ad =""
End Sub

yazmalisiniz. Diger kodlarin bu eylemle iliskisi yoktur.

Kullanıcı İmzası

Alıntı
#5
Çok teşekkür ederim çalıştı. Gg
Bul
Alıntı


İmlemeler

Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Vba bekletme kodu h2001 3 98 18-04-2019, 22:59
Son Mesaj: onur_can
  access saat kodu berk34 1 117 10-03-2019, 10:22
Son Mesaj: celalll
  [RAPOR] Raporlama Yönetimi Formu Oluşturma/Özel Rapor Kodu-Otomatik Bildirim ve Mail Gönderme ebenli 4 216 26-02-2019, 09:14
Son Mesaj: ebenli
  [VBA] EĞER KODU YAZIM TEKNİĞİ -ÇÖZÜMÜ- yahzee_61 4 241 10-12-2018, 01:40
Son Mesaj: yahzee_61
  [VBA] açık pdf dosyasını kapatma vba kodu ssdestekk 6 330 16-11-2018, 08:18
Son Mesaj: ssdestekk
  [SORGU] Bul Değiştir Kodu selimglr 17 617 28-10-2018, 08:39
Son Mesaj: selimglr
  [VBA] Kayıt Sil Kodu fatihsipahi 1 282 05-10-2018, 14:08
Son Mesaj: EminA
  [FORM] Sil butonu kodu Kargasa 14 816 29-09-2018, 00:06
Son Mesaj: Kargasa

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi