Toplu veri gönderme
#1
Merhaba arkadaşlar,
Ekleyecegim tablo 5 alanlı,
alacağım tablo 3 alanlı,
2.alana formdaki 1 Metin kutusunun degerini göndermek istedim olumuyor
0 degeri ekleyince gidiyor
metin kutusunu nasıl koda enpoze edecem bulamadım.
Dim akd As ADODB.Connection, i As Integer
Set akd = Application.CurrentProject.Connection
akd.Execute " insert into Stok_Olustur(Katagori,Model,Tanimlama,Aciklamalar,Siralama) select Katagori," & Me.md & ",Tanimlama,0,Siralama from KategoriTanimlama where Katagori='" & Me.ktg & "'"
akd.Execute "delete * from Stok_Olustur where IsNull(Katagori) "
akd.Close
Set akd = Nothing
Me.Requery
metin kutusunun adı Me.md
bunun yerine 1 eklersem çalışıyor, yani sayısal degerleri gönderiyor,
metinsel degerlerde hata veriyor
ama o alana bu metin kutusundaki degeri atamam gerek.



  Alıntı
Bu mesajı beğenenler:
#2
Merhaba..

Bu şekilde deneyiniz..:

Visual Basic
  1. Dim akd As ADODB.Connection ', i As Integer
  2. Dim deger, kriter
  3. deger= Me.md
  4. kriter = Me.ktg
  5.  
  6. Set akd = Application.CurrentProject.Connection
  7. akd.Execute "insert into Stok_Olustur(Katagori,Model,Tanimlama,Aciklamalar,Siralama)" _
  8. & " select Katagori," & deger & ",Tanimlama,0,Siralama from KategoriTanimlama where Katagori='" & kriter & "'"
  9. akd.Execute "delete * from Stok_Olustur where IsNull(Katagori) "
  10. akd.Close
  11. Set akd = Nothing
  12. Me.Requery





  Alıntı
Bu mesajı beğenenler:
#3
Yine aynı sayın taruz,
metinsel degerleri girmiyor,
sayısal degerleri giriyor,
yalnız, access2007 kulanıyorum, ondan olabilirmi?
kod uyumsuzluğu olabilirmi acaba?



  Alıntı
Bu mesajı beğenenler:
#4
Sayın akd27;
Belki önemsiz ama sadece bir kontrol eder misiniz? Md isimli metin kutusunun Özelliklerinde biçim altmenüsünde "biçim" kısmının karşısında "Genel Sayı" olarak mı ifade edilmiş acaba?



  Alıntı
Bu mesajı beğenenler:
#5
hayır boş orası



  Alıntı
Bu mesajı beğenenler:
#6
örnek proğramı ekliyorum arkadaşlar.


Eklenti Dosyaları
.rar   AKD-2007.rar (Boyut: 58,45 KB / İndirilme: 82)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Sorgudaki Bilgileri Otomatik Tek Tek Mail Gönderme cirdakc 3 445 08-11-2024, 21:40
Son Mesaj: dsezgin
  Ilgili Raporu Mail Gönderme Mtaner 6 1.490 21-05-2024, 07:09
Son Mesaj: dsezgin
  Acceste Liste Kutusundan Seçilen Veriyi Metin Kutusuna Gönderme Pasham 24 1.437 04-04-2024, 01:18
Son Mesaj: halily
  Etiket Isimlerini Toplu Değiştirme hedefkaya 1 342 24-10-2023, 21:06
Son Mesaj: dsezgin
  Toplu .csv, .xlsx, .xls, .xml Dosya Aktarımı Yapmak adnnfrm 2 575 22-06-2023, 19:04
Son Mesaj: dsezgin
  [VBA] Mail Ile Tablo Ya Da Sorgu Gönderme benuva 5 591 17-06-2023, 12:18
Son Mesaj: benuva
access-sql-18 [VBA] Tabloda Bulunan Ekleri Toplu şekilde Dışarı çıkarmak BeyTor 2 409 01-05-2023, 19:16
Son Mesaj: BeyTor
  Toplu Taksitlendirme Işleminde Her Taksit Için Tabloya Ayrı Kayıt Nasıl Yapabilirim. OĞUZ TÜRKYILMAZ 10 1.198 12-03-2023, 21:18
Son Mesaj: OĞUZ TÜRKYILMAZ

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi