Skip to main content

AccessTr.neT


Acces Veritabanı Bağlama

Acces Veritabanı Bağlama

#25
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 
Cevapla
#26
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
Cevapla
#27
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 
Cevapla
#28
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

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
Cevapla
#29
Sayın.haliliyas Hocam 

Çok Teşekkür Ederim Sağolun Değiştirdirm
Emeğinize Sağlık
Cevapla
#30
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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task