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