Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
18/01/2019 16:48
Konu Sahibi
U.ALTUN
Yorumlar
7
Okunma
373
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 483
 12.103
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,12:19
Frm_Musteritanitimkarti formunda, ApSite isimli açılan kutunun satır kaynağındaki sorguyu aşağıdaki ile değiştir,

SQL Code
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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



"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

U.ALTUN

U.ALTUN

Aktif Üye

Additional groups:
Üye
84669
Uğ.... Al....
 54
 36
 129
 01/10/2016
0
 Samsun
 
 Ofis 2010 64 Bit
 22/06/2019,17:09
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



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Mükerrer Kaydı Nasıl Önlerim. Oğuz Türkyılmaz 22 680 23/01/2019, 10:06
Son Yorum: Oğuz Türkyılmaz
Çözüldü Açılan Kutuda Kimlik Kaydı Problemi notrino 3 266 26/09/2018, 17:09
Son Yorum: notrino
Çözüldü Sorgu Ve Metin Kutusundan Tabloya veri kaydı raburabu 2 340 23/07/2018, 12:18
Son Yorum: raburabu
Çözüldü Form İçinde Tekrar Kaydı Engellemek ALTANs 15 902 10/07/2018, 21:11
Son Yorum: mehmetdemiral
Çözüldü Mükerrer Tarih Kaydı Hk. serkan1985 6 495 05/06/2018, 12:58
Son Yorum: serkan1985

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.