كود استعاده اعدادت الاكسس هام جدااااا للمبرمج CurrentProject

-1-

-2-

مهارات فى اكسيس

مسلسل	اسم الملف	لينك	المدة ب الدقيقة
1	معرفة عدد الاحرف او الكلمات الموجودة في احد الحقول في اكسيس Dcount	https://youtu.be/WE0_of3cU0g	12
2	كيفية اخفاء شاشة الاكسس واظهار شاشة البرنامج مباشرة	https://youtu.be/ePZKCngCXhI	3
3	برنامج أدخل تاريخ ميلادك يعطيك عمرك بالسنة و الشهر و اليوم MS Access Skills	https://youtu.be/kuocx5KbRbk	5
4	مهارة تنسيق التاريخ فى اكسيس من خلال الدالة و format	https://youtu.be/ma1CJv2YFZQ	10
5	مهارة تقسيم الإسماء دفعة واحدة فى اكسيس MS Access VBA ج1	https://youtu.be/mBUP70LnOdk	10
6	مهارة تقسيم الإسماء دفعة واحدة فى اكسيس MS Access VBA ج2	https://youtu.be/_GZzAtDjTe0	17
7	مهارة تقسيم الإسماء دفعة واحدة فى اكسيس MS Access VBA ج3	https://youtu.be/v_hXCFXO0gc	17
8	مهارة تقسيم الإسماء دفعة واحدة فى اكسيس MS Access VBA ج4	https://youtu.be/kD-bFyi3dVA	10
9	مهارة تقسيم الإسماء دفعة واحدة فى اكسيس MS Access VBA ج5	https://youtu.be/EPwSiIxkjvw	9
10	شرح بعض أوامر Docmd ج1	https://youtu.be/UTL2MZc-u6Y	13
11	شرح بعض أوامر Docmd ج3	https://youtu.be/SqwFND-10rI	10
12	شرح الامر DoCmd OutputTo لتصدير الملفات من اكسيس الى صيغ مختلفة acFormatPDF	https://youtu.be/zRHXr4UbZ-0	10
13	شرح بعض أوامر Docmd DoCmd RunSQL	https://youtu.be/1Gu57sq2wQQ	0
14	شرح بعض أوامر Docmd جزء اخير	https://youtu.be/aypOAX7h4CE	0
15	كود استعاده اعدادت الاكسس هام جدااااا للمبرمج CurrentProject	https://youtu.be/R_xi0JePnBo	10
1000	قائمة ملفات الكورس الاول -- تعلم اكسيس وقواعد بيانات MS Access	https://www.youtube.com/playlist?list=PLMmy9Ec9B98wxI2RWVrjjtyV2knTFoR1t	0
2000	Programming Access VBA قائمة ملفات الكورس الثانى-- البرمجة فى اكسيس	https://www.youtube.com/playlist?list=PLMmy9Ec9B98ymtXXOLw2FeolA904Z-OsH	0

 استعاده اعدادت الاكسس

 استخدم هذا الكود من خلال وحدة نمطية واستدعيه من خلال النموذج

 وهناك بعد الاختلافات حسب نوع الأوفيس

Attribute VB_Name = "Module3"

Option Compare Database

Function SetOptions()

'استعاده اعدادت الاكسس

'استخدم هذا الكود من خلال وحدة نمطية واستدعيه من خلال النموذج

'وهناك بعد الاختلافات حسب نوع الأوفيس

'View Tab

Application.SetOption "Show Status Bar", -1

Application.SetOption "Show Startup Dialog Box", -1

Application.SetOption "Show Hidden Objects", -1

Application.SetOption "Show New Object Shortcuts", -1

Application.SetOption "Show System Objects", -1

Application.SetOption "Show Macro Names Column", -1

Application.SetOption "Show Conditions Column", -1

Application.SetOption "Database Explorer Click Behavior", 1

Application.SetOption "ShowWindowsInTaskbar", -1

'General Tab

Application.SetOption "Left Margin", 5

Application.SetOption "Right Margin", 5

Application.SetOption "Top Margin", 5

Application.SetOption "Bottom Margin", 5

Application.SetOption "Four-Digit Year Formatting", 0

Application.SetOption "Four-Digit Year Formatting All Databases", -1

Application.SetOption "Track Name AutoCorrect Info", -1

Application.SetOption "Perform Name AutoCorrect", -1

Application.SetOption "Log Name AutoCorrect Changes", 0

Application.SetOption "Enable MRU File List", -1

Application.SetOption "Size of MRU File List", 4

Application.SetOption "Provide Feedback with Sound", 0

Application.SetOption "Auto Compact", 0

Application.SetOption "New Database Sort Order", 1033

Application.SetOption "Remove Personal Information", 0

'Edit/Find Tab

Application.SetOption "Default Find/Replace Behavior", 0

Application.SetOption "Confirm Record Changes", -1

Application.SetOption "Confirm Document Deletions", -1

Application.SetOption "Confirm Action Queries", -1

Application.SetOption "Show Values in Indexed", -1

Application.SetOption "Show Values in Non-Indexed", -1

Application.SetOption "Show Values in Remote", 0

Application.SetOption "Show Values Limit", 1000

'Datasheet Tab

Application.SetOption "Default Font Color", 0

Application.SetOption "Default Background Color", 15

Application.SetOption "Default Gridlines Color", 8

Application.SetOption "Default Gridlines Horizontal", -1

Application.SetOption "Default Gridlines Vertical", -1

Application.SetOption "Default Column Width", 3

Application.SetOption "Default Font Name", "Arial Black"

Application.SetOption "Default Font Weight", 7

Application.SetOption "Default Font Size", 12

Application.SetOption "Default Font Underline", False

Application.SetOption "Default Font Italic", False

Application.SetOption "Default Cell Effect", 0

Application.SetOption "Show Animations", True

Application.SetOption "Show Smart Tags on Datasheets", True

'Keyboard Tab

Application.SetOption "Move After Enter", 1

Application.SetOption "Behavior Entering Field", 1

Application.SetOption "Arrow Key Behavior", 0

Application.SetOption "Cursor Stops at First/Last Field", -1

'Tables/Queries Tab

Application.SetOption "Default Text Field Size", 50

Application.SetOption "Default Number Field Size", 4

Application.SetOption "Default Field Type", 0

Application.SetOption "AutoIndex on Import/Create", ""

Application.SetOption "Show Table Names", -1

Application.SetOption "Output All Fields", 0

Application.SetOption "Enable AutoJoin", -1

Application.SetOption "Run Permissions", 1

Application.SetOption "Substitute Font Name", "Arial Black"

'Forms/Reports Tab

Application.SetOption "Selection Behavior", 0

Application.SetOption "Form Template", "Normal"

Application.SetOption "Report Template", "Normal"

Application.SetOption "Always Use Event Procedures", -1

Application.SetOption "Show Smart Tags on Forms", -1

Application.SetOption "Themed Form Controls", -1

'Advanced Tab

Application.SetOption "Default Record Locking", 0

Application.SetOption "Default Open Mode for Databases", 0

Application.SetOption "Ignore DDE Requests", 0

Application.SetOption "Enable DDE Refresh", -1

Application.SetOption "OLE/DDE Timeout (Sec)", 30

Application.SetOption "Number of Update Retries", 5

Application.SetOption "ODBC Refresh Interval (Sec)", 60

Application.SetOption "Refresh Interval (Sec)", 10

Application.SetOption "Update Retry Interval (Msec)", 250

'International Tab

Application.SetOption "Default direction", 1

Application.SetOption "General alignment", 0

Application.SetOption "Cursor movement", 0

Application.SetOption "Use Hijri Calendar", False

'Error Checking Tab

Application.SetOption "Enable Error Checking", -1

End Function


==============================

اليك كود  اخر   تم  شرحه  داخل  الفيديو
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Sub ApplicationInformation()
 ' Print name and type of current object.
 Debug.Print Application.CurrentProject.FullName
 Debug.Print Application.CurrentProject.ProjectType
 ' Set Hidden Objects option under Show on View Tab
 'of the Options dialog box.
 Application.SetOption "Show Hidden Objects", True
End Sub

=============================
اكواد  الفيديو
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Option Compare Database
Option Explicit


Private Sub btnAddSharedImage_Click()
    Stop
    CurrentProject.AddSharedImage "GoodImage", "c:\test\good.jpg"
    Me.imgGood.Picture = "GoodImage"
End Sub

Private Sub btnAllForms_Click()
    Stop
    Dim item As Object
    For Each item In CurrentProject.AllForms
        Debug.Print item.NAME & " " & item.DateModified
    Next
 
    Dim i As Integer
    For i = 0 To CurrentProject.AllModules.Count - 1
        Debug.Print CurrentProject.AllModules(i).FullName & " " & CurrentProject.AllModules(i).DateModified
    Next i
End Sub

Private Sub btnFileFormat_Click()
    Stop
    Debug.Print CurrentProject.FileFormat
    ' AcFileForma Enumeration - http://msdn.microsoft.com/en-us/library/ff821082(v=office.15).aspx
End Sub

Private Sub btnFullName_Click()
    Stop
    Debug.Print CurrentProject.FullName
End Sub

Private Sub btnIsConnected_Click()
    Stop
    Debug.Print CurrentProject.IsConnected
End Sub

Private Sub btnName_Click()
    Stop
    Debug.Print CurrentProject.NAME
   ' DoCmd.OutputTo acOutputReport, "Report1", acFormatPDF, "c:\test\" & Replace(CurrentProject.NAME, ".accdb", ".pdf"), False
End Sub

Private Sub btnPath_Click()
    Stop
    Debug.Print CurrentProject.Path

  '  Dim fso As Object
  '  Set fso = CreateObject("Scripting.FilesystemObject")
  '  fso.createfolder CurrentProject.Path & "\PDFs\"
    DoCmd.OutputTo acOutputReport, "Report1", acFormatPDF, CurrentProject.Path & "\PDFs\Report.pdf", False
 
    '    DoCmd.OutputTo acOutputReport, "Report1", acFormatPDF, CurrentProject.Path & "\Report.pdf", False
 
End Sub

Private Sub btnResources_Click()
    Stop
    Dim item As Object
    For Each item In CurrentProject.Resources
        If item.NAME = "GoodImage" Then item.Delete
    Next
    Me.imgGood.Picture = ""
End Sub

Private Sub Command55_Click()
Stop
  ' Print name and type of current object.
 Debug.Print Application.CurrentProject.FullName
 Debug.Print Application.CurrentProject.ProjectType
 ' Set Hidden Objects option under Show on View Tab
 'of the Options dialog box.
 Application.SetOption "Show Hidden Objects", True
 Application.SetOption "Show Status Bar", True


End Sub

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

-3-

-4-