merhaba sayın akdemir1,
açıklamada bahsi geçen husus odaklanmadır.yani,
.SetFocus
ifadesidir.bu ifade ile,form üzerinde imlecin istenilen alanda bulunması sağlanmaktadır.bu odaklanmayı,form üzerinde istenilen yere uygulama konusunda sorun yoktur.hatta,yukarıdaki bir önceki örnek anlatımda bahsettiğim
me.imlecinolmasiniistediginiztextboxadi.SetFocus
yerine,
DoCmd.GoToControl "[imlecinolmasiniistediginizalanadi]"
olarak da yazılabilir.aynı sonucu verir.
iyi çalışmalar,
saygılar.
sürekli form açıldığında imlecin yeni kayıtta olması
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
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
sn. yavuzkirec63, örnek uygulama ekleyerek yeni konu açınız.
Konuyu Okuyanlar: 1 Ziyaretçi