vba between komutu - Baskı Önizleme

vba between komutu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: vba between komutu (/konu-vba-between-komutu.html)

vba between komutu - macyrz - 24/03/2016

arkadaşlar Access ile yaptığım programda barkod okumalarında eğer metin değerleri arasında ise ayır sesi değilse normal bip çalmasını istiyorum fakat program hep bip sesi çıkarmaktadır. şimdiden teşekkürler.

Private Sub barkod_AfterUpdate()

If ([barkod] >= [Metin71]) And ([barkod] <= [Metin73]) Then

Playsound ("C:\Ambar\ayir.wav")

Else
Playsound ("C:\Ambar\bip2.wav")
End If

End Sub

Cvp: vba between komutu - atoz112 - 24/03/2016

sayın macyzr,

Site Kuralları gereği örnek uygulamanızı eklemeniz halinde daha geçerli bilgilendirmeleri edinmeniz daha muhtemel.

fakat,ilk etapta bir bilgilendirmede bulunmuş olmak adına;

.Wav dosyasını çalıştırmak için gerekli modül eklentisinin olduğunu varsaymak sureti ile,

ilgili barkod adlı denetimin GÜNCELLEME SONRASINDA olay yordamı içerisine

Kod:

Select Case Me.barkod.Text



  Case Me.Metin71 To Me.Metin73

      PlaySound ("C:\Ambar\ayir.wav")

  Case Else

      PlaySound ("C:\Ambar\ayir.wav")

      

End Select

kod satırlarını dahil ediniz.olası bir hata veya sorun durumunda lütfen örnek uygulamanızı,içeriğinde farazi gerçek dışı ve sonuçları görebilmek adına birkaç veri barındıracak şekilde ekleyiniz.

bilginize...iyi çalışmalar,saygılar.

Cvp: vba between komutu - macyrz - 25/03/2016

çok teşekkür ederim Atoz112 kod çalıştı. modül eklentisini zaten yapmıştım. iyi çalışmalar dilerim