şartlı buton

[aygun78]

arkadaşlar kolay gelsin ekte göndermiş olduğum dosyada hasta kutusunu işaretledigimde yandaki butonun görülmesi işaretlemediğimde ise görünmemesi ve formda sadece son 10 kaydın görülmesi ni istiyorum örnekleri incelememe rağmen bulamadım yardımcı olursanız sevinirim(formdaki veriler gerçek olduğu için bazıları silinmiştir)

 

[ayhan2122]

Sn Aygün78;
Düğmenin etkin olması nasıl yapılır bilmiyorum ama size düğmenin nasıl şartlı hale gelebileceğini yazabilirim.
Kutucuk işaretliyken düğme çalışsın boşken çalışmasın ileti versin.
(Eğer ileti vermesini istemiyorsanız 'MsgBox' diye başlayan satırı yazmayınız.)
Formunuz üzerindeki düğmenin olay yordamına şunları yazın;

Private Sub Komut40_Click()
On Error GoTo Err_Komut40_Click
If [hasta] = 0 Then
MsgBox "önce hasta olarak işaretleyin.",,"ProgramBaşlığı"
Else
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "fku1"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Exit_Komut40_Click:
Exit Sub
Err_Komut40_Click:
MsgBox Err.Description
Resume Exit_Komut40_Click
End Sub

 

[aygun78]

teşekkürler ederim elleirne sağlık bakalım ekliyeyim

 

[aygun78]

şartlı olarak da yaptım arkadaşlar işine yarayan belki olur
If [hasta] = 0 Then
Me!Komut40.Visible = False
Else
Me!Komut40.Visible = True
End If