Skip to main content

AccessTr.neT


Tablo Boşken İlk Kayıtı Alta Atma Problemi.

Tablo Boşken İlk Kayıtı Alta Atma Problemi.

Çözüldü #1
Arkadaşlar eklediğim programda ekle butonuna bastığımda tbl_karar tablosundan karar_no alanındaki değeri saydırıp bir fazlasıyla karar numarası oluşturuyorum. Yalnız ekle butonuna basıp verileri girip kaydet butonuna basınca, tbl_karar tablosunun ilk kaydı alt satırına yapıyor. Hatam nerede. Bunu sadece hiç kayıt yokken yapıyor.

Dim yil, ay, gn As Integer
Dim d1 As Variant
d1 = Nz(DLookup("yenikararsay", "Srg_karar_say"), 0)
If d1 = 0 Then
Me.txtkararno = Format(Date, "yymmdd") & "00001"
Else
Me.txtkararno = Format(Date, "yymmdd") & Dlookup ("yenikararsay", "Srg_karar_say")
End If

karar numara üretme kodu,

btnekle.Enabled = False
btnKaydet.Enabled = True
btnGuncelle.Enabled = False
btnSil.Enabled = False
btnAra.Enabled = False
btnVazgec.Enabled = True
btnKapat.Enabled = True
DoCmd.GoToRecord , , acNewRec

''Me.txtbaskan = Dlookup ("[disiplinkurulubaskani]", "tbl_sabitveriler")
''Me.txtuye1 = Dlookup ("[birinciasiluye]", "tbl_sabitveriler")
'Me.txtuye2 = Dlookup ("[ikinciasiluye]", "tbl_sabitveriler")
yeni_kayit

ekle butonu kodları
.rar kurultoplantı sonçalışmam.rar (Dosya Boyutu: 90,38 KB | İndirme Sayısı: 2)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Tablo Boşken İlk Kayıtı Alta Atma Problemi. - Yazar: SeferŞANLI - 07/04/2020, 17:17
Task