AccessTr.neT
İl İlçe Çalışmasından Formdan Tabloya Veri Ekleme - 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ığı: İl İlçe Çalışmasından Formdan Tabloya Veri Ekleme (/konu-il-ilce-calismasindan-formdan-tabloya-veri-ekleme.html)

Sayfalar: 1 2 3

RE: İl İlçe Çalışmasından Formdan Tabloya Veri Ekleme - SeferŞANLI - 13/05/2020

Teşekkür ederim. Altform mantığıyla oluşmuş. Teşekkürler

RE: İl İlçe Çalışmasından Formdan Tabloya Veri Ekleme - ozanakkaya - 13/05/2020

(13/05/2020, 16:13)SeferŞANLI yazdı: Teşekkür ederim. Altform mantığıyla oluşmuş. Teşekkürler

4. mesajdaki örneği incelememişmiydiniz?

RE: İl İlçe Çalışmasından Formdan Tabloya Veri Ekleme - SeferŞANLI - 13/05/2020

Hayır. Ama siz uyarınca inceledim. Elinize sağlık. Combobox yardımı da güzel olmuş. Teşekkürler 
( Form.AllowAdditions = True)
bu nedir? Ne işe yarar

RE: İl İlçe Çalışmasından Formdan Tabloya Veri Ekleme - ozanakkaya - 13/05/2020

Formun açıldığında olayındaki
Form.AllowAdditions = False

kodu ile form veri eklemeye kapalı. Ekle butonundaki true kodu ile tekrar aktif hale geliyor.

RE: İl İlçe Çalışmasından Formdan Tabloya Veri Ekleme - SeferŞANLI - 13/05/2020

strSQL = "SELECT TOP 1 tbl_ilceler.ilceno FROM tbl_ilceler WHERE ((Not (tbl_ilceler.ilceno) = 9999)) ORDER BY tbl_ilceler.ilceno DESC;"
koyulaştırdığım yerleri anlamadım.
TOP 1 kodu ve neden 9999 eşitleme
(13/05/2020, 16:45)ozanakkaya yazdı: Formun açıldığında olayındaki
Form.AllowAdditions = False

kodu ile form veri eklemeye kapalı. Ekle butonundaki true kodu ile tekrar aktif hale geliyor.
Tamamdır. Bu kısmı anladım.

RE: İl İlçe Çalışmasından Formdan Tabloya Veri Ekleme - ozanakkaya - 19/05/2020

(13/05/2020, 16:45)SeferŞANLI yazdı: strSQL = "SELECT TOP 1 tbl_ilceler.ilceno FROM tbl_ilceler WHERE ((Not (tbl_ilceler.ilceno) = 9999)) ORDER BY tbl_ilceler.ilceno DESC;"
koyulaştırdığım yerleri anlamadım.


Kodun tamamı şu şekilde.

Dim strSQL As String

Dim rstkayit As ADODB.Recordset

strSQL = "SELECT TOP 1 tbl_ilceler.ilceno FROM tbl_ilceler WHERE ((Not (tbl_ilceler.ilceno) = 9999)) ORDER BY tbl_ilceler.ilceno DESC;"

Set rstkayit = New ADODB.Recordset

rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic







If IsNull(Me.ilceno) Then

Me.ilceno = rstkayit(0) + 1

End If

ilçe adı güncelleştiğinde, ilceno metin kutusu boş ise , en büyük ilceno değerinden 1 fazlasını eklemesi için bu şekilde yazıldı. Ölçüt kısmındaki 9999'un sebebi, yurtdışı için 9999 verisi var. Bu kod sorguda 9999 harici diğer sayılardan en büyüğünü listelemeye yarıyor.