اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

  1. ابو جودي

    ابو جودي

    أوفيسنا


    • نقاط

      9

    • Posts

      6,818


  2. Moosak

    Moosak

    أوفيسنا


    • نقاط

      7

    • Posts

      1,997


  3. Hamtoooo

    Hamtoooo

    03 عضو مميز


    • نقاط

      4

    • Posts

      104


  4. أ / محمد صالح

    أ / محمد صالح

    أوفيسنا


    • نقاط

      3

    • Posts

      4,431


Popular Content

Showing content with the highest reputation on 26 يول, 2022 in all areas

  1. وعليكم السلام ورحمة الله وبركاته .. 🙂 مجهود رااااااااااااااائع من شخص تحفة .... بسم الله ما شاء الله ويبقى الأكسس معين لا ينضب ... وقدرة جبارة على حل جميع التحديات 😊💪 بس ناقصنا ملف التجربة (المثال) .. 😅 علشان زي منته عارف حضرتك .. المبتدئين أمثالنا 😁✌️
    5 points
  2. السلام عليكم .. الفكرة اعتمدتها من كم شهر وهي انني استبدلت رسائل التنبية في نظام اكسس (MSGBOX) مثلا لما يكون الحقل فارغ كانت بالنسبة لي مزعجة رسائل الـ msgbox لأن الحالة ما تستدعي انه يظهر لي الصندوق واضغط موافق عشان تروح 🙂 اولا اعتذر إذا كان الفكرة مكرره ولكن حبيت اشرحها بطريقتي بشكل مبسط وفيديو الفيديو يظهر فيه الشرح والطريقة التي اعتمدتها .. كل التوفيق تم تعديل الرابط
    4 points
  3. تم تعديل المرفق ليسهل الاحتفاظ ببيانات جوجل داخل جدول وذلك لاضفاء المرونة فى حالة اردتم تغيير بيانات جوجل ببريد اخر او تغيير اسم النسخة التى نريد رفعها او كلمة المرور بسهولة كذلك تم حمل الملفات المقدمة من قبل دكتور حسانين @SEMO.Pa3x داخل قاعدة البيانات لعدم فقدها ممكن عمل تشفير لبيانات جوجل داخل الجدول لمن يريد GoogleDriveUploader.zip
    3 points
  4. السلام عليكم ورحمة الله تعالى وبركاته الاكواد تعتمد على احد دوال ال API للويندوز وتم مراعاة العمل على كلا من النسختين 32 , 64 بيت الكود الاول فى راس الموديول وذلك لاحضار تنسيق تاريخ الجهاز Private Const LOCALE_USER_DEFAULT = &H400 Private Const LOCALE_SSHORTDATE = &H1F ' short date format string Private Const LOCALE_SLONGDATE = &H20 ' long date format string Private Const strTblFormatDate = "tblDateFormatWindows" #If VBA7 And Win64 Then Private Declare PtrSafe Function _ GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" _ (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long #Else Private Declare Function _ GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" _ (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long #End If Public Function GetDateFormatMyWin() Dim strLocale As String Dim lngRet As Long Dim strMsg As String strLocale = Space(255) lngRet = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, strLocale, Len(strLocale)) strLocale = Left(strLocale, lngRet - 1) GetDateFormatMyWin = strLocale End Function الكود الثانى التأكد من وجود جدول لحفظ تنسيق تاريخ الجهاز Function ifTableExists(tblName As String) As Boolean If DCount("[Name]", "MSysObjects", "[Name] = '" & tblName & "'") = 1 Then ifTableExists = True End Function الكود الثالث جلب البيانات لتسيق تاريخ الجهاز الذى تم حفظه بالجدول Public Function DateFormatwinSaved() As String DateFormatwinSaved = Nz(DLookup("DateFormatWindows", strTblFormatDate), "") End Function الكود الرابع تغيير تسيق التاريح لجهاز الحاسوب ولكن اولا تخزين القيم الاصلية لتنسيق تاريخ الحاسوب داخل جدول لمن يريد استرجاع التسيق الاصلى مرة اخرى Public Function ChnageDateFormat(Optional dtDateFormat As String = "dd/MM/yyyy") If GetDateFormatMyWin() = dtDateFormat Then Exit Function Else Dim mySQL As String If ifTableExists(strTblFormatDate) = False Then DoCmd.SetWarnings False mySQL = "CREATE TABLE " & strTblFormatDate mySQL = mySQL & "([ID] counter," & "[DateFormatWindows] text," & "CONSTRAINT [Index1] PRIMARY KEY ([ID]));" DoCmd.SetWarnings False: DoCmd.RunSQL mySQL: DoCmd.SetWarnings True mySQL = "INSERT INTO " & strTblFormatDate mySQL = mySQL & "( DateFormatWindows )" mySQL = mySQL & " SELECT " mySQL = mySQL & " ('" & GetDateFormatMyWin() & "') " DoCmd.SetWarnings False: DoCmd.RunSQL mySQL: DoCmd.SetWarnings True ElseIf ifTableExists(strTblFormatDate) = True Then If DCount("*", strTblFormatDate) = 0 Then mySQL = "INSERT INTO " & strTblFormatDate mySQL = mySQL & "( DateFormatWindows )" mySQL = mySQL & " SELECT " mySQL = mySQL & " ('" & GetDateFormatMyWin() & "') " DoCmd.SetWarnings False: DoCmd.RunSQL mySQL: DoCmd.SetWarnings True ElseIf DCount("*", strTblFormatDate) > 0 Then mySQL = "UPDATE " & strTblFormatDate mySQL = mySQL & " SET " & strTblFormatDate mySQL = mySQL & ".DateFormatWindows = " & Chr(34) & GetDateFormatMyWin() & Chr(34) & ";" DoCmd.SetWarnings False: DoCmd.RunSQL mySQL: DoCmd.SetWarnings True End If End If Shell "cmd.exe /c REG ADD ""HKEY_CURRENT_USER\Control Panel\International"" /v sShortDate /d """ & dtDateFormat & """ /F", vbHide End If End Function الكود الاخير ارجاع التنسيق مرة اخرى للحاسوب والذى تم الاحتفاظ به داخل الجدول Public Function ReturnOldDateFormatWin() If GetDateFormatMyWin() = DateFormatwinSaved() Then Exit Function Else Shell "cmd.exe /c REG ADD ""HKEY_CURRENT_USER\Control Panel\International"" /v sShortDate /d """ & DateFormatwinSaved & """ /F", vbHide End If End Function طيب فى النهاية يفضل استخدام ماكرو AutoExec والذى وظيفته تنفيذ إجراء او اجراءات معينة في كل مرة تبدأ فيها تشغيل قاعدة بيانات Access وفى الماكرو من خلال RunCode نكتب اسم الوظيفة التى نريد استدعاؤها وهى ChnageDateFormat() الان عند تشغيل القاعدة يتم فحص تنسيق تاريخ الجهاز وان كان مساويا للتنسيق الموجود فى الفانكشن ChnageDateFormat والذى وضعته افتراضيا من خلال Optional dtDateFormat As String = "dd/MM/yyyy" يتم تجاهل الامر وفى حالة الاختلاف يتم تغيير تنسيق تاريخ الجهاز الى هذا النسيق الذى تم الاعلان عنه فى رأس الوظيفة dd/MM/yyyy ولاضفاء المرونة قمت بتعريف متغير التنسيق على انه اختيار ووضعت الاختيار المفضل dd/MM/yyyy فى حالة اردتم تغيير التنسيق الى تنسيق أخر مثلا yyyy/MM/dd كل ما عليكم هو استدعاء الوظيفة فى الماكرو بالشكل الاتى ChnageDateFormat("yyyy/MM/dd") ان شاء الله بهذا الكود لن تواجهوا مستقبلا مشاكل اختلاف تنسيق التاريخ فى دوال المجال ولا اخطاء فى تسجيل التواريخ .. بلا ..بلا ..بلا.................... الخ الخ طيب لو اردتم ارجاع التنسيق الافتراضى الذى كان قبل ذلك والذى احتفظنا به فى الجدول كل ما عليكم هو استدعاء الوظيفة الاتية عند الاغلاق لقاعدة البيانات ReturnOldDateFormatWin() انتهى الشرح ارجوا لكم تجربة الاستمتاع بتلك الافكار وهذه التجربة الافكار والاكواد وطرح التصور حصرى من بنات افكارى وانا مجهد جدا جدا جدا قد يمكن اختصار الاكواد واختزالها ولم انتبه لذلك مثلا من شدة الارهاق فلا تؤاخذونى فى ذلك .. و ليدلوا كل بدلوه فى ذلك الامر ... تم التجربة على ويندوز 10 - 64 بيت ولا ادرى هل يعمل على باقى واختلاف نسخ الويندور ام لا انتظر الرد من حضراتكم بنتائج تجاربكم ووضع اقتراحاتكم
    2 points
  5. سوف اكتب لك ما اعرفه (اعتقده) اولا يجب ان تكون النماذج نماذج غير منضمه حتى يمكن للمستخدمين استلام البيانات من الجدول واعادة غلقها مره اخرى حتى تكون جاهزه للمستخدم الاخر ثانيا تقوم بتقسيم قاعدة البيانات (اماميه وخلفيه) تضع القاعده على جهاز سيرفر (وسيط) لا يغلق ابدا حتى يتمكن جميع المستخدمين من الاتصال به تعمل ربط للجداول مع القاعده الاماميه (اما يدويى او بالاكواد وهتلاقى مواضيع كثيره تتحدث عن هذا) وبكده تكون عملت ما تريد ^_^ ويمكن لجميع اساتذتى الكرام تصحيح ما اخطأت فيه او نسيت تقبل تحياتى ومرورى اخوك عمر
    2 points
  6. السلام عليكم ورحمة الله استخدم هذا الكود Sub TrData() Dim Sh As Worksheet, ws As Worksheet Dim LR As Long, i As Long Dim ShNam As String, Arr As Variant Dim Temp As Variant, j As Long, p As Long Set Sh = Sheets("الحركة") LR = Sh.Range("D" & Rows.Count).End(3).Row Arr = Sh.Range("C5:K" & LR).Value ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For Each ws In Worksheets If ws.Name <> Sh.Name Then ShNam = ws.Name For i = 1 To UBound(Arr, 1) If Arr(i, 2) = ShNam Or Arr(i, 5) = ShNam Then p = p + 1 For j = 1 To 9 Temp(p, j) = Arr(i, j) Temp(p, 1) = p Next End If Next Sheets(ShNam).Range("C5").Resize(p, UBound(Temp, 2)).Value = Temp End If p = 0 Next End Sub
    2 points
  7. السلام عليكم ورحمة الله وبركاته... قمت ببرمجة هذه الاداة تلبية لطلب اخونا @ابوخليل في هذا الموضوع هنا: الاداة مبرمجة 100% بلغة NET. وهي تستعمل مكتبات Google.Apis.Drive وهي تحتاج منصة الفريم ورك 4.5 ملاحظة: انا طبقت الشرح على نسخة احتياطية حيث وضعت الـ Path عبارة عن CurrentProject.FullName يمكنك استبداله بأي مسار صورة او فيديو او ملف او اي شي الشرح بصوتي الجميل😂: https://youtu.be/Uzj68nCaEbo الرابط الذي استعملته في التسجيل: https://console.developers.google.com/apis/credentials/oauthclient/ لا تنسوني ووالدي من صالح دعائكم. تم بحمد الله. GoogleDriveUploader.rar
    1 point
  8. فورم اكسل لاشهر أسماء رواة الاحاديث والصحابة لاداة باسم TreeViewControl الفيديو
    1 point
  9. شرح كيفية عمل جدول جاهز وفورم اضافة وتعديل وحذف الفيديو
    1 point
  10. إخواني الأعزاء هذا برنامج صغير لمتابعة الوثائق والتقرير عنها بأكثر من طريقة وبه إمكانية إضافة بيانات وثائق جديدة أو تعديل أو حذف الموجود مع إمكانية البحث بأكثر من طريقة إلى جانب وجود تقرير إفتتاحي عند فتح الملف بالوثائق المنتهية الصلاحية ومنه يوجد تقرير عن الساري الصلاحية وتقرير عن كل الوثائق لن أطيل الشرح وإن شاء الله تجدوه واضح وكلمة مرور فتح الملف هي 123 ويمكن تغييرها من داخل الكود . وقد وعدت أحد الإخوة بعمله بعد طرح فكرة التقرير الذي يظهر بالوثائق منتهية الصلاحية في مشاركة سابقة وكان ينقصه ظهور باقي الوثائق إن زاد عددها فأرجو أن يكون هذا مناسب . تقبلوا تحياتي أبو عبدالله برنامج نظام الوثائق.rar
    1 point
  11. للأسف لم أجد موضوع شافي وكافي يشرح الطريقة في المنتدى .. ولكن وجدت لك هذه الفيديوات تشرح لك الطريقة 🙂 : https://www.youtube.com/watch?v=A5cdjV2a9FQ https://www.youtube.com/watch?v=2I0aZmZ62Lk https://www.youtube.com/watch?v=ux7X8C3K_bU https://www.youtube.com/watch?v=3s9OI-6t8fM
    1 point
  12. السلام عليكم و رحمة الله اخى الكريم معذرة فقد كنت فى عجلة من امرى سقط منى سهوا ان انبهك بتغيير اسماء الشيتات التى تسمى حسب ايام الاسبوع كما هى مكتوبة فى عمود الايام بشيت الحركة يستحسن التغيير بنسخ اليوم من عمود الايام و لصقه فى تعديل اسم الشيت بدلا من كتابته عن طريق الكيبورد لضمان دقة تنفيذ الكود هذا و الله ولى التوفيق
    1 point
  13. يمكنك استعمال هذه المعادلة في الخلية C3 =IF(RIGHT(D3,8)="المحترمة",": الدكتورة المحاضرة",": الطبيب المحاضر") وتعديل هذا الكود في خدث قبل الدبل كلك Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("g10:j15")) Is Nothing Then Application.Calculation = xlManual Application.ScreenUpdating = False Application.EnableEvents = False ActiveSheet.Unprotect Password:="123" Target.Value = "Negative" ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:= _ False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=False, AllowInsertingColumns:=True, AllowInsertingRows _ :=True, AllowInsertingHyperlinks:=True Application.Calculation = xlAutomatic Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub بالتوفيق
    1 point
  14. يمكنك استعمال هذه المعادلة في الخلية B3 =INDIRECT("'"&A3&"'!B2") تم استعمال الفاصلة المفردة بحيث إذا كان اسم الشيت يحتوي على مسافة وإذا لم يكن يحتوي على مسافة فيمكن اختصار المعادلة =INDIRECT(A3&"!B2") مع سحب المعادلة لأسفل بالتوفيق
    1 point
  15. اسال عن التعقيدات تجد الشرح ومنه تتعلم بمرور الوقت وهذه كانت اولى خطواتى هنا ولازلت ان تعثرت فقط نصيحة لا تضع اسالة نظرية ارفق قاعدة بعدد قليل من البيانات ودع عالم الرياضيات فى مخيلتك دائما عند التصميم والتفكير الجواب يأتى بناء على معطى , مجهول , ثابت وتذكر جيدا هذه كلمات من ذهب ضعها نصب عينيك دائما وابدا
    1 point
  16. طيب وليه كل ده اضف الحقول الاتية فى الجدول الرئيسي منقطع - مفصول - موقوف على ان تكون من النوع Yes/No منقطع = yes مفصول = yes موقوف = yes وسوى استعلام ومرر اليه القيمى المعلمه ليقوم بعمل الفلتر تبعا للحالة الممرة او الابسط سوى عدد استعلامات تبعا لعدد الحالات وفى المعيار اختر حقل الفتر yes تبعا لكل حالة الموضوع ابسط من البساطة
    1 point
  17. وبخصوص العام الماضى والذى لا ادرى عنه ولا اعلم طلما تعامل الله فى اخوانك وفى نفسك أعرض عمن اساء اليك ولا تعر لكلماته اى اهتمام وانا دائما اذكر نفسي بتلك الكلمات عندما احس بإساءة حتى الجم نفسي واهدئ اعصابى و حتى لا يتغلب على الشيطان او هوى نفسى وهواناها لأقابل اى اساءة بمثلها 👇 كن في الحياة كشآرب القهوة !.. يستمتع بهــا رغم سوآدها ومرآرتهآ وتذكر قول الخشب للمسمار: لقد كسرتني وألمتني فرد المسمار قائلاً : لو كنت رأيت الدق فوق رآسي لكنت عذرتني فليعذر النآس بعضهم البعض فكل شخص لآيعرف ظروف الآخر إذآ إستمريت بـ هذه الحسآسية الزآئدة . . والحزن علي كل تصرف , فـ إنك ستحوّل حيآتك إلي جحيم ! تذكَر .. أن النآس تختلف في تفكيرهآ وطبآعهآ فما ترآه أنت جآرحاً .... قد يرآه غيرك أمراً تآفهاً هنآك موآقف مؤلمة قد تتعرض لهآ ولكن , إلي متي تجتر الموقف وتقف عليه ! إن أصآبك الألم ! عشه في لحظته .. ثم تجآوزه وكآفح من أجل تجاهله أشغل نفسك .. تنآسآه حتي يغيب عن ذآكرتك ! إحفظ لسانك أيها الإنسان لا يلدغـنـّك .. إنه ثعبان فكم في المقابرمن قتيل لسانه كانت تهاب لقاءه الشجعان وإذا حار أمرك في معنيين ولم تدرِ أين الخطا والصواب فخالف هواك فإن الهوى يقود النفوس إلى ما يعاب ولا تحاسب النآس عندما يخطئوآ ولا تذهب لغيرهم لتشكوا منهم .. لسانك لا تذكر به عورة امرئ فكلك عـورات وللــناس ألـســــــن وعينك إن أبدت إليك من الناس مساوءً فقل يا عيني للنـاس كذلك أعين واقضى حاجة المحتاج حتى لو كان اليك مسيئاً فأفضل الناس مابين الورى رجل تقضى على يده للناس حاجات لا تمنعن يد المعروف عن أحد ما دمت مقتدرا فالسعد تارات واشكر فضائل صنع الله إذ جعلت إليك لا لك عند الناس حاجات مهما إختفت من حياتك أمور ظننت أنها سبب سعادتك ! تأكد أن اللـه صرفها عنك قبل ان تكون سبباً في تعاستك عليك بتقوي الله ان كنت غافلاً أنظر لحالك كيف تعصاه ويأتيك بالارزاق من حيث لا تدري فكيف تخاف الفقر والله رازقاً فقد رزق الطير و الحوت في البحر و من ظن ان الرزق يأتي بقوة ما اكل العصفور شيئاً مع النسر تزول عن الدنيا فانك لا تدري اذا جنّ عليك الليل هل تعيش الي الفجر فكم من صحيح مات من غير علة و كم من سقيم عاش حيناً من الدهر وكم من فتي امسي و اصبح ضاحكاً وأكفانه في الغيب تنسج وهو لا يدري فمن عاش الفاً و الفيـــــــــــــن فلا بد من يوم يسير الـــــي القبـــــــــــر صافح وسامح .. ودع الخلق للخالق .. {فأنت****** .. وهم****** ..ونحن****** .. كلنا راحلوون إفعل الخير مهما استصغرته .. فلآ تدري أي حسنة تدخلك الجنة
    1 point
  18. جميع ما تحتاجه موجود في اجابة @Eng.Qassim اجابة و اقتراح من سطر واحد تغنييك عن تكرار الجداول عديمة الفائدة بإختصار قم بإضافة عمود جديد لتحديد حالة الطالب ( مستمر - منقطع - مفصول - موقوف - ........... الخ ) تعلم انشاء مثل هذه الاستعلامات بطريقة احترافية تسهل عليك العمل دوماً جرب استخدم الكود التالي في عمليات ( الإضافة - التحديث - الحذف - الاستعلام ) لإضافة بيانات جديدة للجدول استخدم الكود التالي On Error GoTo errorhandle Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("ضع هنا اسم الجدول") rs.AddNew rs.Fields("اسم العمود 1").Value = "القيمة1" rs.Fields("اسم العمود 2").Value = "القيمة2" rs.Fields("اسم العمود 3").Value = "القيمة3" rs.Update MsgBox "تم اضافة البيانات بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" errorhandleexit: Exit Function errorhandle: MsgBox Err.Description Resume errorhandleexit و لتحديث سجل محدد استخدم الكود التالي On Error GoTo errorhandle Dim rs As DAO.Recordset, SerTb As String, SetCoulmin As String, SetValue As String SerTb = "ضع هنا اسم الجدول" SetCoulmin = "اسم العمود في الجدول الذي يحتوي على المفتاح الرئيسي" SetValue = "حقل العيار الذي يحتوي على المفتاح الرئيسي في النموذج" Set rs = CurrentDb.OpenRecordset("SELECT * FROM " & SerTb & " where [" & SetCoulmin & "] Like '" & SetValue & "'") rs.Edit rs.Fields("اسم العمود 1").Value = "القيمة1" rs.Fields("اسم العمود 2").Value = "القيمة2" rs.Fields("اسم العمود 3").Value = "القيمة3" rs.Update MsgBox "تم تحديث البيانات بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" errorhandleexit: Exit Function errorhandle: MsgBox Err.Description Resume errorhandleexit و لحذف حقل استخدم الكود التالي On Error GoTo errorhandle Dim rs As DAO.Recordset, SerTb As String, SetCoulmin As String, SetValue As String SerTb = "ضع هنا اسم الجدول" SetCoulmin = "اسم العمود في الجدول الذي يحتوي على المفتاح الرئيسي" SetValue = "حقل العيار الذي يحتوي على المفتاح الرئيسي في النموذج" Set rs = CurrentDb.OpenRecordset("SELECT * FROM " & SerTb & " where [" & SetCoulmin & "] Like '" & SetValue & "'") rs.Delete MsgBox "تم حذف السجل بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit
    1 point
  19. القارئ كالحالب والسامع كالشارب وانا افضل الشرب اسهل واسرع وبدون عناء للعلم انا مجرد هاو لست مبرمجا فى الاساس ولا هذا مجال عملى اطلاقا ولكن تعملت ولازلت اتعلم من التحليل للامثلة العملية وهذا ما افضله واحبذه فتحليل النظم يزيد الخبرة ويوسع الافاق وخاصة بعد التحليل والفهم عندما تحاول ان تضع افكار اخرى يزيدك هذا افكار جديدة وتصورات مختلفة
    1 point
  20. في الحالتين انت تحتاج الى حقل حالة التلميذ..يتم تمييز الطالب المنقطع عن غيره انا ارى ان الطريقتين طريقة واحدة تحياتي
    1 point
  21. معلش ياجماعة .. أنا اسف حضراتكوا رديتوا علي بعض وسيبتوني أنا
    1 point
  22. مكتبة اكساس فريدة من نوعها تم تجميعها من العديد من المنتديات العربية و لجملة من الاسات\ة الكبار في عالم البرمجة في مجال الاكسيس اردت ان اثري بها المنتدى و افيد بها الزملاء اغلب بل معظم الملفات المرفقه مفتوحة المصدر وليست محميه كل ما هنالك انه تم اختيار نموذج معين في بدء التشغيل ليكون هو اول ما يفتح معاك اثناء تشغيل القاعده لذا اذا اردت من التخلص من ذلك ومعاينة اطار قاعدة البيانات كامله بما فيها الجداول والنماذج والاستعلامات والوحدلت النمطيه والماكرو اتبع الطريقة التالية 1. قبل فتح القاعدة المطلوبة اضغط مفتاح الشفت Shift من لوحة المفاتيح ثم قم بفتح قاعدة البيانات ولا ترفع يدك عن مفتاح الشفت حتى ترى اطار قاعدة البيانات وبها كل شيئ من جداول ونماذج واستعلامات وغيرها 2. توجه الى اشرطة الادوات في الاعلى من برنامج الاكسيس واختر ادوات ثم اختر بدء التشغيل وستجد النموذج الذي كان يظهر في البدايه اسمه موجود في الخانة العلوية اليسرى 3. قم بالضغط على السهم السفلي واختر none 4. ستجد في نفس اللوحة انه تم ازالة جميع علامة الصح منها قم بإعادة التأشير عليها كلها مرة ثانية ثم اغلق اللوحه واغلق البرنامج ثم اعد فتحه مره ثانية تجده قد عمل معك طبيعي بكل اطارات القاعدة التي تم اخفاء اجزاؤها من بدء التشغيل هاتف.rar الفنادق.rar برنامج ادراج الصور.rar اختبارات الطلاب.rar اختصارات أكسيس.rar اختيار التاريخ من التقويم.rar أكواد الاكسس.rar الرواتب 2000.rar الزكاة.rar الفرق بين تاريخين باليوم.rar الى محب الاكسس.rar برنامج أسئلة ممتاز.rar برنامج الادارة المدرسية.rar الى محب الاكسس.rar برنامج أسئلة ممتاز.rar برنامج التحفيظ.rar برنامج متابعة درجات طالبات الكلية.rar برنامج أسئلة ممتاز.rar برنامج الادارة المدرسية.rar برنامج التحفيظ.rar برنامج المدارس.rar برنامج متابعة درجات طالبات الكلية.rar تقريب المنازل العشريه.rar تنسيق شرطي.rar ديون 3.rar حساب عدد السنوات.rar شهادات تقدير.rar مركز الحرية التربويaccdb __.rar برنامج التحفيظ.rar توزيع الراتب الشهري.rar مدة البرنامج.rar مسابقات.rar
    1 point
  23. اوافق وبشدة رقم ٢ كثرة الاستعلام لا تزعج اخى وبشرت بكل خير يارب غفر الله لك ورزقت الجنة اخى فى الله
    1 point
  24. تم التعديل أخي هاني 🙂 تجميع غياب لكل طالب.mdb
    1 point
×
×
  • اضف...

Important Information