Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
26/09/2012 16:48
Konu Sahibi
saglikci_salih
Yorumlar
4
Okunma
2095
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
saglikci_salih

saglikci_salih

Aktif Üye
8748
 39
 19
 91
 28/07/2009
17
 Amasya
 
 Ofis 2010
 01/05/2019,22:38
Çözüldü 
İyi Günler Arkadaşlar bir konuda engin bilgilerinizden yararlanmak istedim. Müsadeniz olursa. Benim Aile Hekimleri için yapmış olduğum bir form var ve bu formda ayarlar sekmesinde dönem Açılır kutusu var ve bu kutudan kayıt yapılacak dönem seciliyor.bu dönemler değer listesi olarak vb kodları ile yapılıyor.yalnız Aile hekimi bu dönemlerden daha önce kaydettiği dönemi secerse uyarı vermesini ve kaydı geri almasını istedim fakat olmadı mükerrer kayıt kodu

Visual Basic Code
If donem = DLookup("[donem]", "[tblana]", "[donem]=forms![frmanaek]!donem") Then
 MsgBox "Bu ay daha önce Girilmiştir. Lütfen tekrar deneyiniz!", vbCritical, "Dikkat"
me.undo
 End If

bu kod açılan kutuda bir işe yaramıyor daha doğrusu undo kodu işe yaramıyor.tabloya boş kayıt atıyor ben ise boş kayıt atmasını önlemek için formu sildirme sonra kapatıp yeniden açtırma kodu yazdım ama bu seferde aynı dönemi sectiğinde form uyarı verip bu dönem daha önce girilmiştir. mesajını verip kapatıp geri açması buda biraz sıkıcı oluyor. metin kutusu olsa iş tamamda combobox olunca iş değişiyor. ya secilen dönem acılan kutuda gözükmüyecek yada aynı dönemi sectiğinde uyarı verip o döneme odaklanıp yeni bir dönem seçmesini sağlamam gerekiyor. Bu konuda ne yapabilirim. Hangi kod uygun olur bu duruma çünkü aynı durum ölüm formunda ay ve yıl konusu içinde gecerli hadi onları bir nebze hallettim ama bu dönem açılır kutusu tamamen formun ana elemanı herşey onda bitiyor.id bile önemli değil benim için dönem kadar yardımlarınızı bekliyorum. teşekkürler Mesai bittiği için şimdilik offline olacağım kusura bakmayın 1 saate evde olurum.



saglikci_salih, 28-07-2009 tarihinden beri AccessTr.neT üyesidir.

ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,10:26
Çözüldü 
mevzuyu tam anladım mı bilmiyorum
donem açılan kutusunun güncelleştirme öncesinde olayına yazdığın kodu silip güncelleştirme sonrasındaki olayına aşağıdaki kodu ekleyip deneyebilir misin?

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
If donem = DLookup("[donem]", "[tblana]", "[donem]=forms![frmanaek]!donem") Then
   MsgBox "Bu ay daha önce Girilmiştir. Lütfen tekrar deneyiniz!", vbCritical, "Dikkat"
   DoCmd.RunCommand acCmdUndo
   Else
   Me.ahidifk = "050401"
Me.ahadisoyadi = "DR.LÜTFİ BOZKURT"
Me.aseadisoyadi = "HATEM LAÇİN"
Me.aseunvani = "ASE"
Me.ailesagmerkezi = "GÜMÜŞHACIKÖY"
Me.tarih = Date
   End If


"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. 

...........
saglikci_salih

saglikci_salih

Aktif Üye
8748
 39
 19
 91
 28/07/2009
17
 Amasya
 
 Ofis 2010
 01/05/2019,22:38
Çözüldü 
hocam gec cevabım için kusura bakmayın çocuğunuz varsa anlarsınız yok okuldan al markete git bu saat oldu eve geldim bilgisayarı actım sizin verdiğiniz kodları hemen yerlerine ekledim lakin geri alma kodu kayıtı geri alıyor ama ıd yide sildiği icin yeni dönem secsenizde yeni kayıtı komple sildiğinden kayıt olmuyor.zaten geri alma komutu altformları geri almadığı için sorun çıkarıyor. benim bütün derdim burada.yeni kayıt yapmıyor.yeni kayıt tuşuna bastığınızda tuş kendini kapattığı için yeni kayıt tuşuna basamıyoruz. kaydet desek kaydetmiyor.şöyle bir yol izlesem olurmu dönemi seçtiğimde dönemi başka bir metin kutusuna atıp o metin kutusu üzerinden işlem yapsam olurmu yoksa kullanışsızmı olur.ne dersiniz


saglikci_salih, 28-07-2009 tarihinden beri AccessTr.neT üyesidir.

ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,10:26
Çözüldü 
Uygulamanızdaki işlemleri çözmeye çalıştım.
Yeni kayıt eklerken daha önce kaydedilen bir dönem seçildiğinde uyarı veriyor ve id alanını siliyordu.
Aşağıdaki kodu kullanarak birkaç deneme yaptım, sorun çıkmadı. Umarım yaptığım deneme doğrudur.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub donem_AfterUpdate()

If donem = DLookup("[donem]", "[tblana]", "[donem]=forms![frmanaek]!donem") Then
   MsgBox "Bu ay daha önce Girilmiştir. Lütfen tekrar deneyiniz!", vbCritical, "Dikkat"
    Me.Undo
Else
    If IsNull(Me.id) Then
        Me.id = Nz(DMax("id", "tblana"), 0) + 1
    End If
        Me.ahidifk = "050401"
        Me.ahadisoyadi = "DR.LÜTFİ BOZKURT"
        Me.aseadisoyadi = "HATEM LAÇİN"
        Me.aseunvani = "ASE"
        Me.ailesagmerkezi = "GÜMÜŞHACIKÖY"
        Me.tarih = Date
End If
End Sub



"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. 

...........
saglikci_salih

saglikci_salih

Aktif Üye
8748
 39
 19
 91
 28/07/2009
17
 Amasya
 
 Ofis 2010
 01/05/2019,22:38
Çözüldü 
Teşekkür ederim sayın ozan bey problemimi hallettiniz. Gerçekten pratik bir çözüm.Sağolun


saglikci_salih, 28-07-2009 tarihinden beri AccessTr.neT üyesidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Alt Form Kayıt most 6 266 31/05/2019, 09:12
Son Yorum: most
Çözüldü Access İle Basit Kayıt Programı musti35 4 237 27/05/2019, 17:07
Son Yorum: musti35
Çözüldü Formda Açılır Kurularda 3101 Hatası Veriyor haziran4 11 294 24/05/2019, 16:22
Son Yorum: haziran4
Çözüldü Kayıt Silindiğinde Silinenler Tablosuna Aktarma haziran4 4 231 20/05/2019, 11:58
Son Yorum: haziran4
Çözüldü Açılan Kutuda Verilerin Görünmesi m_demir 7 294 15/05/2019, 23:27
Son Yorum: halily

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