Caddelerde Ait Apt.kaydı

1 2
21/01/2019, 17:22

ozanakkaya

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
21/01/2019, 18:00

U.ALTUN

ozan hoca yeni kodları denedim fakat değişen bir şey olmadı isterseniz denediğim formu yüklüyorum sizin de denemeniz için
https://1drv.ms/u/s!AvU6TsLze1MlhjF0mbOPA8qqt4JP
1 2