Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   adoda son kaydı bulmak

adoda son kaydı bulmak
aydın3838
Kıdemli Üye >1000

*
Kayıt Tarihi: 16.08.2009
Toplam 209 konu açtı.
Toplam 1.395 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 2 / 1
#1
04-07-2010, 18:37
selamlar
2 adet tablom
1.ÜRÜNALIS
2.ÜRÜNDEPO
form ile ÜRÜNALIS tablosuna ado ile kayıt yapıyorum
ürün adı,alınan firma,ürün miktarı vs devam edip gidiyor
ÜRÜNALIM tablosuna kayıt yapıldıktan sonra
ürünün depo kaydını ÜRÜNDEPO tablosuna kaydetmek için son yapılan kaydın ID sini Bulmam gerekli


altformdaki UrunAlimId ye kayıt yapıldıktan sonra son yapılan kaydın ID sini aldırmam gerekli ama metin kutuları ilişkisiz olduğundan bu mümkün olmuyor

kodlardaki kırmızı alan ile yapmaya çalıştım fakat alt form yenilendiğinde
ilk yapılan kaydın Id sini alıyor

Ado ile nasıl yapabilirim
ÜRÜN ALIŞ kaydı için kullandığım kodlar

Visual Basic
  1. Dim rs As New ADODB.Recordset
  2. rs.Open "Tablo_URUN_ALIM", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  3. rs.AddNew
  4. rs(1) = Me.Metin1   'AlışTarih
  5. rs(2) = Me.AdresId  'Firma İsmi
  6. rs(3) = Me.Metin3   'Cins
  7. rs(4) = Me.Metin4   'Birim
  8. rs(5) = Me.Metin7   'Adet
  9. rs(6) = Me.Metin5   'Birim Fiyat
  10. rs(7) = Me.Metin15  'DepoAdet
  11. rs(8) = Me.Metin14  'DepoBirim
  12. rs(10) = Me.Metin18  'DepoGirişAdet
  13. rs(9) = Me.Metin16  'DepoGirişAdet
  14. rs(11) = Me.Metin17  'AraToplam
  15. rs(12) = Me.Metin13  'SonToplam
  16. rs(13) = Me.Metin6  'Notlar
  17. rs(14) = Me.Metin19 'Açıklama
  18. rs.Update
  19. rs.Close
  20. Form_URUN_ALİM_Liste.Requery
  21.  
  22. 'burası
  23. Me.UrunAlimId = Form_URUN_ALİM_Liste.UrunAlimId 
  24.  
  25. MsgBox "İşlem Tamam", vbInformation, "Sistem Bilgilendirme"
  26. If (MsgBox(Me.TEXT300 & vbCr & vbCr & Me.Metin3.Column(1) & " _
  27. "  Ürün İçin Depo Girişi Yapılsınmı", vbYesNo + vbExclamation, "Sistem Uyarı")) = vbNo Then
  28.     Else
  29. Call DEPO_GİRİS
  30. MsgBox "Depo Kaydı Yapıldı", vbInformation, "Sistem Bilgilendirme"
  31. End If





  Bul
  Alıntı
Bu mesajı beğenenler:
Taruz
Forum Yöneticisi

*
Kayıt Tarihi: 04.03.2008
Toplam 371 konu açtı.
Toplam 7.540 yorum yaptı.
Toplam 236 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2019,
Beğeniler: 56 / 56
#2
04-07-2010, 19:05
Merhaba..

Dmax ya da dlast fonksiyonundan faydalanabilirsiniz..:

Visual Basic
  1. UrunAlimId =dmax("ID","Tablo_URUN_ALIM") 'gibi...


Bulunamayan yerleri bulmak için önce kaybolmak gerekir.
Kaptan Hector Barbossa


SORU SORMA KILAVUZU
Giriş | Sormadan Önce | İlgili Forumu dikkatlice seçin | Anlamlı ve duruma uygun konu başlıkları kullanın | Anlamsız soru cümleleri kurmayın | Açık, dilbilgisi kurallarına uygun ve sözdizimlerine dikkate ederek yazın | Sorunuz sizin için çok acil olsa bile, çok acil diye yazmayın | Sorununuz hakkında tam ve aydınlatıcı iletiler yazın | Amacınızı belirtin | Problemin belirtilerini tanımlayın, kendi tahminlerinizi değil | Sorunuz hakkında açık olun | Nezaket asla yaralamaz ve bazen oldukça yararlıdır | Boyut her şey değildir! | Kabalıkla ilgilenmek | Cevabı E-Posta ile istemeyin | İnsanlardan özel mesajla cevap vermelerini istemeyin | Eğer cevabı anlamadıysanız | Şayet bir cevap alamazsanız | Sorununuz çözüldükten sonra küçük bir not ile bildirin | Sorulmaması gereken türde sorular | İyi ve kötü sorular

Sorulara nasıl doğru düzgün cevap verilir



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
modalı
Access Uzmanları

*
Kayıt Tarihi: 19.06.2009
Toplam 13 konu açtı.
Toplam 690 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR,
Beğeniler: 0 / 4
#3
04-07-2010, 19:15
Sayın aydın3838,

Kayıt Id yi DLast veya DMax fonksiyonlarıyla da direkt olarak tablodan alabilirsiniz.

İyi çalışmalar



  Bul
  Alıntı
Bu mesajı beğenenler:
aydın3838
Kıdemli Üye >1000

*
Kayıt Tarihi: 16.08.2009
Toplam 209 konu açtı.
Toplam 1.395 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 2 / 1
#4
04-07-2010, 19:21
sayın TARUZ
sayın MODALI beylere ayı ayrı teşekkürlerimi
sunarım
saygılar



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-18 [RAPOR] Kayıt Içerisindeki Miktar Alanındaki Sayı Kadar Rapora Ilgili Kaydı Rapora Kopyalama gurolk 12 937 29-07-2024, 12:01
Son Mesaj: dsezgin
  Access Formu üzerinden Sql Server Tabloya Nasıl Veri Kaydı Yapılır karacahil 4 668 15-02-2024, 12:10
Son Mesaj: halily
  Access Son Eklenen Kayıtları Bulmak bilservisci 4 402 16-01-2024, 11:34
Son Mesaj: bilservisci
  [SORGU] Seri Bulmak Ve Her Bir Seriye ıd Vermek 10pele 3 480 25-11-2023, 01:07
Son Mesaj: dsezgin
  [SORGU] Sınıfa Kayıtlı Aktif öğrenci Sayısını Bulmak Dcount Fonksiyonu by_hayalci 2 471 24-08-2023, 08:38
Son Mesaj: by_hayalci
  Listbox'dan Güncelleme Ve Log Kaydı benuva 36 2.273 20-07-2022, 14:32
Son Mesaj: halily
  Duruma Göre Kaydı Yapılan Veya Yapılmayan Metin Kutusu Boş Ise Kaydet Butonu Hata Ve tarkanaykın 2 637 26-04-2022, 23:53
Son Mesaj: tarkanaykın
  [FORM] Formdan Ilişkisiz Metin Kutusu Kaydı anno 2 490 07-01-2022, 11:59
Son Mesaj: anno

Foruma Git:


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