Etiketler
|
|
|
Yazar: yoguz - Cevaplar: 4 - İzleme: 2419
Kayıt butonunda progress bar hatası
|
Merhaba arkadaşlar,
Animasyonlu menü ekleyerek yapmaya çalıştığım çalışmamda, calışanlar formuna eklediğim kayıt butonuna status bar ekledim. Fakat kayıt butonuna basıldığında status bar çalışıyor ama bitiminde hata veriyor. Konu hakkında yardımcı olabilirmisiniz.
Örnek olarak kullandığım status bar örneğinide ekedim.
teşekkür ederim.
|
excele aktarma butonunda sorun yaşıyorum
|
iyi akşamlar arkadaşlar. bir program tasrlıyorum daha önce yaptığım denemelerde excele aktarma butonum açlışıyordu. ancak bu denememde çalışmıyor. ve düzelt butonuna da uygun komutları yazdığımda çalışmıyor. çıldırıcam. sanırım sorun alt formlar kullanmamdan kaynalanıyor. yardımcı olursanız sevinirim. ekteki dosyanın içinde servis isimli bir form var sorunum o formda. yardımlarınızı bekliyorum. ha birde arkadaşlar aklıma gelmişken sorayım. parça bilgileri ekranında müşteri bilgilerini görmek ist
|
kaydet butonunda veri karşılaştırma
|
MÜŞTERİLERİMİZİN EVRAKLARINI TAKİP ETTİĞİMİZ FORMUMUZ VAR.
YENİ KAYIT YAPIP , KAYDI KAYDET BUTONU'NA BASILDIĞI ZAMAN AYNI MÜŞTERİ NUMARASI VARSA ; KAYIT BULUNMAKTADIR DİYE MSJ VERMESINI ISTIYORUM
|
Resim ekleme butonunda işlemi iptal etme problemi
|
Merhaba,
Çalışmama resim ekleme olayını uyguladım ama bir sorun var, ve sanırım bu sorun başka arkadaşlardada mevcuttur, dikkat edilmemiştir vs.
Sorun şu : herhangi bir ürüne resim ekliyorum ekliyor sorun yok.
mesela aynı urune "resim ekle" butonuna basıp tekrar resim eklemeye çalışıyorum ve açılan resim seçme yerinden "iptal" diyip resim eklemekten vazgeçiyorum. ve malesef önceden eklediğim resmide siliyor,
Zannedersem resim ekleme butonunun kodlarında bir eksik var, işlem iptal edild
|
Type Mismatc Hatası (aktar Butonunda Hata)
|
[vb]Private Sub btn_aktar_Click()
Dim GItem As Variant
Dim GurunAdi, Gurunno As String
Dim GBirimi As String
Dim GMiktari As Integer
For Each GItem In Me.Liste0.ItemsSelected
Gurunno = Me.Liste0.Column(0, GItem)
GurunAdi = Me.Liste0.Column(1, GItem)
GBirimi = Me.Liste0.Column(2, GItem)
If DCount("*", "tbl_ihtiyac", "[urun_adi] = '" & GurunAdi & "' And [ihale_id] = " & [mtn_is_no] & "") <> 0 Then
MsgBox (GurunAdi & ", Daha Önce Eklenmiş !")
|
Kaydet/güncelle Butonunda Mükerrer Kayıt Engelleme
|
Formda bulunan "yeni kayıt" ve Kaydet/güncelle" butonlarım var.
Kaydet/güncelle butonunda 4 alana göre mükerrer sorgulaması yapmak istiyorum. Dört alan eşitse mesaj versin ve kayıt gerçekleşmesin istyorum. Yapmaya çalıştım ama..
[code]Private Sub kmtkaydet_Click()
On Error GoTo Err_kaydıkaydet_Click
kural1 = DCount("ders_id", "tbl_dersler", "dersinadi='" & Me.txtdersadi & "'")
kural2 = DCount("ders_id", "tbl_dersler", "sinifi='" & Me.txtsinif & "'")
kural3 = DCount("ders_id", "tbl_ders
|