filter by selection در باتن

[morteza_lll]

سلام دوستان

یک سوال دارم
تو اکسس زمانی که راست کلیک تو فرم انجام میدید (روی فیلدها) گزینه هایی وجود داره مثله
filter by selection \ remove selection , .....
حالا می خوام بجای اینکه راست کلیک کنیم و این دستورات را انجام دهیم روی باتنها کد بنویسم که این کار رو انجام بده

ممنون می شم منو راهنمایی کنید :قلب::قلب::قلب::قلب::قلب::قلب:

[morteza_lll]

سلام دوستان

من پس از زدن تاپیک و عدم دریافت پاسخ به سایتهای بیگانه مراجعه کرده و راه حل را پیدا کردم

خواستم تاپیکو پاک کنم ولی گفتم بذارم باشه که بقیه دوستان بتوانند استفاده کنند
این کد روی on click بنویسید همون کار FilterBySelection را انجام میده



Private Sub cmdFilterSelect_Click()
On Error Goto ErrHandler
Screen.PreviousControl.SetFocus
DoCmd.RunCommand acCmdFilterBySelection
Exit Sub
ErrHandler:
Select Case Err.Number
Case 2046 'Filter not available at moment
MsgBox "Command not available"
Case Else
MsgBox Err.Number & vbCrLf & Err.Description
End Select
End Sub


:بوس::قلب::قلب::قلب::قلب:

[F_ashigh]

دوست عزیز فکر کنم با این کد کاملتر بشه

On Error GoTo ErrHandler
If Me.FilterOn = True Then
Screen.PreviousControl.SetFocus
DoCmd.RunCommand acCmdRemoveAllFilters
Else
Screen.PreviousControl.SetFocus
DoCmd.RunCommand acCmdFilterBySelection
End If
Exit Sub
ErrHandler:
Select Case Err.Number
Case 2046 'Filter not available at moment
MsgBox "Command not available"
Case Else
MsgBox Err.Number & vbCrLf & Err.Description
End Select

[morteza_lll]

دوست عزیز 100 درصد همینگونه می باشد

حتما با کمک شما بهتر می شود

ممنون