Skip to main content

#EvdeKal


Her Yeni Kayıta Bastığımızda Sayı Verme Sorunu.

Her Yeni Kayıta Bastığımızda Sayı Verme Sorunu.

Çözüldü #1
Merhaba arkadaşlar ekteki projeme klasör no yazan kısım otomatik geliyor. Benim sorunum ise yeni kayıt a basıp klasör no tıkladığımda ve tekrar yeni kayıt a bastığımda sürekli yeni sayı vermesi. Böyle böyle her yaptığımda kaydet e basmadan kaydediyor ve yeni sayı veriyor. Ben bunu düzeltmek için yeni kayıt butonuna bir kod yazdım ama bu seferde yeni kayıt butonu hiç işlemiyor. Yardımcı olursanız çok sevinirim.
.rar denetim2.rar (Dosya Boyutu: 40,74 KB | İndirme Sayısı: 4)
Cevapla
#2

Visual Basic Code
If Me.NewRecord = True Then
Me.Undo
End If

Cevapla
#3
@"haliliyas"'ın cevabına ek olarak

Visual Basic Code
If Me.Dirty = True Then
    If MsgBox("Değişiklikler kaydedilsin mi?", vbCritical + vbYesNo + vbDefaultButton1, "UYARI") = vbYes Then
        DoCmd.GoToRecord , , acNewRec
    Else
        Me.Undo
    End If
Else
    DoCmd.GoToRecord , , acNewRec
End If


şeklinde kod kullanılabilir.

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#4
(14/06/2019 18:06)haliliyas Adlı Kullanıcıdan Alıntı:

Visual Basic Code
If Me.NewRecord = True Then
Me.Undo
End If


hocam bu kodu nereye yazacağız? yeni kayıt butonuna yazıyorum çalışmıyor.
Cevapla
#5
(14/06/2019 18:15)ozanakkaya Adlı Kullanıcıdan Alıntı: @"haliliyas"'ın cevabına ek olarak

Visual Basic Code
If Me.Dirty = True Then
    If MsgBox("Değişiklikler kaydedilsin mi?", vbCritical + vbYesNo + vbDefaultButton1, "UYARI") = vbYes Then
        DoCmd.GoToRecord , , acNewRec
    Else
        Me.Undo
    End If
Else
    DoCmd.GoToRecord , , acNewRec
End If


şeklinde kod kullanılabilir.


bu kodu yazdığımda hayır a bassam bile sayı atıyor. bana yeni kayıta bastıktan sonra kaydet e basmadığımız sürece yeni kayda geçmeyecek bir kod lazım.
Cevapla
#6
isterseniz alanları bağımsız yaparsınız ve sadece kaydet dediğinizde tabloya ekleyen bir yapı kullanabilirsiniz.
ama öbür türlü olduğunda "esc" ye bastığınızda bile sayı sürekli artar diye biliyorum
mesela doğrudan tabloyu açıp 1 harf girip "esc" bastığınızda bile sayı artıyor.

Visual Basic Code
Dim Rs As New ADODB.Recordset
Dim SqlEkle As String
SqlEkle = "select * from denetim"
Rs.Open SqlEkle, CurrentProject.Connection, adOpenKeyset, adLockOptimistic  

Rs.AddNew
Rs!klasorno = Me.klasorno
Rs!dosyano = Me.dosyano 
'diğer alan adları ve metin kutuları.
.
.
Rs.Update
Rs.Close: Set Rs = Nothing
' buraya da tüm metin kutularını boşaltacak kod yazılabilir
MsgBox "Kaydetme İşlemi tamamlandı"

Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da