معنی شعر نیایش فارسی ششم ابتدایی

احتمالأ برای شما پیش آمده باشد زمانی که برنامه ای با نرم افزار Access می سازید، بخواهید فرم اصلی بصورت تمام صفحه باشد و از نرم افزار Access خبری نباشد. برای این کار مراحل زیر را دنبال کنید:

1- در روال form_open فرم مربوطه، جهت پنهان نمودن Menu های Access و... کد زیر را درج نمائید:

Private Sub Form_Open(Cancel As Integer)
DoCmd.SetWarnings False
On Error GoTo 1

            DoCmd.ShowToolbar "ribbon", acToolbarNo
            CommandBars.ActiveMenuBar.Enabled = False

            CurrentDb.Properties("ShowDocumentTabs").Value = False
            Application.SetOption "Show Status Bar", False

            'select the navigation pange
            Call DoCmd.NavigateTo("acNavigationCategoryObjectType")
            'hide the selected object
            Call DoCmd.RunCommand(acCmdWindowHide)
            DoCmd.Maximize

1: End Sub

با روال بالا، زمانی که فرم مربوطه باز می شود بصورت کامل خواهد بود، البته پس از یکبار اجرا باید برنامه را کامل ببندید و دوباره باز کنید تا حذف Tab ها هم عمل کند. در ضمن خواص Pop up و modal فرم هم باید روی No تنظیم شده باشند.

پس از بستن فرم، باید همه چیز سر جای خودش برگردد وگرنه شما در برنامه Access خود menu و... را نخواهید دید. برای اینکار دستورات قسمت 2 را بنویسید

2- در روال form_close فرم مربوطه کد زیر را درج نمائید:

Private Sub Form_Close()
DoCmd.SetWarnings False
On Error GoTo 1

            DoCmd.ShowToolbar "ribbon", acToolbarYes
            CommandBars.ActiveMenuBar.Enabled = True

            CurrentDb.Properties("ShowDocumentTabs").Value = True
            Application.SetOption "Show Status Bar", True

            Call DoCmd.SelectObject(acTable, , True)
1: End Sub

امیدوارم مطلب فوق در بهبود برنامه نویسی شما مؤثر بوده باشد. البته تغییر آیکون Access و... نیز به ظاهر کار بسیار کمک خواهد کرد که در مطالب بعدی حتمأ درج خواهد گردید.

پیرو مطلب تمام صفحه کردن فرم های ساخته شده توسط نرم افزار Access و حذف ribbon و menu bar و...، شاید بدنبال این باشین که بخواین در زمان اجرای برنامه و لود شدن اولین فرم، آیکون Access به آیکون مورد دلخواه شما تغییر پیدا کنه. البته می دونم که اینکار رو می تونید در قسمت Option/application icon انجام بدین ولی مشکل اینجاست که با جابجا شدن برنامه یا انتقال از کامپیوتری به کامپیوتر دیگر، این آیکون عمل نخواهد کرد.

راهکار مناسب اینست که خود فایل Access و آیکون مربوطه در یک پوشه قرار داده شوند (البته درون پوشه می توانید یک فولدر بنام Data داشته باشید و آیکون را درون آن قرار دهید) و سپس در روال form_open به فرم دستور دهید از مسیر جاری برنامه (حالا فرقی نمی کند روی کدام درایو یا کامپیوتر باشد، هر جا که فایل Access شما باشد بنام مسیر جاری شناخته می شود) آیکون را بخواند و در فرم استفاده کند. برای اینکار کدهای زیر را در فرم اصلی برنامتان که از ابتدا تا آخر باز است وارد نمائید، البته می تواند آنرا بصورت ماژول دربیاورید و در تمام فرم ها استفاده کنید:

Private Sub Form_Load()

        ' other codes...

        ChangeProperty "AppIcon", dbText, CurrentProject.Path & "\\Data\myicon.ico"

        Application.RefreshTitleBar

      ' other codes...

End Sub

Function ChangeProperty(strPropName As String, varPropType As String, varPropValue As Variant) As Integer

Dim dbs As DAO.Database

Dim prp As DAO.Property

Set dbs = CurrentDb

On Error GoTo PROC_ERROR

dbs.Properties(strPropName) = varPropValue

ChangeProperty = True

PROC_EXIT:

    On Error Resume Next

    Set prp = Nothing

    Set dbs = Nothing

    Exit Function

PROC_ERROR:

If Err.Number = 3270 Then

    Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)

    dbs.Properties.Append prp

    Resume Next

Else

    ChangeProperty = False

    Resume PROC_EXIT

End If

End Function

Sub seticon()

     ChangeProperty "AppIcon", dbText, CurrentProject.Path & "\\Data\myicon.ico"

    Application.RefreshTitleBar

End Sub

در زمانی که یک برنامه Access در شبکه Share شده و Userهای زیادی از آن استفاده می کنند، شاید نیاز داشته باشید در ثبت رکوردهای جداول خود Log داشته باشید و بفهمید چه رکوردی توسط چه User و در چه زمانی ویرایش شده است. روش ثبت همراه با پیغام تأئید در مطالب بعدی ذکر خواهد شد اما فعلأ به موضوع Username کاربری که در حال ویرایش رکوردها است می پردازیم.

جهت پیدا کردن User جاری سیستم کافی است در هر قسمت از برنامه که نیاز به استفاده از Username سیستم می باشد عبارت زیر را درج نمائید:

Environ("Username")

me.log=Environ("Username") & " " & Now

امیدوارم این مطلب نیز مفید واقع شده باشد

یکی دیگر از نیازهای ثبت لاگ های برنامه های ساخته شده که چند یوزر روی آن کار می کنند IP سیستمی است که با آن برنامه باز شده و یا ویرایش می شود. برای بدست آوردن IP سیستم بهتر است ابتدا کد مربوط به پیدا کردن IP در یک فانکشن تعریف شده، سپس در هر کجای فرم که نیاز بود از نام فانکشن استفاده نمود:

Public Function getMyIP()

   Dim myWMI As Object, myobj As Object, itm

   Set myWMI = GetObject("winmgmts:\\.\root\cimv2")

   Set myobj = myWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")

   For Each itm In myobj

        getMyIP = itm.IPAddress(0)

        Exit Function

   Next

End Function

me.text1=getMyIP

امیدوارم این موضوع نیز مفید واقع شود

در برنامه های ساخته شده توسط نرم افزار Access شاید نیاز باشد در قسمتی از برنامه با زدن یک دکمه، My Computer باز شود و مسیر دلخواه ما را نمایش دهد و بتوانیم محتویات آن فولدر یا درایو را ببینیم. برای اینکار از کدهای زیر می توان استفاده نمود:

Private Sub Command0_Click()

       Dim Path

       Path = "D:\"

       Shell "cmd /c start """" explorer.exe " & Path, vbHide

End Sub 

Private Sub Command1_Click()

       Dim Path

       Path = "E:\New folder"

       Shell "cmd /c start """" explorer.exe " & Path, vbHide

End Sub