Skip to main content

AccessTr.neT


Formda Açılan Kutudan iki Tabloya Veri Girişi

Formda Açılan Kutudan iki Tabloya Veri Girişi

Çözüldü #1
Form1 deki tabloda kurban küpe no açılır kutudan seçeceğim değeri, Hisse adedi metin kutusunda bulunan rakam kadar, Hisse adet çoğalt butonuna bastığımda, Burdaki bilgileri kurban tablosuna ve ana tabloya işlemesi.

Örnek: Ana tabloya formdaki bilgiler geliyor. sadece ilaveten  kurban tablosuna küpe no suna göre, sat_hisse_adet sütununa kaç adet olduğu yazması bunuda hisse adet çoğalt butonu sayısına göre;
gelmesini nasıl yapabiliriz. saygılarımla
           
.rar acces2007.rar (Dosya Boyutu: 49 KB | İndirme Sayısı: 15)
53rize, 08-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
sayın 53rize,

bahsettiğiniz talebinize yönelik olarak;
site içerisindeki arama sayfasında,tablodan tabloya veri aktarma veya kaydetme hakkında gerekli araştırmalarda bulunduğunuz takdirde,içeriklerinde örnekler ve bilgilendirmeler barındıran konuları tedarik edebilir ve incelemeleriniz neticesinde sorununuza çözümler bulabilirsiniz.

son olarak,
INSERT INTO...SELECT Sql komut kullanımına dair araştırmada da bulunarak,sorunuza çözüm bulabilirsiniz.

aşağıda;araştırmanıza örnek olması adına iki adet konu mevcut,bu Sql sorgusunun kullanımına dair.inceleyebilirsiniz.bilginize.

Arşiv Oluşturmak,Verilerin Arşive Gönderilmesi-Mevcut Tablodan Silinmesi??

Formdan Forma Veri Aktarma

iyi çalışmalar,
saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
Sayın atoz112, Komut358 aşağıdaki kodu ekledim. kurban tablosuna ekleme yapmadı. hata da vermiyor. Acaba nerede hata yapıyorum. Bu kısmı iki gündür araştırmama rağmen aşamadım. yardımlarınızı bekliyorum.

Private Sub Komut358_KeyUp(KeyCode As Integer, Shift As Integer)
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO kurban_tablo ([krbn_küpe_no],[Sat_hisse_adet]) VALUES ('" & Me.Küpe_no & "','" & Me.adet & "')"
DoCmd.SetWarnings True
End Sub
53rize, 08-05-2010 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 16/03/2015, 17:55, Düzenleyen: 53rize.
Cevapla
#4
sayın 53rize,

bahsettiğiniz talebinize yönelik yapılabilecek açıklamalar şunlar olabilir;(elbette ki,uygulamanız incelenemediğinden dolayı tahmini olarak,bu belirttiklerinize dair geçerlidir)

1) ilgili Sql komutu içerisinde,eğer tablodaki alan adlarının veri türleri hatalı ise;komutta yer alan tek tırnak/çift tırnak kullanımlarını kontrol edebilirsiniz.eğer veri türü metin ise tek tırnak "'" aralarına formdaki denetimi dahil etmelisiniz.

örnek;
VALUES ('" & Me.Küpe_no & "',......." gibi.eğer veri türü sayı ise,tek tırnak olmaksızın kullanmalısınız;

örnek;
VALUES (" & Me.Küpe_no & ",......." gibi

2) neden KeyUp (tuş bırakıldığında) olay yordamına böyle bir kodlamayı dahil etmeniz gerektiğini açıklamanız yerinde olacaktır.bu tabloya ekleme kodumu,direkt bir butonun Tıklandığında Olay Yordamına eklemeniz daha verimli olacaktır.

3)

Alıntı:"...kurban tablosuna ekleme yapmadı. hata da vermiyor..."

ifadeniz için de geçerli bir açıklama olması adına,bir KeyCode tanımlamasında bulunduktan sonra,bu Sql komutunu uygulamanız gerekecektir.çünkü;alacağı KeyCode ve Shift parametrelerine göre bir davranışta bulunmayı beklemektedir.diğer bir anlatım ile;

KeyCode ile basılan tuşun Ascii kodunu baz alıp aktarmayı sağlar,
Shift ile de bu olay gerçekleştiğinde Shift, Alt ve Ctrl tuşlarından herhangi birinin basılı olup olmadığını kontrol eder.

son olarak,eğer sizin için gerekli değilse,yön tuşları olarak değil de direkt butonun Tıklandığında Olay Yordamına dahil etmeniz daha verimli kullanımı sağlar.bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#5
(16/03/2015, 18:39)atoz112 yazdı: sayın 53rize,

bahsettiğiniz talebinize yönelik yapılabilecek açıklamalar şunlar olabilir;(elbette ki,uygulamanız incelenemediğinden dolayı tahmini olarak,bu belirttiklerinize dair geçerlidir)

1) ilgili Sql komutu içerisinde,eğer tablodaki alan adlarının veri türleri hatalı ise;komutta yer alan tek tırnak/çift tırnak kullanımlarını kontrol edebilirsiniz.eğer veri türü metin ise tek tırnak "'" aralarına formdaki denetimi dahil etmelisiniz.

örnek;
VALUES ('" & Me.Küpe_no & "',......." gibi.eğer veri türü sayı ise,tek tırnak olmaksızın kullanmalısınız;

örnek;
VALUES (" & Me.Küpe_no & ",......." gibi

2) neden KeyUp (tuş bırakıldığında) olay yordamına böyle bir kodlamayı dahil etmeniz gerektiğini açıklamanız yerinde olacaktır.bu tabloya ekleme kodumu,direkt bir butonun Tıklandığında Olay Yordamına eklemeniz daha verimli olacaktır.

3)


Alıntı:"...kurban tablosuna ekleme yapmadı. hata da vermiyor..."

ifadeniz için de geçerli bir açıklama olması adına,bir KeyCode tanımlamasında bulunduktan sonra,bu Sql komutunu uygulamanız gerekecektir.çünkü;alacağı KeyCode ve Shift parametrelerine göre bir davranışta bulunmayı beklemektedir.diğer bir anlatım ile;

KeyCode ile basılan tuşun Ascii kodunu baz alıp aktarmayı sağlar,
Shift ile de bu olay gerçekleştiğinde Shift, Alt ve Ctrl tuşlarından herhangi birinin basılı olup olmadığını kontrol eder.

son olarak,eğer sizin için gerekli değilse,yön tuşları olarak değil de direkt butonun Tıklandığında Olay Yordamına dahil etmeniz daha verimli kullanımı sağlar.bilginize...iyi çalışmalar,saygılar.
53rize, 08-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#6
Sayın atoz112, Çok özür dileyerekten başlıyorum. Aşağıdaki kodları sizin istediğiniz gibi buton tıklandığında olayına kodları yazdım, değerler sayı olduğu için tek tırnağıda kaldırdım. yinede aktarım yapmadı. Birde Acces çalışma sayfasınıda 2007 olarak kaydettim. herhalde açabilirsiniz. Tıkandığım bu sorunuda aşmama yardım ederseniz çok memnun olurum.Saygılarımla.

Private Sub Komut358_Click()

Dim i, e As Integer
i = Me.adet
For e = 0 To i - 2
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70
Next e


DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO kurban_tablo([krbn_küpe_no],[Sat_hisse_adet]) VALUES (" & Me.Sat_hisse_adet & "," & Me.adet & ")"
DoCmd.SetWarnings True


On Error GoTo Err_Form_Yenile_Click

DoCmd.RunCommand acCmdRefresh

Exit_Form_Yenile_Click:
Exit Sub

Err_Form_Yenile_Click:
MsgBox Err.Description
Resume Exit_Form_Yenile_Click

End Sub
53rize, 08-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task