[TABLO] Hata Kodu 3822.eni Satir Kaydedilene Kadar Değer Bu Satıra Kaydedilemez
#1
günaydın arkadaşlar,,,

Private Sub lstsecimler_DblClick(Cancel As Integer)
Dim ctl As Control
Dim FormName, TextValue As String
FormName = Me.TxtFormName.Value
TextValue = Me.TxtTextName.Value


DoCmd.OpenForm (FormName)
'Forms.FormName.SetFocus
Forms.Item(FormName).SetFocus
Forms.Item(FormName).Controls(Me.TxtTextName.Value).SetFocus
Call YeniKayit

Forms.Item(FormName).Controls(Me.TxtTextName.Value).Value = Me.TxtSeciliUrun.Value
'Call hide
DoCmd.Close acForm, "frm_Urun_Aktar"

End Sub


bir formdan diğer forma veri aktarmaya çalışıyorum....hata kodu: 3822

yeni satir kaydedilene kadar değer bu satıra kaydedilemez...önce satırı kaydedin sonra değeri eklemeyi deneyin diye bir hata...anlamadım...

formda 3 ayrı tablodan alanları aldım...formun kayıt kaynağı olarak ilişkilendirilmiş olan bu 3 tablonun sorgusu var....
denetim kaynağı olmayan bir textboxa aktarırken sıkıntı yok....

yardımlarınız için teşekkürler saygıdeğer hocalarım....



  Alıntı
Bu mesajı beğenenler:
#2
.value dendiğinde metin kutusu içindeki veriyi değerlendirir!

Forms.Item(FormName).Controls(Me.TxtTextName.Value).Value = Me.TxtSeciliUrun.Value

FormName ==========> form adi

Me.TxtTextName.Value ==> formun kayıt kaynağında yer alan sütun adi midir?



  Alıntı
Bu mesajı beğenenler:
#3
Sn. Dsezgin hocam;

Aynen Öyle Hocam....

FormName ==========> form adi(bilgilerin aktarılacağı formun)

Me.TxtTextName.Value ==> formun kayıt kaynağında yer alan sütun adi midir?(bilginin aktarılacağı textboxın ve alanın adı)



  Alıntı
Bu mesajı beğenenler:
#4
Form kayıt kaynağındaki tablonun bir başka tablo ile ilişkileri olup, veri girişinin zorunlu olması sorun olabilir.



  Alıntı
Bu mesajı beğenenler:
#5
teşekkür ederim hocam,

bu kısmı bir forma 3 alt form ekleyerek çözüyorum...şimdiki problem ise şu:=

'****************
'Forms!Frm_UrunDefault_Connections.Form!AltFrm_InCont!TxtInContDevice = Me.TxtSeciliUrun.Value
'****************

bu komut ile bir formdan başka bir formun alt formuna bilgi gönderiyorum... ancak kırmızı alanı bir değişkene atayarak halledebileceğim bir komuta ihtiyacım var...


örnek:
aktarılacak formda butona tıkladığım zaman 
objectname="Forms!Frm_UrunDefault_Connections.Form!AltFrm_InCont!TxtInContDevice"
docmd.openform(aktaranform)
aktaranform.textbox.value= objectname


*******aktaran formda listbox a tıkladığımda
dim object as string

object= textbox.value
docmd.openform(aktarılacakform)
forms.item(object)=seciliurun.value

gibi...
ben anlatamasam da sen anladın hocam...
aktaran formdaki komutun(forms.item(object)=seciliurun.value) doğru yazılımına ihtiyacım var.vesselam...

şimdiden teşekkürler hocam...



  Alıntı
Bu mesajı beğenenler:
#6
Aktarilacak verinin tablodaki hangi kaydın sütununa islenecek? Form acip, form nesnesine kayda atama yerine tablo verisini bulup atama yapılsa daha uygun olur.
ID             VERI
---            ------
1               .....
2               .....
3               .....

DAO veya ADO ile kaydı bulup, sütuna atama yapılsa daha iyi olur.

Buton Tiklama olay yordamina
call GUNCELLEME(me.ID)

Visual Basic
  1. Sub GUNCELLEME(KayitID as Long)
  2. Dim Kyt as recordset
  3. Set Kyt=currentdb.openrecordset("SELECT VERI FROM FormTabloAdi WHERE (((ID)=" & KayitID & "))")
  4. if Kyt.recordcount=0 then exit sub
  5. kyt.edit
  6. kyt!VERI=seciliurun.value
  7. Kyt.update
  8. kyt.close: set kyt=nothing
  9. end sub



Örnek dosyanızı eklerseniz daha isabetli öneri yapabilirim.


Eklenti Dosyaları
.rar   rerdem1903.rar (Boyut: 44,96 KB / İndirilme: 24)



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


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Tabloya Değer Kümesinden Veri Seçerek Veri Girişi Saglanması sevincili 2 110 26-03-2024, 20:07
Son Mesaj: sevincili
  Satıra Sığmayan Olursa Metni Kaydır sevvalkalay 3 110 13-03-2024, 18:09
Son Mesaj: dsezgin
  [FONKSiYON] Fonksiyonda Hata zimbit 1 100 12-02-2024, 18:52
Son Mesaj: dsezgin
  Açılır Kutu Değerine Göre Tablo2'ye Değer Yazsın Veya Satır Eklesin. ŞabanTR 11 299 24-12-2023, 14:38
Son Mesaj: dsezgin
  [VBA] Dosya Yolu Boş Ise Hata Alıyorum serdem48 4 118 26-10-2023, 14:11
Son Mesaj: serdem48
  Sorgu Işlemi Sonunda Veri Yoksa Bulunduğu Hücreye 0 Olarak Otomatik Değer Verme ofbayoglu61 12 405 21-07-2023, 10:09
Son Mesaj: onur_can
  Açılan Kutuda Değiştirilene Kadar Verinin Sabitlenmesi croww 4 195 07-07-2023, 18:00
Son Mesaj: croww
  Metin Kutusu Boş Sa Diğer Metin Kutusundan Değer Alması özgülapt 4 261 29-05-2023, 18:01
Son Mesaj: feraz

Foruma Git:


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