هذه الصفحة تحدث تلقائياً   

  1. Yesterday
  2. جزاك الله خيرا استاذ مجدي اشكرك على اهتمامك وموضوع الفورم انا مبتدئ بالاكسل والشخص الي طلب مني عمل برنامج بسيط لانه هيدفعلي مبلغ بسيط لكن الانسان بيتعلم كل يوم اكرمك الله وجزاك الخير ممكن معليش سوال استاذ مجدي هل من معالجة لمسالة الفتح والاغلاق الي بتطول جزاك الله خيرا
  3. يبدو من الجهاز لو احد الاخوة الذين حملوا الملف يشوف انا التاريخ
  4. نعم استاذي القدير جعفر هذا هو المطلوب لكن هنالك مشكلة وهي المفروض انه بعد الربط مع القاعدة الصحيحة اول مرة لايعاود طلب الربط معها مرة اخرى الا في حال تغيرت الجداول أليس كذلك؟ تحياتي
  5. الاخ ناصر فى ملفك بداية المشروع على الرابط التالى نفس المشكلة الملف فى الاسفل صورة من الملف ياترى المشكلة فىن بدايه مشروع 6.rar
  6. انا اطلب من حضراتكم تحميل ملفكم الذي تتحدثون عنه
  7. الشكر لله اخي عبدالباري البنا تحياتي لك
  8. الاخوة الافاضل ... لقد وجدت ضالتي من اعمال الاستاذ مجدي يونس ولكن اذا سمحتم لي ارغب في التعديل على هذا البرنامج 1 - ارغب بتوسيط الكلام المتحرك وتكبير الخط 2- ارغب في تغيير لون الخط وتغيير الخلفية التي خلف الخط 3- ارغب عند الضغط على الكبسة التى عليها لا اله الا الله يظهر الفورم كما بالبرنامج ويختفي شيت الاكسل 4- قمت بوضع كبسة على الفورم لفتح شيت الاكسل مرة اخرى واخفاء الفورم ولكم جزيل الشكر كلام متحرك.rar
  9. استاذي جغفر لك تحياتي توقف البرنامج اقصد هنا اني لا استطيع ان اقفله كلياً ام انى افتح اي نموذج اما بخصوص الرسالة لا تظهر لدي رسالة والسبب عند فتح البرنامج عملت واجهه ادارية بملئ الشاشة واما الحدث هو ماكرو اسمه ( emaildatabaseobject ) عملت عند النقر يمكنك بارسال رسالة على الايميل المطلوب هو بعد اجراء ارسال رسالة على الايميل يخرجني نهائي من البرنامج
  10. السلام عليكم لمنع إضافة سجلات استعمل الكود التالي: Me.AllowAdditions = False لمنع حذف سجلات استعمل الكود التالي: Me.AllowDeletions = False لمنع التعديل على السجلات استعمل الكود التالي: Me.AllowEdits = False أما بالنسبة لإستعمالها في صلاحيات المستخدمين يمكنك استعمال ثلاثة أرقام مثلا: 1: له كل الصلاحيات 2: يستطيع الإضافة فقط 3: المشاهدة فقط (يمنع من جميع الصلاحيات التعديل ,الإضافة و الحذف) نستعمل الكود التالي في حدث عند التحميل للنموذج : If VaUser=1 Then Me.AllowDeletions = True Me.AllowAdditions = True Me.AllowEdits = True ElseIf VaUser=2 Then Me.AllowDeletions = False Me.AllowAdditions = True Me.AllowEdits = False Else Me.AllowDeletions = False Me.AllowAdditions = False Me.AllowEdits = False End If
  11. جزاك الله خيرا على المجهود المبذول لاحظت أن مثلا : اقتصر على 3 أسماء في كل من اللائحة 1 و2 فسينقص من الجدول الذي به الملاحظات يجب أن يبقى جدول الملاحظات بكامل أسطره أما msg و الإشارة للأسماء التي تنقصها خانة الجنس فما شاء الله فذلك هو المطلوب وهل ممكن إستثناء مادة الفرنسية من هذا الإجراء أي التحقق من كثابة الجنس لأن الملاحظات بها لايهم تحديد الجنس بالتحقق من المادة في : 011 جزاك الله خيرا وجعله في ميزان حسناتك
  12. السلام عليكم ورحمة الله رجاء من خبراء الاكسل كما في المثال .......... ولكم منى جزيل الشكر والاحترام..........
  13. ورقة النتيجه فيها ان السبت 28 جمادى الاول مش الجمعه
  14. مجهودات مشكورة أخي الكريم جزاك الله خيرا وجعله في ميزان حسناتك. إلا اني منذ الرد الاول احمل الملف وأدخل لمحتوياته لكن ملفاته لا تفتح. تظهر دائرة تبقى في الدوران على اي ساحاول مرات عديدة ولما يفتح وأطلع على إنجازك سارد عليك جزاك الله خيرا.
  15. السلام عليكم ومشاركة مع اخي رمهان ، اليك الكود الذي يقارن جداول FE مع جداول BE قاعدة البيانات التي تم اختيارها ، فاذا الجداول موجودة ، يخبرك بذلك ، ويربط الـ FE بالـ BE ، وإلا ، فسيخبرك ولن يفعل شئ: Option Compare Database Private Sub Command0_Click() On Error GoTo Err_Command0_Click Dim stDocName As String Dim stLinkCriteria As String 'j DoCmd.Close 'j stDocName = "frm" 'j DoCmd.OpenForm stDocName, , , stLinkCriteria BackFile = GetOpenFile() If Len(BackFile & "") = 0 Then Exit Sub Dim FrontObj As AccessObject, FrontDB As Object Dim BackObj As TableDef, BackDB As Database, PW As String, PWD As String Set FrontDB = Application.CurrentData 'the Selected BE Set BackDB = DBEngine.Workspaces(0).OpenDatabase(BackFile, True, False, PWD) 'Start with a table to look for For Each FrontObj In FrontDB.AllTables If left(FrontObj.NAME, 4) <> "MSys" And FrontObj.NAME <> "BackDBs" Then FE = FrontObj.NAME 'look for that table in BE For Each BackObj In BackDB.TableDefs If left(BackObj.NAME, 4) <> "MSys" Then BE = BackObj.NAME If BackObj.NAME = FrontObj.NAME Then Same = 0 GoTo Found_It Else Same = 1 End If End If 'BackObj Next BackObj If Same = 1 Then GoTo Not_Same Found_It: End If 'FrontObj Next FrontObj 'All Good MsgBox "All FE tables exist in BE" Set FrontDB = Nothing Set BackDB = Nothing 'link the tables Call AutoLink Exit Sub Not_Same: 'No Good MsgBox "The FE table : " & FrontObj.NAME & vbCrLf & _ "Is Not in the BE" Set FrontDB = Nothing Set BackDB = Nothing Exit_Command0_Click: Exit Sub Err_Command0_Click: MsgBox Err.Description Resume Exit_Command0_Click End Sub وعملت تغيير بسيط في الوحدة النمطية التي تقوم بالربط جعفر 605.test.mdb.zip
  16. عند دخولي للرابط حذرني المتصفح بان الموقع غير امن الا اني تجاهلتة احاول اظهار الشيتات المخفية الى الان ولم استطيع
  17. السلام عليكم ورحمة الله وبركاتة تحية طيبة وبعد ,,, مرفق الملف موافي المطلوب مع الحفاظ علي الترتيب الملف المرفق : شيت الثالث11.rar
  18. الاخ ناصر الجمعة عندى 28 جماد وليست 29
  19. دخلت على هذا الرابط نموذج للأستاذ / أحمد زمان حماية الملف وصلاحيات للمستخدمين http://www.officena.net/ib/index.php?showtopic=30498#entry152813 وقمت بتحميل الملف من الرابط وبعد اقفالة قام باخفاء شيتات المصنف الي اشتغل فية كامل ولا استطيع استعادتها
  20. انا قمت بتنزيل ملف التطبيق وكنت فتح مصنف فية مشروعي كمان قمت اغلق ملف التطبيق لكن الان المشكلة مصنف مشروعي اختفت فية الشيتات كامل مافي غير شيت الاعداد كيف اعيد تفعيل شيتات مصنفي لو امكن طبعا انا في الاكواد الي استخدمتها ماعملت امر لاخفاء شيتات المصنف خاصتي ممكن طريقة لالغاء اخفاء الشيتات
  21. ============================== طباعة ارقام الجلوس للمحترم ياسر العربي الكود مع الشرح Private Sub CommandButton1_Click() Dim x As Long, y As Long, z As Byte ' وضع قيمة التكست بوكس 2 داخل المتغير Y y = TextBox2.Value ' وضع قيمة التكست بوكس 3 داخل المتغير Z z = TextBox3.Value 'حلقة تكرارية بداية من التكست بوكس 1 الى المتغير واي الذي يحمل قيمة التكست2 For x = TextBox1.Value To y 'هنا يتم وضع ارقام الجلوس تباعا لكل خلية من التسع خلايا 'اول خلية تساوى المتغير اكس والذي يحمل ارقام الجلوس التى حددناها من قبل 'والخلية التالية نضع املتغير اكس بالاضافة الى واحد ليحمل رقم الجلوس التالي 'وهكذا مع الخلايا الاخرى الخاصة بارقام الجلوس 'اما الشروط المضافة بجانب الخلايا IF[]>y then []="" 'فهذه تم وضعها فقط للتأكد من ان قيمة الخلايا لا تزيد عن اخر رقم جلوس وهو ما يحمله المتغير واي 'فاذا تحقق الشرط وكان رقم الجلوس اكبر من اخر رقم يتم مسحه وهذه الشروط لا نستعملها الا في اخر صفحة يتم طباعتها [B6] = x: If [B6] > TextBox2.Value Then [B6] = "" [B16] = x + 3: If [B16] > y Then [B16] = "" [B26] = x + 6: If [B26] > y Then [B26] = "" [H6] = x + 1: If [H6] > y Then [H6] = "" [H16] = x + 4: If [H16] > y Then [H16] = "" [H26] = x + 7: If [H26] > y Then [H26] = "" [N6] = x + 2: If [N6] > y Then [N6] = "" [N16] = x + 5: If [N16] > y Then [N16] = "" [N26] = x + 8: If [N26] > y Then [N26] = "" 'سطر الطباعة وعدد النسخ تساوي z 'والتى تساوي تكست بوكس تلاته التى نضع بها عدد النسخ المطلوبة ActiveWindow.SelectedSheets.PrintOut Copies:=z ', Preview:=True 'هنا نقوم باضافة ثمانية ارقام الى المتغير اكس ليصبح محموعهم 9 ليتخطى تسع ارقام جلوس كل دورة 'داخل الحلقة التكرارية حتى نهاية الحلقة x = x + 8 'نكست اي يعود مرة اخرى لاول الحلقة التكرارية لتطبيق الاكواد مرة اخرى Next MsgBox "Done.....", 64 Me.Hide End Sub Private Sub UserForm_Activate() 'هنا في حدث تنشيط الفورم 'تكست واحد تساوى اول رقم جلوس TextBox1.Text = Sheets("بيانات الطلبة").Range("B7").Value 'تكست2 تساوي اخر رقم جلوس TextBox2.Text = Sheets("بيانات الطلبة").Range("B" & Sheets("بيانات الطلبة").Cells(Rows.Count, 2).End(xlUp).Row).Value End Sub
  22. اولا اشكرك اخي العزيز sandanet على مرورك الكريم وجاري الفهم والتطبيق والرد سيكون لاحقا وبارك الله فيك
  23. وعليكم السلام الأخ الكريم / waledm جرب الملف المرفق تم عمل الدالة المطلوبة على مادة اللغة العربية يمكنك تكملة باقى المواد بنفس الطريقة وإن لم تتمكن راسلنى وأنا فى الخدمة . وتقبل تحياتى شيت الثالث1.rar
  1. Load more activity