Sayın.haliliyas Hocam
Eline Koluna Sağlık Süper Olmuş Çok Teşekkür Ederim
Eğer Zahmet olmayacaksa size değeri mesaj kutusuna doğrudan girmesini sağlaya bilirseniz daha iyi olur bizim için
Ama olmazsa da canınız sağolsun
Çok Teşekkür ederim Elleriniz ve Emeğinize Sağlık
Acces Veritabanı Bağlama
sayın @golf2000, Ahmet ve can veritabanlarında yer alan "ekleme sonrası" olayındaki
Private Sub Form_AfterInsert()
If IsNull(DMax("S_No", "tbl_Bırlastır", "kod='" & Me.Kod & "'")) And IsNull(Me.S_No) Then
S_No = InputBox("Lütfen S_No başlangıç sayısını giriniz")
Me.S_No.Locked = False
Me.S_No.SetFocus
Else
Me.S_No = Nz(DMax("S_No", "tbl_Bırlastır", "Kod='" & Me.Kod & "'"), 0) + 1
End If
End Sub
kodu, aşağıdaki şekilde değiştirin Private Sub Form_AfterInsert()
If IsNull(DMax("S_No", "tbl_Bırlastır", "kod='" & Me.Kod & "'")) And IsNull(Me.S_No) Then
10
Me.S_No = InputBox("Lütfen S_No giriniz")
If IsNull(Me.S_No) Then GoTo 10
Else
Me.S_No = Nz(DMax("S_No", "tbl_Bırlastır", "Kod='" & Me.Kod & "'"), 0) + 1
End If
End Sub
Sayın.haliliyas Hocam
şimdi oldu hocam
Tekrar Tekrar Eline Koluna Sağlık Süper Olmuş Çok Teşekkür Ederim
Emeğinize Sağlık
şimdi oldu hocam
Tekrar Tekrar Eline Koluna Sağlık Süper Olmuş Çok Teşekkür Ederim
Emeğinize Sağlık
sayın golf2000 ufak bir hata yapmışım S_no sayısal değer aldığından inputbox a harf girip onaylayınca hata veriyor
kodları aşağıdaki ile değiştirir misiniz?
not: tablo adında küçük " ı " harfi kullanmışsınız , Türkçe karakterler bazen sorun çıkarabildiğinden küçük " i " kullanmanızı öneririm
kodları aşağıdaki ile değiştirir misiniz?
not: tablo adında küçük " ı " harfi kullanmışsınız , Türkçe karakterler bazen sorun çıkarabildiğinden küçük " i " kullanmanızı öneririm
Private Sub Form_AfterInsert()
If IsNull(DMax("S_No", "tbl_Bırlastır", "kod='" & Me.Kod & "'")) And IsNull(Me.S_No) Then
10
S_Nodene = InputBox("Lütfen SAYISAL S_No giriniz!" )
If IsNull(S_Nodene) Or Not IsNumeric(S_Nodene) Then GoTo 10
If Not IsNull(S_Nodene) And IsNumeric(S_Nodene) Then Me.S_No = S_Nodene
Else
Me.S_No = Nz(DMax("S_No", "tbl_Bırlastır", "Kod='" & Me.Kod & "'"), 0) + 1
End If
End Sub
Sayın.haliliyas Hocam
Aynı Access veritabanı içerisinde iki farklı form açtım
Birinci formda Kod bölümü "A"
İkinci formda da Kod bölümü "B"
Vermiş olduğunuz kodu her iki form da da uyguladım çalıştı
Fakat A formunda ilk kayıt yaparken kayıt bitiminde ilk S_No soruyor ilk S_No giriyorum
Ondan sonra takip eden S_No vererek kayıt yapiyor
İkinci formdan kayıt yaptigimda Kod alanına "B" tanimladigimda ilk kayıt bitiyor
İkinci kayıta gectigimde ilk S_No soruyor
Teşekkürler
Aynı Access veritabanı içerisinde iki farklı form açtım
Birinci formda Kod bölümü "A"
İkinci formda da Kod bölümü "B"
Vermiş olduğunuz kodu her iki form da da uyguladım çalıştı
Fakat A formunda ilk kayıt yaparken kayıt bitiminde ilk S_No soruyor ilk S_No giriyorum
Ondan sonra takip eden S_No vererek kayıt yapiyor
İkinci formdan kayıt yaptigimda Kod alanına "B" tanimladigimda ilk kayıt bitiyor
İkinci kayıta gectigimde ilk S_No soruyor
Teşekkürler
Konuyu Okuyanlar: 1 Ziyaretçi