Frm_Musteritanitimkarti formunda, ApSite isimli açılan kutunun satır kaynağındaki sorguyu aşağıdaki ile değiştir,

SELECT Tbl_Aptsite.aptadi, Tbl_Aptsite.a_id, Tbl_Aptsite.aptkodu, Tbl_Aptsite.c_id, Tbl_Aptsite.s_id FROM Tbl_Aptsite WHERE (((Tbl_Aptsite.c_id) Like "*" & [Formlar]![Frm_Musteritanitimkarti]![Cadde] & "*")) OR (((Tbl_Aptsite.c_id) Like "*" & [Formlar]![Frm_Musteritanitimkarti]![Sokak] & "*"));

Aynı açılan kutunun çift tıklandığında olayındaki kodu aşağıdaki ile değiştir.

Dim GCaddeSokak As Integer



If IsNull(Me.Cadde) And IsNull(Me.Sokak) Then

MsgBox ("cadde sokak seç")

Exit Sub

ElseIf Len(Me.Cadde) > 0 And Len(Me.Sokak) = 0 Then



GCaddeSokak = Me.Cadde.Column(0)



ElseIf Len(Me.Cadde) = 0 And Len(Me.Sokak) > 0 Then



GCaddeSokak = Me.Sokak.Column(0)



ElseIf Len(Me.Cadde) > 0 And Len(Me.Sokak) > 0 Then



GCaddeSokak = Me.Sokak.Column(0)





End If



DoCmd.OpenForm "Frm_AptEkle", , , , , , GCaddeSokak