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

Derecelendirme: 0/5 - 0 oy
prestij06

prestij06

Aktif Üye
64826
 33
 16
 46
 11/06/2014
3
 -
 
 -
 Bugün,12:26
Çö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.



halily

halily

Uzman
65596
Ha....
 26
 1.155
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,11:45

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



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

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 483
 12.099
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,02:59
@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
 16
 46
 11/06/2014
3
 -
 
 -
 Bugün,12:26
(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
 16
 46
 11/06/2014
3
 -
 
 -
 Bugün,12:26
(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.



halily

halily

Uzman
65596
Ha....
 26
 1.155
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,11:45
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ü Sonraki Kayda Git Butonu Yeni Kayda Gitmsin edacan19 4 138 03/06/2019, 12:10
Son Yorum: okumas
Çözüldü Raporda Boş Alan Sorunu Yunus Bozkurt 7 216 03/06/2019, 04:22
Son Yorum: halily
Çözüldü Mükerrer Kayıt Sorunu Fatih34 5 329 13/05/2019, 16:08
Son Yorum: halily
Çözüldü Yazdırma Sorunu m_demir 8 179 10/05/2019, 16:31
Son Yorum: m_demir
Çözüldü Metin Tipinde Ayarlanmış Sürelerle İşlemlerde Toplama Sorunu yücel üzülmez 9 392 08/05/2019, 23:09
Son Yorum: halily

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