"F_02_TeklifDetayAltForm" formundaki "Marka" metin kutusunun odaklanma olayına
Private Sub Marka_GotFocus()
If IsNull(Me.Marka) And Nz(DCount("*", "T_02_TeklifDetay", "TeklifVerilenFirma='" & Me.TeklifVerilenFirma & "'")) <> 0 Then
Me.Marka = DLast("marka", "T_02_teklifdetay", "Teklifverilenfirma='" & Me.TeklifVerilenFirma & "'")
End If
End Sub
"F_02_TeklifDetayAltForm" formundaki "DovizCinsi" metin kutusunun odaklanma olayına
Private Sub DovizCinsi_GotFocus()
If IsNull(Me.DovizCinsi) And Nz(DCount("*", "T_02_TeklifDetay", "TeklifVerilenFirma='" & Me.TeklifVerilenFirma & "'")) <> 0 Then
Me.DovizCinsi = DLast("DovizCinsi", "T_02_teklifdetay", "Teklifverilenfirma='" & Me.TeklifVerilenFirma & "'")
End If
End Sub