Merhaba hocalarım.
Biliyorum cevaplanmış sorulara aktarıldı ancak. Bu kodları diğer formlarım da kullandığımda geri alma işlemi yapmıyor. aşağıdaki kodda kırmızı olan yerleri değişiklik yapacağım formların ismi ile değiştirdim. Örnek teki gibi alt formlara da gerekli ekleri yaptım. Ancak yeni formda gerekli geri almaları yapmadı.
Çalışan kod
Dim ctl As Access.Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox And ctl.Tag = 1 Then
ctl.Value = EskiVeriler.Item(ctl.Name)
End If
Next
Set ctl = Nothing
Call Me.FATURADETAY.Form.EskiVeri
DoCmd.Close acForm, "alısfatura"
Cancel = True
DoCmd.Close
Else
Cancel = True
DoCmd.Close
End If
Yeni forma eklediğim kod
Dim ctl As Access.Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox And ctl.Tag = 1 Then
ctl.Value = EskiVeriler.Item(ctl.Name)
End If
Next
Set ctl = Nothing
Call Me.HAREKETDETAY.Form.EskiVeri
DoCmd.Close acForm, "HAREKETLER"
Cancel = True
DoCmd.Close
Else
Cancel = True
DoCmd.Close
End If
End If
'Hata:
End Sub
Kaydetmeden kapatma işlemini nasıl gerçekleştirebilirim?
Konuyu Okuyanlar: 1 Ziyaretçi