Kaydet butonu bir türlü pasif olmuyor

[kocivan]

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:

 

[kocivan]

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.

 

[kocivan]

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


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.cmdUndo.Visible = False
Me.cobMüşteriseç.Visible = True
DoCmd.GoToControl ("MüşterilerID")
Me.cmdSave.Visible = False
Exit_cmdSave_Click:
Exit Sub

Err_cmdSave_Click:
MsgBox Err.Description
Resume Exit_cmdSave_Click

End Sub
Private Sub cmdUndo_Click()
On Error GoTo Err_cmdUndo_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Me.cmdSave.Visible = False
Me.cobMüşteriseç.Visible = True
DoCmd.GoToControl ("MüşterilerID")
Me.cmdUndo.Visible = False
Exit_cmdUndo_Click:
Exit Sub

Err_cmdUndo_Click:
MsgBox Err.Description
Resume Exit_cmdUndo_Click

End Sub

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