فصل الارقام عن الحروف فى اكسيل بدون معادلات

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

مسلسل	اسم الملف	لينك	المدة ب الدقيقة
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
1000	قائمة ملفات الكورس الاول -- تعلم اكسيس وقواعد بيانات MS Access	https://www.youtube.com/playlist?list=PLMmy9Ec9B98wxI2RWVrjjtyV2knTFoR1t	0
2000	Programming Access VBA قائمة ملفات الكورس الثانى-- البرمجة فى اكسيس	https://www.youtube.com/playlist?list=PLMmy9Ec9B98ymtXXOLw2FeolA904Z-OsH	0

الاكواد  والشرح  فى الفيديو

Option Compare Database

Option Explicit

Private Sub btnAdd_Click()

    Me.AllowAdditions = True

    DoCmd.GoToRecord , , acNewRec

    Me.txtUserName = "     "

    Me.AllowAdditions = False

End Sub

Private Sub btnBack_Click()

    DoCmd.GoToRecord , , acPrevious

End Sub

Private Sub btnExample_Click()

Dim strsql

 ' DoCmd.Beep

 ' DoCmd.BrowseTo acBrowseToForm, "015 vv"

' DoCmd.OpenForm "015 vv"

' DoCmd.Close acForm, "015 vv"

'DoCmd.GoToControl "txtFirstName"

 ' DoCmd.GoToControl "txtWage"

  

  

  ' DoCmd.Hourglass False

'  DoCmd.Maximize

 '   DoCmd.Minimize

'    DoCmd.Restore

'   DoCmd.OpenReport "Sales by Year", acViewPreview

 '   DoCmd.OutputTo acOutputReport, "COURSE", acFormatPDF, "c:\test\test.pdf", True

  '  DoCmd.OutputTo acOutputTable, "COURSE", acFormatXLS, "c:\test\test.xls", True

   '  DoCmd.OutputTo acOutputTable, "COURSE", acFormatTXT, "c:\test\test.txt", True

   '  DoCmd.OutputTo acOutputTable, "COURSE", acFormatRTF, "c:\test\test.rtf", True

   '   DoCmd.OutputTo acOutputTable, "COURSE", , "c:\test\test.rtf", True

 '  DoCmd.Quit

    'DoCmd.RefreshRecord

 ' DoCmd.Requery Me.NAME

    '  DoCmd.Requery "txtFirstName"

    strsql = " SELECT COURSE.COID, COURSE.CONAME, COURSE.PRICE INTO 0001   FROM COURSE "

     DoCmd.RunSQL strsql

 ' DoCmd.RunCommand acCmdClose

 '  DoCmd.RunSQL "INSERT INTO tbl1Employees"

'  DoCmd.Save

'   DoCmd.SendObject acSendReport, "COURSE", acFormatPDF, "xipooo@gmail.com", , , "Test", "Test 1 2 3"

'    DoCmd.ShowToolbar "Ribbon", acToolbarNo

'    DoCmd.ShowToolbar "Ribbon", acToolbarYes

'    DoCmd.TransferDatabase acExport, , "Database1.accdb"

End Sub

Private Sub btnForward_Click()

    DoCmd.GoToRecord , , acNext

End Sub

Private Sub btnStop_Click()

    DoCmd.Hourglass False

End Sub