Acces Veritabanı Bağlama - Baskı Önizleme

Acces Veritabanı Bağlama - 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ığı: Acces Veritabanı Bağlama (/konu-acces-veritabani-baglama.html)

Sayfalar: 1 2 3 4 5 6 7 8 9

Cvp: Acces Veritabanı Bağlama - golf2000 - 07/12/2018

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

Cvp: Acces Veritabanı Bağlama - berduş - 07/12/2018

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

Cvp: Acces Veritabanı Bağlama - golf2000 - 08/12/2018

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

Cvp: Acces Veritabanı Bağlama - berduş - 08/12/2018

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

Cvp: Acces Veritabanı Bağlama - golf2000 - 08/12/2018

Sayın.haliliyas Hocam

Çok Teşekkür Ederim Sağolun Değiştirdirm
Emeğinize Sağlık

Cvp: Acces Veritabanı Bağlama - golf2000 - 09/12/2018

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