Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
14/06/2019 17:46
Konu Sahibi
prestij06
Yorumlar
7
Okunma
371
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
prestij06

prestij06

Aktif Üye
64826
 33
 17
 48
 11/06/2014
3
 -
 
 -
 06/08/2019,10:11
Çözüldü 
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.




berduş

berduş

Uzman
65596
ha....
 29
 1.399
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
 Bugün,12:01

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



...........
ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.135
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,18:10
@"haliliyas"'ın cevabına ek olarak

Visual Basic Code
1
2
3
4
5
6
7
8
9
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. 

prestij06

prestij06

Aktif Üye
64826
 33
 17
 48
 11/06/2014
3
 -
 
 -
 06/08/2019,10:11
(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.




...........
prestij06

prestij06

Aktif Üye
64826
 33
 17
 48
 11/06/2014
3
 -
 
 -
 06/08/2019,10:11
(14/06/2019 18:15)ozanakkaya Adlı Kullanıcıdan Alıntı: @"haliliyas"'ın cevabına ek olarak

Visual Basic Code
1
2
3
4
5
6
7
8
9
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.



berduş

berduş

Uzman
65596
ha....
 29
 1.399
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
 Bugün,12:01
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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ı"



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Forma Bağlı Form Kayıt Sorunu dioxi 7 227 16/08/2019, 06:55
Son Yorum: dioxi
Çözüldü Seçeneğe Bağlı Concatrelated Uygulaması Sorunu dioxi 8 296 06/08/2019, 18:11
Son Yorum: berduş
Çözüldü İki Tarih Arası Sorgulma Sorunu HORZUM 4 421 05/07/2019, 19:25
Son Yorum: berduş
Çözüldü Alt Form Toplamında #hata Ve #boyut! Sorunu donepezil 2 173 04/07/2019, 11:57
Son Yorum: donepezil
Çözüldü Rapor Sorunu metınaycıcek 26 758 03/07/2019, 23:35
Son Yorum: metınaycıcek

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.