13-01-2022, 05:30
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....
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....