Soru 1;
açılır kutu (Combo Box) ile listelediğim bir alana güncelleme sonrasında gerçekleştirmesini istediğim aşağıdaki kodu yazdım ancak bu işlem sonrasında sadece "tamam" seçeneği olan mesaj kutusu çıkıyor. oysa ben "evet" ve "hayır" seçenekli bir mesaj kutusunun gelmesini ve eğer evet'i seçersem yeni veriyi listeme eklemesini, hayır'ı seçersem listeye eklemesin istiyorum. bu işlem için aşağıdaki kodu nasıl düzenlemem gerekiyor?
If MsgBox("Yazılan değer listede yok. Eklensin mi?") = vbNo then exit sub
Dim db As Database
Set db = CurrentDb
db.Execute "insert into TABLO1(ALAN1) values (" & AcilanKutu1.Text & ")"
'db.Execute "insert into TABLO1(ALAN1) values (' " & AcilanKutu1.Text & " ')"
'Eger kayit girilecek alan sayi degil de metin ise 2. satiri kullanin.
'Acilan kutudaki yeni metin ilgili tabloya eklenecek.
'TABLO1(ALAN1) yerine hangi tablonun hangi alanina ekleme yapilacaksa
'onlari yazin. KISILER(AdiSoyadi) gibi. tablo ya da alan isimleri
'hata verirse basina ve sonuna koseli parantez ekleyin.
'[kisi adlari tablosu]([adi soyadi]) gibi.
Dim deger
deger = AcilanKutu1.Text
AcilanKutu1.Undo
AcilanKutu1.Requery
Response = acDataErrAdded
'yeni kaydi ben simdi ekledim. hatayi yoksay.
AcilanKutu1.Value = deger
Soru 2;
Modüller bölümünde hazırladığım bir kodu formlar bölümündeki bir form üzerine yerleştirdiğim komut düğmesine tıkladığım zaman çalışmasını nasıl sağlayabilirim. ben bu işlemi; modüller bölümünde kodu açıyorum ve "run" tuşuna basarak yapıyorum. oysa formdaki komut düğmesine tıkladığımda yapması benim işimi kolaylaştıracak. bunun için komut düğmesine hangi kodu yazmam gerekiyor.
cevaplarınızı bekliyorum. saygılarımla
açılır kutu (Combo Box) ile listelediğim bir alana güncelleme sonrasında gerçekleştirmesini istediğim aşağıdaki kodu yazdım ancak bu işlem sonrasında sadece "tamam" seçeneği olan mesaj kutusu çıkıyor. oysa ben "evet" ve "hayır" seçenekli bir mesaj kutusunun gelmesini ve eğer evet'i seçersem yeni veriyi listeme eklemesini, hayır'ı seçersem listeye eklemesin istiyorum. bu işlem için aşağıdaki kodu nasıl düzenlemem gerekiyor?
If MsgBox("Yazılan değer listede yok. Eklensin mi?") = vbNo then exit sub
Dim db As Database
Set db = CurrentDb
db.Execute "insert into TABLO1(ALAN1) values (" & AcilanKutu1.Text & ")"
'db.Execute "insert into TABLO1(ALAN1) values (' " & AcilanKutu1.Text & " ')"
'Eger kayit girilecek alan sayi degil de metin ise 2. satiri kullanin.
'Acilan kutudaki yeni metin ilgili tabloya eklenecek.
'TABLO1(ALAN1) yerine hangi tablonun hangi alanina ekleme yapilacaksa
'onlari yazin. KISILER(AdiSoyadi) gibi. tablo ya da alan isimleri
'hata verirse basina ve sonuna koseli parantez ekleyin.
'[kisi adlari tablosu]([adi soyadi]) gibi.
Dim deger
deger = AcilanKutu1.Text
AcilanKutu1.Undo
AcilanKutu1.Requery
Response = acDataErrAdded
'yeni kaydi ben simdi ekledim. hatayi yoksay.
AcilanKutu1.Value = deger
Soru 2;
Modüller bölümünde hazırladığım bir kodu formlar bölümündeki bir form üzerine yerleştirdiğim komut düğmesine tıkladığım zaman çalışmasını nasıl sağlayabilirim. ben bu işlemi; modüller bölümünde kodu açıyorum ve "run" tuşuna basarak yapıyorum. oysa formdaki komut düğmesine tıkladığımda yapması benim işimi kolaylaştıracak. bunun için komut düğmesine hangi kodu yazmam gerekiyor.
cevaplarınızı bekliyorum. saygılarımla