Ekteki örnekte kaydet butonunu pasif yapmaya çalıştım ama beceremedim bi el atın bie arkadaşlar hata yok gibi geldi bana ama olmuyor işte.Şimdiden teşekkürler herkeze.:icelim:
Arkadaşlar kusura baakmayın sorunu tam olarak anlamatadım forma veri girilmeye başlandığında kaydet butonu aktif olacak açılır kutu ve pageup pagedown tuşları pasifleşecek ki kaydetmeden müşteriler arası geçiş yapılamasın kayıt yapıldıktan sonra kaydet butonu pasifleşecek ve açılır kutu aktifleşecek işte tam olarak sorun bu.
Sorunu çözdüm belki lazım olur die çözümü verim.
Option Compare Database
Private Sub Form_Dirty(Cancel As Integer)
Me.cmdSave.Visible = True
Me.cmdUndo.Visible = True
Me.cobMüşteriseç.Visible = False
End Sub
Private Sub cobMüşteriseç_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[MüşterilerID] = " & Str(Nz(Me![cobMüşteriseç], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub Form_Current()
'Form güncelken ortaklık onay kutusu seçiliyse altform gözükür değilse gözükmez
If Me.ORTAKLIK = False Then
Me.ORTAK_BİLGİLERİ_alt_formu.DisplayWhen = 1
End If
If Me.ORTAKLIK = True Then
Me.ORTAK_BİLGİLERİ_alt_formu.DisplayWhen = 2
End If
End Sub
Private Sub Form_Load()
'Form yüklendiğinde ortaklık onay kutusu seçiliyse altform gözükür değilse gözükmez
If Me.ORTAKLIK = False Then
Me.ORTAK_BİLGİLERİ_alt_formu.DisplayWhen = 1
End If
If Me.ORTAKLIK = True Then
Me.ORTAK_BİLGİLERİ_alt_formu.DisplayWhen = 2
End If
End Sub
Private Sub ORTAKLIK_AfterUpdate()
'Ortaklık ortaklık onay kutusu seçildikten sonra altform gözükür seçilmezse gözükmez
If Me.ORTAKLIK = False Then
Me.ORTAK_BİLGİLERİ_alt_formu.DisplayWhen = 1
End If
If Me.ORTAKLIK = True Then
Me.ORTAK_BİLGİLERİ_alt_formu.DisplayWhen = 2
End If
End Sub
Private Sub cmdSave_Click()
On Error GoTo Err_cmdSave_Click
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Me.Dirty Then
If KeyCode = vbKeyPageDown Or KeyCode = vbKeyPageUp Then
KeyCode = 0
End If
End If
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.