Refresh ALL

[laia56]

با سلام و عرض شادباش سال نو خدمت تمام دوستان واساتید محترم
سئوالی دارم در مورد دکمه Refresh ALL در اکسس
چگونه میتوانم دکمه ای در روی فرم داشته باشم که همین عملکرد را داشته باشد دکمه پیش فرض خود اکسس صرفا Refresh میباشد
با تشکر از محبت شما

[RESMAILY]

به نام خدا
باسلام. چه چيز رفرش شود؟ به هرحال بك كليد بگذاريد و هرچه را مي خواهيد رفرش شود در آن بنويسيد

Application.RefreshTitleBar
Application.RefreshDatabaseWindow
me.refresh
...

[Abbas Amiri]

با سلام
علی القاعده کد زیر باید این عمل را انجام دهد ولی نمی دهد


Application.CommandBars.ExecuteMso ("DataRefreshAll")

وچون حداقل بنده مورد مختصر دیگری سراغ ندارم راهی که پیشنهاد می کنم جهت فرمهاو گزارشات شبیه است.


Sub RefreshAllForms()
Dim i As Integer
With CurrentProject
For i = 0 To .AllForms.Count - 1
If .AllForms(i).IsLoaded Then
Forms(.AllForms(i).Name).Refresh
End If
Next
End With
End Sub



برای گزارشات بجای Form >Reprort قراردهید
برای جداول وکوئریها هم از CurrentData.AllTables و CurrentData.AllQueries استفاده کنید