ساخت منو استارت ترکیبی

[aimaz23]

سلام من همیشه برای دیتابیسی که می سازم از ماکرو واکشن add menu استفاده می کنم
می خواستم ببینم میشه وقتی دیتا بیس را اجرا میکنم مینیمم بشه ویه فرم نشون داده بشه وبا خاصیت مثلاٌ کلیک فرم بسته ودیتا بیس با همون منو ماکرویی بیاد
مرسی از راهنمایی

[saeed1234n]

با سلام
دوست عزيز شدني است
توسط دستور

DoCmd.RunCommand acCmdAppMinimize

[aimaz23]

با سلام
دوست عزيز شدني است
توسط دستور

DoCmd.RunCommand acCmdAppMinimize
مرسی از راهنمایی
توی خاصیت on loud فرم استارت قرارش بدم

اگر بشه میخوام یه پیام خوش امد بدون کادر فقط یه نوشته بیاد بدون بک گراند دیتا بیس مینیم بشه بعد از 10ثانیه نوشته بره فایل ماکزیمم بشه ببخشید چند تا سوال شد

[saeed1234n]

با سلام
دوست عزیز
نمونه شما آماده شد .

113431

[aimaz23]

با سلام
دوست عزیز
نمونه شما آماده شد .

113431

با تشکر مجدد میشه توی فرم 1 فقط نوشته باشه بدون حاشیه فرم ویا بک گراند
یه تکست توی صفحه نمایش بده ممنون از لطفتون

[aimaz23]

با تشکر مجدد میشه توی فرم 1 فقط نوشته باشه بدون حاشیه فرم ویا بک گراند
یه تکست توی صفحه نمایش بده ممنون از لطفتونمن توی یه سایت انگلیس زبان اکسس عضوم ولی چون کدنویسی نمی دونم نمی دونم این ماژول چطوری استفاده کنم میشه راهنمایی کنید

Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loDatasheet As Form
On Error Resume Next
Set loDatasheet = Screen.ActiveDatasheet
If Err <> 0 Then
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
If nCmdShow = SW_HIDE And loDatasheet.Modal = True Then
MsgBox "Cannot minimize Access with " _
& (loDatasheet.Caption + " ") _
& "datasheet on screen"
ElseIf nCmdShow = SW_HIDE And loDatasheet.PopUp <> True Then
MsgBox "Cannot hide Access with " _
& (loDatasheet.Caption + " ") _
& "datasheet on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End Function