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

كل الانشطه

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

  1. الساعة الأخيرة
  2. السلام عليكم ورحمة الله تعالى وبركاته اعتذر عن التأخير انشاء الله اليكم المرفق المبدئى يعمل بنجاح ولى عودة قريبا QRByColor.zip
  3. بارك الله فيك أخي الكريم ك .... هل يمكن ترتيب النسخ تواليا اي بخلاف نسخ المتقابل... وشكرا مثال
  4. Today
  5. أهلا بكم.. للمراسلة في بيئة مشتركة؛ يجب أن يأسس لهذه المراسلات جدول بيانات يوضع في قاعدة البيانات الخلفية. هذا أمر متعارف عليه ولا جدال فيه. لكن يبقى السؤال كيف نصل إلى معرف المرسل إليه؟ وكيف نشعره بوجود رسائل تخصه؟ من أسهل الطرق للوصول إلى معرف منضبط للمرسل والمرسل إليه: هو استخدام معرف ويندوز.. يمكن الوصول إلى هذا المعرف في أكسس باستخدم التابع ()Environ. بهذه الطريقة Public Function UserName() UserName = Environ("UserName") End Function وإرسال الرسائل واستقبالها بحاجة إلى ثلاثة عناصر... جدول البيانات.. نموذج معالجة الرسائل.. وأيضا نموذج عرض الرسائل.. مما يجب التنبيه عليه هو أن نموذج عرض الرسائل يجب أن يُفتح في وضع (التخفي) مباشرة مع النموذج الرئيسي سيقوم نموذج عرض الرسائل في حدث المؤقت بالبحث عن أخر سجل أرسل للمرسل إليه ولم يقم بتأكيد استلامة.. (وذلك كل نصف دقيقة) فإذا وجد سجلا مطابقا للشرط تقوم الشفرة بإنشاء نسخة مماثل لنموذج العرض بالسجل الأخير مع التنبه، عند المصادقة يتم إغلاقه. وإذا أرسلت رسالة أخرى قبل المصادقة، فسوف تظهر الأخيرة في نموذج عرض أخر.. ** هناك مسائل فنية في تكوين الشفرة سوف أناقشها مع الزملاء إن شاء الله.. لتجربة المثال المرفق.. جعلت نموذج معالجة الرسائل هو النموج الرئيسي وستلاحظ أن معرفك في ويندوز ظهر تلقائيا في حقل [Sender ID] قم بفتح كلتا القاعدتين المخصصة للواجهة الأمامية في آن واحد، ومن ثم قم بإعادة ربط جدول البيانات فيهما.. قم بفتح النموذج الرئسي (نموذج معالجة الرسائل) في كلا القاعدتين، ومن ثم قم بإرسالة رسالة لمعرفك (أدخل معرفك في حقل [Receiver ID]) من أحد القاعدتين ستلاحظ أن نموذج عرض الرسائل ظهر في كلا القاعدتين وذلك لأن معرف المرسل والمرسل إليه واحد.. أدخل رسالة أخرى من القاعدة الثانية ولاتنس إدخال معرف المرسل إليه (معرفك) ستلاحظ أن الرسالة ظهرت أيضا في كلا القاعدتين.. تنبيه.. عند تأكيد الرسالة اللاحقة قبل السابقة سوف تقوم الشفرة بإعادة فتح الرسالة السابقة بإعتبارها آخر سجل وفق الشروط أعلاه... هذا العيب يمكن إصلاحه بمساعدة الزملاء.. .. آمل أن تحوز هذه المشار على رضاكم.. !! أعمل على Office-64 Messanger.zip
  6. الله يكون في عونك كل مشاكلك من التسميات الخاطئة مثل : تسمية حقل بـــــ Date وهي اشهر دالة في اكسس ترك فراغات في تسمية العناصر .. وادخال رموز منفردة في التسمية مثل $ ايضا تشابه التسميات فما تستطيع التفريق هل الاسم هذا لجدول او استعلام او نموذج اتمنى ان تتقدم الى الافضل مستقبلا .. ( حاول ان تستمتع وانت تعمل ) تم تعديل المثال وتحقيق طلبك Database new3.rar
  7. الملف المرفق لي المشاركه يحل المشكله من الواضح انك لم تتطلع عليه
  8. الصفحه المسماه Control مكتوب فيها اسماء الدخول والأرقام السريه ومكتوب فيها أيضا صلاحيات المستخدمين المشكله عندك ليست في الكود المشكله في الصلاحيات
  9. تحياتي لجهودك المبذولة استاذ خليفة لقد قمت بحل المطلب بنفسي وهذا هو الحل للفائدة الحل.mdbالحل.mdb تحياتي استاذ دروب مبرمج قد قمت بحل المطلب بنفسي وسارفق الحل للفائدة الحل.mdb
  10. استاذي العزيز شكرا على الاهتمام والمساعدة ولكن الملف الذي ارسلته سيادتك مازال احتاج به المساعدة لنفس المشكلة وهو يوجد شيت داخل الملف باسم CON شيت رقم 11 اريد عند فتح اي مستخدم يتم قتح الصفحة المخصصة له فقط فاذا قمت باخفاء الشيت يتم التشغيل بطريقة صحيحة ولكن عند اظهار الشيت مرة اخرى يحدث الخطأ يفتح في كل شيت يتم فتحه وانا ارسل لسيادتك مرة اخرى ملف العمل بنفس كلمات السر المرفقة سابقا شكرا على الاهتمام واسف على الاطالة test.xlsm
  11. هل يمكن مسح المدخلات بدون حذف الدوال ..؟
  12. Try this code Sub Test() Dim wk As Worksheet, sh As Worksheet, ws As Worksheet, lr As Long Set wk = ThisWorkbook.Worksheets(1) Set sh = ThisWorkbook.Worksheets(2) Set ws = CopyWorksheet(wk.Name, wk.Range("B5").Value) Application.ScreenUpdating = False With sh lr = .Cells(Rows.Count, "J").End(xlUp).Row + 1 .Range("B" & lr).Resize(, 5).Value = wk.Range("B5").Resize(, 5).Value .Range("I" & lr).Resize(, 3).Value = Array(wk.Range("D13").Value, wk.Range("D23").Value, wk.Range("D30").Value) .Range("L" & lr).Formula = "=SUM(I" & lr & ":K" & lr & ")" .Range("N" & lr).Value = wk.Range("F41").Value Application.Goto .Range("A1") End With Application.ScreenUpdating = True End Sub Function CopyWorksheet(ByVal sheetName As String, ByVal newName As String) As Worksheet Application.ScreenUpdating = False On Error Resume Next Application.DisplayAlerts = False ThisWorkbook.Worksheets(newName).Delete Application.DisplayAlerts = True On Error GoTo 0 ThisWorkbook.Worksheets(sheetName).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) ActiveSheet.Name = newName Set CopyWorksheet = ActiveSheet Application.ScreenUpdating = True End Function
  13. أخي @ابو عبد الرحمن اشرف استخدم المعايير في الاستعلامات .. ضع مثلا تحت حقل الشقق التالي : Not In(1308, 1307, 1302) وهكذا .. تضيف الأرقام التي لا تريدها أن تظهر بين القوسين. 🙂
  14. اشكرك على كل حال سوف اقول بالتعديل عليها ارد لك علم مع احترامي وتقديري لك الف الف شكرا
  15. أهلا بك.. يمكن استخدام الشفرة التالية في حدث النموذج KeyDown Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Static I As Integer, PgCnt As Integer PgCnt = Me.MyTabs.Pages.Count - 1 Select Case KeyCode Case Is = 34 If I <= 0 Then Me.MyTabs = 0 Else I = I - 1 Me.MyTabs = I End If Case Is = 33 If I >= PgCnt Then Me.MyTabs = PgCnt Else I = I + 1 Me.MyTabs = I End If End Select Debug.Print KeyCode End Sub TabCtrlNav.zip
  16. Yesterday
  17. الزملاء الافاضل ارجو منكم مساعدتي فيما يلي عندما اقوم بفتح نموذج employee واختيار اسم ( سفيان رشيد) وترك السنة الدراسية فارغا اريد ان يحضر جميع السجلات في جدول alaqat من خلال استعلام qry_alaqat وعندما اقوم باختيار الاسم والسنة اريد ان يحضر سجلات السنة المختارة فقط لقد حاولت وبحثت ولم استطع ودمتم السجل الاشرافي.rar
  18. استاذ حسونة ماذال نفس الخطأ طيب هل يوجد اي كود اخر يعمل بنفس النتيجه او كود يسمح لي اني اختار اي صورة بدون اي قيود
  19. شغل الملف الذي ارفقته لك وافني بالنتيجه هل يوجد خطأ
  20. استاذ حسونة حسين بارك الله فيك وفي من يحاول المساعده هو فعلا الاستاذ ضاحي واضع فايل بأسم dahy وبداخله صورة بأسم m ومع ذلك تعطيني الخطأ
  1. أظهر المزيد
×
×
  • اضف...

Important Information