merhaba,

yardımcı olurmusunuz? Listeden kayıdı alt forma aktarıyorum ancak yeni kayıt açmıyor...

Private Sub Liste106_DblClick(Cancel As Integer)
Forms!Siparis![FRM_PHDETAY].Form.URUNKODU = Liste106.Column(1)
Forms!Siparis![FRM_PHDETAY].Form.URUNTANIM = Liste106.Column(2)
'Forms!Siparis![FRM_PHDETAY].Form.Birim = Liste106.Column(2)

Dim rs As Recordset
Dim db As Database
Set db = DBEngine.Workspaces(0).Databases(0)
Set rs = db.OpenRecordset("T_PHDETAY")
rs.AddNew

rs!IDPLTHSPNO = Me.Metin108
rs.Close

Me.[FRM_PHDETAY].SetFocus
'DoCmd.GoToRecord , , acNext
'DoCmd.GoToControl "[URUNKODU]"

Me.Metin108.SetFocus
End Sub