Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
12/12/2018 18:22
Konu Sahibi
Oğuz Türkyılmaz
Yorumlar
3
Okunma
240
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Oğuz Türkyılmaz

Oğuz Türkyılmaz

Aktif Üye
95272
Oğ.... Tü....
 51
 105
 531
 08/02/2018
0
 Antalya
 İşletmeci
 Ofis 2010 64 Bit
 22/04/2019,21:10
Çözüldü 
Merhabalar

T_01_TeklifGiris Formum açıldığında bağlı altformumu pasif hale getirdim, Firma seçimi yapıldıktan sonra Teklif no alanım otomatik teklif numarası veriyor.Bu teklif numarası değerine ( Formata Uygun Takip eden Numara verilmişse ) bakıp alt formumun aktif hale gelmesini istiyorum. Kodu aşağıdaki gibi yazdım. Kırmızı satırda pekçok denemeden sonra pes ettim.  Yardımcı olmanızı rica ederim.

Private Sub Form_Load()

DoCmd.GoToRecord , , acNewRec
cboFirmaKodu.SetFocus

afrTeklifDetay.Enabled = False

If Me.txtTeklifNo.Value =........ then

afrTeklifDetay.Enabled = True

End If

End Sub



Access Çekirgesi 
[Resim: img-cray.gif]



halily

halily

Uzman
65596
ha....
 26
 1.172
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,21:24

Visual Basic Code
1
2
3
4
5
6
7
8
9
Private Sub afrTeklifDetay_Enter()
If IsNull(Me.TeklifNo) Then       'TeklifNo boş ise
Me.afrTeklifDetay.Locked = True'
MsgBox ("Teklif  oluşturulmadan kayıt eklenemez")
cboFirmaKodu.SetFocus
Else
Me.afrTeklifDetay.Locked =False  
End If
End Sub


olayın kodunu formload'a değil "afrTeklifDetay"ın girildiğinde olayına yazmanız daha uygun olur
"afrTeklifDetay" kilitle dedim çünkü kilitlenince girebilirsiniz ama işlem yapamazsınız
eğer afrTeklifDetay.enabled = false deseydik oraya tekrar giremeyeceğimiz için
kontrolü tekrar yapamayabilirdik en azından ben denediğimde öyle oldu)
örneği inceler misiniz
Hatalı kod düzenlenip dosya yeniden eklenmiştir



...........
Oğuz Türkyılmaz

Oğuz Türkyılmaz

Aktif Üye
95272
Oğ.... Tü....
 51
 105
 531
 08/02/2018
0
 Antalya
 İşletmeci
 Ofis 2010 64 Bit
 22/04/2019,21:10
(12/12/2018 19:02)haliliyas Adlı Kullanıcıdan Alıntı:

Visual Basic Code
1
2
3
4
5
6
7
8
9
Private Sub afrTeklifDetay_Enter()
If IsNull(Me.TeklifNo) Then       'TeklifNo boş ise
Me.afrTeklifDetay.Locked = False '
MsgBox ("Teklif  oluşturulmadan kayıt eklenemez")
cboFirmaKodu.SetFocus
Else
Me.afrTeklifDetay.Locked = True
End If
End Sub


olayın kodunu formload'a değil "afrTeklifDetay"ın girildiğinde olayına yazmanız daha uygun olur
"afrTeklifDetay" kilitle dedim çünkü kilitlenince girebilirsiniz ama işlem yapamazsınız
eğer afrTeklifDetay.enabled = false deseydik oraya tekrar giremeyeceğimiz için
kontrolü tekrar yapamayabilirdik en azından ben denediğimde öyle oldu)
örneği inceler misiniz


Halil Bey uyguladım tamamdır.Teşekkürler. Yalnız kodda anlamadığım bir şey var "Me.afrTeklifDetay.Locked = False '" bu satır da locked kilitli demek  = false da kilitli değil anlamına gelmiyormu. if isnull ( eğer boş ise demek değilmi yani eğer me.teklifno boş ise afrTeklifDetayı kilitleme olarak anlıyorum ben bu kodu. Yapmak istediğimin tersi oluyor bana göre. Yanlışım nedir.


Access Çekirgesi 
[Resim: img-cray.gif]



halily

halily

Uzman
65596
ha....
 26
 1.172
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,21:24
haklısınız Oğuz Bey affedesiniz yerleri değişmeli özür dilerim
dosyayı güncelliyorum)
2. mesajdaki ek ve kod yeniden düzenlendi. Affedersiniz




...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formdaki Tüm Kayıtları Silme Yunus Bozkurt 5 223 16/06/2019, 17:36
Son Yorum: Yunus Bozkurt
Çözüldü Raporda Boş Alan Sorunu Yunus Bozkurt 7 239 03/06/2019, 04:22
Son Yorum: halily
Çözüldü Raporda Sayfa Alt Bilgisi Liste Boyuna Göre Yapışık Olsun Yardım okumas 2 133 30/05/2019, 15:38
Son Yorum: okumas
Çözüldü Formda Bitiş Tarihi Geçenlerin Alan Rengi Değişimi haziran4 3 162 30/04/2019, 13:04
Son Yorum: haziran4
Çözüldü Metin Kutusu İstenildiği Zaman Okunur, İstediğim Zaman Yazılır Olsun eraslan 6 226 28/04/2019, 14:39
Son Yorum: ozanakkaya

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