Skip to main content

AccessTr.neT


İl İlçe Çalışmasından Formdan Tabloya Veri Ekleme

İl İlçe Çalışmasından Formdan Tabloya Veri Ekleme

#7
Teşekkür ederim. Altform mantığıyla oluşmuş. Teşekkürler
Cevapla
#8
(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?
Cevapla
#9
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
Cevapla
#10
Formun açıldığında olayındaki
Form.AllowAdditions = False

kodu ile form veri eklemeye kapalı. Ekle butonundaki true kodu ile tekrar aktif hale geliyor.
Cevapla
#11
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.
Son Düzenleme: 13/05/2020, 16:47, Düzenleyen: SeferŞANLI.
Cevapla
#12
(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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da