Caddelerde Ait Apt.kaydı - Baskı Önizleme

Caddelerde Ait Apt.kaydı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Caddelerde Ait Apt.kaydı (/konu-caddelerde-ait-apt-kaydi.html)

Sayfalar: 1 2

Cvp: Caddelerde Ait Apt.kaydı - ozanakkaya - 21/01/2019

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

Cvp: Caddelerde Ait Apt.kaydı - U.ALTUN - 21/01/2019

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