+- 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ığı: Formda Açılan Kutudan iki Tabloya Veri Girişi (/konu-formda-acilan-kutudan-iki-tabloya-veri-girisi.html)
Sayfalar:
1
2
Formda Açılan Kutudan iki Tabloya Veri Girişi - 53rize - 16/03/2015
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
Cvp: Formda Açılan Kutudan iki Tabloya Veri Girişi - atoz112 - 16/03/2015
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.
Cvp: Formda Açılan Kutudan iki Tabloya Veri Girişi - 53rize - 16/03/2015
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
Cvp: Formda Açılan Kutudan iki Tabloya Veri Girişi - atoz112 - 16/03/2015
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.
Cvp: Formda Açılan Kutudan iki Tabloya Veri Girişi - 53rize - 17/03/2015
(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.
Cvp: Formda Açılan Kutudan iki Tabloya Veri Girişi - 53rize - 17/03/2015
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