نجوم المشاركات

السلام عليكم 🙂 لتعم الفائدة ، رجاء قراءة الطريقة السابقة ، والتي يمكن قراءتها من هنا : https://www.officena.net/ib/topic/107637-اجعل-برنامجك-يعمل-على-النواتين-32بت-و-64بت/ ------------------------------------------------------------------------------------------------------------------ اذا عملنا برنامج على الاكسس 32بت ، وفيه مكتبات الوندوز الـ 32بت (لاحظ الرقم 32 في اسم المكتبة: comdlg32.dll) ، ثم شغلنا البرنامج على اكسس 64بت ، فنحصل على هذا الخطأ : . للعمل بهذه الطريقة محتاجين الى: 1. ملف في موقع مايكروسوف (مرفق نسخة Win32API_PtrSafe.zip) ، وفيه طريقة عمل مناداة النواتين : https://www.microsoft.com/en-us/download/details.aspx?id=9970 وعند فك الملف ، سنستعين بالملف Win32API_PtrSafe.TXT ، 2. البرنامج Notepad++ المجاني ، ويمكن انزاله من هنا : https://notepad-plus-plus.org بعد تنصيب البرنامج ++Notepad ، يمكننا فتح الملف Win32API_PtrSafe.TXT به : هذا البرنامج يفهم تنسيق وعمل الكثير من لغات البرمجة ، ومنها VB ، ونستفيد منه حتى في برمجة كود VBE لأنه يفهم تنسيقها: . ------------------------------------------------------------------------------------------------------------------ سنستخدم المرفق في هذ الرابط لنجعله يعمل على النواتين 32بت و 64بت: https://www.officena.net/ib/topic/61106-هدية-من-اليمين-الى-اليسار،-مربع-القائمة-listbox-والشجرة-treeview/ هذه هي مكتبات 32بت الوندوز المستعمله في المرفق: Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public Declare Function GetFocus Lib "user32" () As Long Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long . خطوات العمل: A. ننسخ اسم المكتبة GetWindowLong من برنامج الاكسس ، B. ثم في برنامج ++Notepad ، نبحث عن هذه الكلمة عن طريق Ctrl+F ، C. فنضع الكلمة مكان البحث ، وننقر على المربع: Find All in Current Document . D. نرى هذ النافذة تُفتح في اسفل البرنامج ، اهم شيء في هذه النافذه هو ان نفرق بين كلمة البحث التي نريدها ، ونفرقها عن كلمات البحث المشابهه والتي لا علاقة لنا بها (يجب ملاحظة ان بعض البرامج/الامثلة التي ننزلها من الانترنت ، يكون صاحبها عمل تغيير في اسم المكتبة ، مثلا: بدل GetWindowLong يكون apiGetWindowLong ، فيجب ان نعرف انه نفس الاسم ، ونبحث عن الكلمة الاصل ، كما نلاحظ ان تعديل الاسم يتم من بدايته وليس من نهايته) . E. اذن نرى هنا ان آخر سطرين فيهما طلبنا ، F. ندقق في السطر ، ونبحث عن اي كلمة تنتهي بـ Ptr ، مثل LongPtr ، CLngPtr ، VarPtr ، ObjPtr ، StrPtr ، او الكلمات التالية LongLong ، CLngLng ، فاذا وجدناها ، اذن يجب التصريح لهذه المكتبة في الكود في برنامجنا على سطرين مختلفين ، السطر الاول للنواة 64 بت ، ونأخذه من برنرنامج ++Notepad ، والسطر الثاني للنواة 32 بت ، ونأخذه من برنامجنا الاصل ، هكذا : #If VBA7 And Win64 Then '64 bits Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long #Else '32 bits Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long #End If . *** الخطوة الاولى والاهم هي اضافة كلمة PtrSafe بعد كلمة Declare ، للنواة 64بت. *** لاحظ اننا اضفنا كلمة Public في اول السطر للنواتين ، *** وبعد كل خطوة نعملها ، يجب ان نعمل Compile :على الاكسس 32 بت والاكسس 64 بت :حتى نتأكد انه لا توجد اخطاء ونتبع نفس الخطوات اعلاه لبقية المكتبات ، المكتبة التاليه: SetWindowLong ، والنتيجة نفسها مثل المكتبة السابقة ، اذن الكود اصبح #If VBA7 And Win64 Then '64 bits Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long #Else '32 bits Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long #End If . وهكذا مع بقية المكتبات ، فيكون الكود النهائي: #If VBA7 And Win64 Then '64 bits Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare PtrSafe Function InvalidateRect Lib "user32" Alias "InvalidateRect" (ByVal hwnd As LongPtr, lpRect As Long, ByVal bErase As Long) As Long Public Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr Public Declare PtrSafe Function GetFocus Lib "user32" Alias "GetFocus" () As LongPtr Public Declare PtrSafe Function GetWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As LongPtr, ByVal wCmd As Long) As LongPtr #Else '32 bits Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public Declare Function GetFocus Lib "user32" () As Long Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long #End If . الآن لنفترض ان لدينا هذه المكتبة كذلك: Public Declare Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) . نلاحظ في البحث انه لا توجد لدينا اي من كلمات التي ذكرناها في #F اعلاه . اذن نكتب السطر (من برنامجنا ذو 32 بت) نفسه مرتين ، مرة للنواة 64 بت ، ومرة للنواة 32 بت ، فيصبح الكود (الفرق بين السطرين هي كلمة PtrSafe) : #If VBA7 And Win64 Then '64 bits Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) #Else '32 bits Public Declare Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) #End If او #If VBA7 And Win64 Then '64 bits Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) #Else '32 bits Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) #End If او سطر واحد مستقلا Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) ------------------------------------------------------------------------------------------------------------------ 2021-11-20 : اخوي @عبدالله المجرب نبهني عند استخدام الاكسس 64بت ، يظهور خطأ في مرفق الرابط: https://www.officena.net/ib/topic/64989-هدية-برنامج-تصدير-بيانات-من-جداولاستعلامات-اكسس-الى-اكسل-،-32بت-و-64بت/ لما نعمل Compile للبرنامج على كمبيوتر به اكسس 64بت ، تظهر هذه الرسالة ، واللي معناها مافي توافق في تعريف المتغير (يعني جزء من سطر الكود تم تعريفه بطريقة ، وجزء آخر من سطر الكود تم تعريفه بطريقة لا تتلائم مع المتغير السابق ، وابسط مثال: متغير تم تعريفه كنص ، ثم تعطي قيمته الى متغير آخر تم تعريفه كرقم) : . من الملاحظة ، نرى انه بما اننا نستخدم اكسس 64بت ، فتعريف المكتبة ShellExecute يكون عن طريق (VB7) ، وتعريفها انها LongPtr ، بينما في الكود ، اعطينا قيمة ShellExecute الى المتغير lRet والذي تم تعريفه على انه Long ، لهذا السبب لا يوجد توافق بين المتغيرين ، وعليه نحصل على الخطأ !! هناك حلين للموضوع: إما ان نعمل if VBA7 then# خاص للمتغير lRet لحالتي 32بت و 64بت ، او نحذف تعريف المتغير lRet من الكود ، ونضعه في الاعلى ، مع تعريف المكتبة ShellExecute ، وهذا ما قمت به: . وبعد عمل Comiple مرة اخرى ، نحصل على خطأ مشابه للخطأ اعلاه ، ولكن لمكتبة اخرى : . والحل ، كما عملته للمشكلة السابقة ، فيصبح الكود : . وبعد عمل Compile مرة اخرى ، نجد ان الكود يعمل بدون اخطاء 🙂 ------------------------------------------------------------------------------------------------------------------ 2021-11-23: اخوي @ابا جودى طلب مساعدة في برنامجه ، ليعمل على النواتين: https://www.officena.net/ib/topic/111963-سؤال-بخصوص-التعديل-على-قاعدة-بيانات-لتعمل-على-32-64-bit/ والشيء الجديد فيه والذي لم يتم شرحه سابقا هو: المتغير hIcon (باللون الاصفر) ، تعريفه يعتمد على النواة : . وعندنا هذه الدالة fSetIcon ومعرفها Long ، وفي الدالة ، نعطي نتيجة hIcon الى fSetIcon . المشكلة لما نواة البرنامج تكون 64بت ، فحينها يكون معرف الحقل hIcon هو LongPtr ، بينما الدالة fSetIcon لا يزال معرفها Long ، وهنا نحصل على رسالة خطأ بعدم تطابق معرف الحقلين !! والطريقة التي استعملتها هي: استعمال الدالة مرتين ، مرة بمعرف LongPtr اذا كانت النواة 64بت ، ومرة بمعرف Long اذا لم تكن النواة 64بت : . وعلشان نعرف ان البرنامج تقبل هذا التغيير ، يجب ان نعمل Compile 🙂 جعفر Win32API_PtrSafe (2).zip

السلام عليكم كنت ابحث عن طريقة جيده للحماية وبالاستفسار هنا وطرح الاسئلة استفدت من معلومة من الاخوان في المنتدى بارك الله بهم , فكرة ان افضل طرق الحماية الحالية هيا وضع باسورد على قاعدة البيانات بمتداد accdb حيث سيكون من الصعب كسر حماية هذا النوع بسهولة ,, (لايوجد حماية مطلقه) لكن نتكلم عن حماية صعبة وليست سهله , فا الفكرة هوا عمل تطبيق صغير بللغة الفيجول بيسك استوديو الغرض منه فقط تشغيل الاكسيس الذي تم تعريف مساره وتم وضع كلمة السر بداخله حيث سيكون دور تطبيق الفيجول هوا تمرير كلمة السر وحمايتها, المرفق هوا ملف فيجول بيسك مفتوح المصدر حيث يمكن تعديل المسار وكلمة السر , فديو توضيح لعملية تشغيل الملف بعد التنصيب وتشغيل الاكسيس ,, الاكسيس المستخدم هوا الاحد الاخوان بالمنتدى لا اتذكر اسمه قمت بتجربته من باب السرعه 😅 يتطلب لامر وجود فيجول بيسك استوديو 2013 او اعلى اضافة مكتبة اكسيس عمل تحزيم للبرنامج بعد عمل البرنامج والانتهاء من التجربه يمكن حذف البرنامج عن طريق الذهاب الى Control Panel ثم تبحث عن موقع حذف البرامج واسمه Programs and Features هناك ابحث عن اسم البرنامج OpenAccessApplicationWithPassword قم بحذفه اذا احتجت ان تغير المسار او تعدل بالبرنامج , اضافة مكتبة : في يمين برنامج فيجول استوديو نضغط يمين على اسم المشروع OpenAccessApplicationWithPassword ونخار كما موضوح بالصورة بعدها نبحث في خيار Com عن الاكسيس كما موضح بالصورة ونختار المكتبة نأتي للتحزيم وهوا يتكون من خطوات بسيطة , الاول نضغط كلك ايمن على اسم المشروعOpenAccessApplicationWithPassword الموجود يمين برنامج فيجول استوديو ونختار properties بعدها كما موضوع في الصورة اولا نختار مكان حفظ ملفات التنصيب بعد التحزيم, ثم نختار الخيار الموضوح بالصورة ايضا الذي يجب اختياره قبل بدء عملية التحزيم ليتم الغاء جميع علامات الصح المؤشرة في المكتبات ثم نختار من الاسفل الخيار الذي بالوسط prerequisites دورة هوا تحميل جميع ملفات البرنامج الموجودة ثم نضغط OK ليعيدنا الى الصفحة الاولى - تابع اخر صورة بالاسفل أخيراً سنضغط على publish now بهذه الطريقة سيتم تحزيم البرنامج ويمكنكم التجربة بعدها حيث عند تشغيل ملف setup.exe سيتم تثبيت البرنامج وتشغيله مباشرة . ملاحظة ستحتاج الى مكتبة microsoft net framework 4.5 للتشغيل أخيرا الكود الموجود هو لاخ في منتدى اخر لا اتذكر الاسم بالضبط لكن ارجو الدعاء له بظهر الغيب ,, دوري كان تعديل الكود الذي قام بكتابته والغاء فقرة ادخال المسار والباسورد , والامر تطلب مني عده ايام بحث ويوم تعديل الكود بسبب خبرتي القليله في الفيجول استوديو , اتمنى ان تكون الفكرة ناجحة ولو احد الاخوان له باع في كسر حماية البرنامج التي تخص الفيجول استوديو يعطينى رأيه بطريقة التحزيم ولو هناك تحزيم بنوع تشفير معين يكون اقوى فا اتمنى ان يخبرنا الطريقة ,, بالتوفيق للجميع يارب ,, OpenAccessApplicationWithPassword.zip video.zip

السلام عليكم الفراغ الموجود في بعض الأرقام هو الحرف الذي رمزه 160 (ليس هو "المسافة" Espace التي رمزها 32)، لهذا أبدلت الدالة SUM بالدالة SUMPRODUCT وأضفت لها الدالة SUBSTITUATE لاستبدال الحرف الذي رمزه 160 بلا شيء (بمعنى آخر حذف هذا الحرف من الأعداد التي تحتويه)... أرجو أن تفي الغرض المطلوب... ordre virement.xls

تفضل هذا التعديل ex_01.accdb

تفضل هذا الكود اخي الكريم جملة اتصال + جملة الاستعلام+داتا تيبل و جاهزة للبراميتر اذا كان غرض الاستخدام لعمل شاشة تسجيل دخول كما انصحك بأن تجعل الموقع هذا في ضمن مراجعك بشكل دائم Access connection strings Using con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Data.mdbJet OLEDB:Database Password=MyDbPassword;;") Using cmd As New OleDbCommand("SELECT * FROM EmployeeDATA;") Using sda As New OleDbDataAdapter cmd.Connection = con sda.SelectCommand = cmd Using dt As New DataTable() sda.Fill(dt) GridView1.DataSource = dt GridView1.DataBind() End Using End Using End Using End Using

وكود اخر اخى الكريم بدون مصفوفات Sub Total() Dim ws As Worksheet, SH As Worksheet Application.ScreenUpdating = False Application.EnableEvents = False Application.DisplayAlerts = False If Not Evaluate("isref('" & "Total" & "'!A1)") Then Sheets.Add.Name = "Total" Set SH = ThisWorkbook.Worksheets("Total") SH.Range("A1").Resize(1, 19).Value = Array("V", "HH", "J", "K", "L", "DD", "HH", "K", "L", "P", _ "GG", "S", "DF", "GH", "HJ", "KJ", "FGH", "G", "Remarks") For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Total" And ws.Name <> "SUMMARY" And ws.Name <> "TIME" And ws.Name <> "HOLD" Then 'كود للنسخ العادي بدون مصفوفات ويجلب لك نفس تنسيق البيانات الاصليه ws.Range("A6:S" & ws.Cells(Rows.Count, 2).End(xlUp).Row).Copy _ SH.Range("A" & SH.Cells(Rows.Count, 2).End(xlUp).Row + 1) End If Next ws SH.Range("A1:S" & SH.Cells(Rows.Count, 2).End(xlUp).Row).EntireColumn.AutoFit Sheets("Total").Move ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Total.xlsb", FileFormat:=xlExcel12 Application.ScreenUpdating = False Application.EnableEvents = False Application.DisplayAlerts = False End Sub

كلام معلم .... صحي اخي الكريم .... منكم نتعلم

همممم وحسب المعلومة اللي طرحتها في الرابط اعلاه ، فيكفي هذا الكود : Private Sub Form_Load() Me.Caption = Space(127 - Len(Me.Caption)) & Me.Caption End Sub . جرب واعمل تغيير للرقم ، من 127 الى 129 ، وشوف التسمية كيف تكون متآكلة من النهاية 🙂 جعفر

نعم ، عند حدث "بعد تحديث" حقل البحث ، اكتب Me.Requery جعفر

Suppose date in cell A1, put the following formula in C1 and drag =IF(WORKDAY.INTL($A$1-1,COLUMN(A1),"0000110")>EOMONTH($A$1,0),"",WORKDAY.INTL($A$1-1,COLUMN(A1),"0000110")

@عبدالفتاح في بي اكسيلمتشكر جدا

وعليكم السلام 🙂 الشيء الوحيد الذي يأتي على بالي هو: مصدر بيانات النموذج هو استعلام ، وهذا الاستعلام به معيار يأخذ قيمته من حقل بحث النموذج ، ولكنك لم تخبر المعيار كيف يتعامل مع قيمة حقل البحث عندما يكون فارغ !! طبعا ، هذا مجرد مفهومي من شُح البيانات التي وضحت لنا المشكلة 🙂 جعفر

السلام عليكم اليك اخى الملف بعد التعديل وتنفيذ المطلوب برنامج فواتير المبيعات.xlsm

عليكم السلام جرب هذا AA.xlsm

السلام عليكم أعتقد أن المشكل في خاصية "تجميد الألواح" (Freeze Panes)، جرب إلغاء "تجميد الألواح"...

وعليكم السلام ورحمه الله وبركاته جرب هذا على حسب ما فهمت AA.xlsx

اخى الكريم لجعل ملف التجميع منفصل كود بسيط قبل هذا السطر في الكود Application.ScreenUpdating = True ضع هذه الاسطر Sheets("Total").Move ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Total.xlsb", FileFormat:=xlExcel12

يمكنك وضع رسالة تخبر المستخدم بوجوب الالتزام بالقائمة في حدث [ عند عدم الوجود في القائمة ] التابع للقائمة المنسدلة ، ولكني لم أعرف كيفية إيقاف الرسالة الافتراضية للبرنامج ..

وجزاكم مثله اخى الكريم والحمد لله الذي بنعمته تتم الصالحات

الموضوع بسيط جدا أخي ... فقط من خصائص القائمة المنسدلة > بيانات > إلتزم بالقائمة > نعم . مرفق لك التعديل : Database4.accdb

وعليكم السلام ورحمة الله وبركاته ضع هذا الكود في ملفك وشغله ستجد ملف باسم ملف REEL_DATA_OF_NOVEMBER_2021.Xlsb بجوار ملفك Sub Total() Dim ws As Worksheet, temp As Variant, arr As Variant, F As Boolean, lr As Long Application.ScreenUpdating = False Application.EnableEvents = False Application.DisplayAlerts = False For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Total" And ws.Name <> "SUMMARY" And ws.Name <> "TIME" And ws.Name <> "HOLD" Then temp = ws.Range("A6:S" & ws.Cells(Rows.Count, 2).End(xlUp).Row).Value2 If F Then Dim I As Long, ii As Long, ub As Long ub = UBound(arr, 1) arr = Application.Transpose(arr) ReDim Preserve arr(1 To UBound(arr, 1), 1 To ub + UBound(temp, 1)) arr = Application.Transpose(arr) For I = LBound(temp, 1) To UBound(temp, 1) For ii = 1 To UBound(temp, 2) arr(ub + I, ii) = temp(I, ii) Next ii Next I Else arr = temp F = True End If End If Next ws If Not Evaluate("isref('" & "Total" & "'!A1)") Then Sheets.Add.Name = "Total" With Sheets("Total") .Range("A2:S65536").ClearContents .Range("A1").Resize(1, 19).Value = Array("V", "HH", "J", "K", "L", "DD", "HH", "K", "L", "P", _ "GG", "S", "DF", "GH", "HJ", "KJ", "FGH", "G", "Remarks") .Range("A2").Resize(UBound(arr, 1), UBound(arr, 2)).Value2 = arr With .Range("A1:S" & .Cells(Rows.Count, 2).End(xlUp).Row) .Font.Bold = True .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .RowHeight = 15 ActiveWindow.Zoom = 75 .EntireColumn.AutoFit .Borders.Value = 1 End With End With ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "REEL_DATA_OF_NOVEMBER_2021", FileFormat:=xlExcel12 Application.ScreenUpdating = True Application.EnableEvents = True Application.DisplayAlerts = True End Sub

يرجى حذف ارقام هواتف الفتيات من الملف جزاك الله خيرا

السلام عليكم اليك اخى الملف بعد تنفيذ المطلوب قوائط الطالبات.xlsm

برجاء وضع الكود لتشغيل عجلة الماوس في الليست بوكس 1 حولة اضع الكود لكنه لايعمل معي @Ali Mohamed Ali الجوزات.xlsm

تفضل Dim stAppName As String stAppName = "C:\WINDOWS\system32\calc.exe" Call Shell(stAppName, 1) جعفر

السلام عليكم يبدو ان هناك مشكلة حدثت للملفات في الترقية الجديدة ويارك الله فيك اخي ضاحي على مجهودك الطيب وهنا الملفات مرة اخرى الدرس الأول UserForm.rar الدرس الثاني.rar الدرس الثالث textbox.rar الدرس الرابع.rar الدرس الخامس.rar الدرس السادس.rar

السلام عليكم اخي ياسر بارك الله فيك لم ار الموضوع من قبل لانشغالي لكنه واضح جهدك فيه فاكمل و لا تياس و الجميع وراؤك و ادعو لنا ان نساهم معكم و لو بالقليل في انتظار تكملتك للموضوع خالص تحياتي و تقديري

السلام عليكم ورحمة الله بارك الله فيكم إخواني على هذه الفكرة الطيبة وفقكم الله لكل خير وسدد خطاكم... وبارك الله فيك أخي الكريم ياسر وجزاك الله عنا ألف خير وخير... نحن معك بإذن الله تعالى نتابعك ونساندك في هذا المشروع الضخم... لدي رجاء إذا كان ليس في ذلك حرج... مازلت أعمل بالأوفيس 2003، رجاء إحفظ ملفاتك تحت نسق اوفيس 2003 أو تحت نسق pdf ليتسنى لنا متابعة الموضوع... وشكرا مقدما

و ما أدراك انه لا يستفيد منها احد إذا كنت تعتقد ذلك فا أنا أول المستفيدين رغم أني قرأت الكتاب قبل عدة أشهر إلا أني مستفيد من الذي تقدمه فا أكمل و لا تتقاعس

السلام عليكم ورحمة الله وبركاته الله إحفظ البراء ووالديه وأدخلهما ياربي الجنة أحبك في الله أخي أبو البراء المصري

أخي أبو عبد الرحمن المقدسي نعم أنا أعلم أن لحظة المخاض صعبة إذ رزقني الله مولوداً أسميته البراء من شهرين ونصف فقط ورأيت الآلآم التي تتكبدها الأم في لحظة الولادة أما بالنسبة للحمل فقد تم على خير ( أقصد كلا الحملين حمل البراء وحمل الدورة التي نحن بصددها)

الله يرحم استاذ عماد الحسامي .. ويبارك في شخصك اخي ارسلان