آلارم اول برنامه

[com12151337]

سلام دوستان
من یک برنامه خودرو دارم که هر خودرویی بیمه میشه این بیمه یکساله است اگر بخواهیم اول شروع برنامه اعلام کنه مثلا" 10 روز دیگه بیمه تمامه چکار باید بکنیم در خود برنامه دستوراتی را بهش دادم کار میکنه ولی اول برنامه نمیاد یعنی حتما تو برنامه مشخصات خودرو باید برم تا آلارم روشن بشه!
ممنون

[Abbas Amiri]

سلام ، جدول وفرم مربوط را آپلود کنید تا راهنمایی شوید>

[com12151337]

90585 جناب امیری باز هم زحمت شما ممنون

[Abbas Amiri]

راه حل استفاده از ماکروی AutoExec وفراخوانی تابعی که کدهای مربوطه را درآن نوشته اید.
اول در یک ماژول یک تابع ایجاد کنید


Function CheckExpireDate()
Dim Mydate As String
Dim ET_GH As String
Dim date_min As String
Mydate = 10
date_min = DMin("et_gh", "kar")
ET_GH = Diff(shamsi(), date_min)
If date_etmam < 31 Then
If MsgBox("ÊÇÑíÎ ÇÊãÇã ÈÑÎí ÇÒ ÞÑÇÑÏÇÏåÇí Èíãå 10 íÇ ßãÊÑ ÇÒ" & Mydate & "ÑæÒ ãí ÈÇÔÏ" & vbCrLf & "ÂíÇ ÞÕÏ ãÔÇåÏå áíÓÊ ÞÑÇÑÏÇÏåÇ ÑÇ ÏÇÑíÏ¿", vbCritical + vbMsgBoxRight + vbYesNo, "ÊæÌå : ãÏíÑíÊ ˜äÊÑá ÇãæÇá") = vbNo Then
Cancel = True
Else
DoCmd.OpenForm "kar1"
End If
End If

End Function



بعد یک ماکرو با نام AutoExec ایجاد کنید و در آن از دستور RunCode استفاده ودر FunctionName عبارت () CheckExpireDate را بنویسید

[com12151337]

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

[com12151337]

سلام دوستان
جناب امیری در صورتی که اگر قرارداد بیمه فقط برای آنهائیکه از 10 روز کمتر وقت داشته باشند چه دستوری باید نوشت؟

[Abbas Amiri]

مثل اینکه جواب شما را بدون نمونه نمیشود داد.
در تابع قبلی عینا از مورد خودتان نقل کرده بودم ولی اینجا تغییراتی ایجادکردم