كل الانشطه

السلام عليكم ورحمة الله تعالى وبركاته اعتذر عن التأخير انشاء الله اليكم المرفق المبدئى يعمل بنجاح ولى عودة قريبا QRByColor.zip

بارك الله فيك أخي الكريم ك .... هل يمكن ترتيب النسخ تواليا اي بخلاف نسخ المتقابل... وشكرا مثال

للرفع

أهلا بكم.. للمراسلة في بيئة مشتركة؛ يجب أن يأسس لهذه المراسلات جدول بيانات يوضع في قاعدة البيانات الخلفية. هذا أمر متعارف عليه ولا جدال فيه. لكن يبقى السؤال كيف نصل إلى معرف المرسل إليه؟ وكيف نشعره بوجود رسائل تخصه؟ من أسهل الطرق للوصول إلى معرف منضبط للمرسل والمرسل إليه: هو استخدام معرف ويندوز.. يمكن الوصول إلى هذا المعرف في أكسس باستخدم التابع ()Environ. بهذه الطريقة Public Function UserName() UserName = Environ("UserName") End Function وإرسال الرسائل واستقبالها بحاجة إلى ثلاثة عناصر... جدول البيانات.. نموذج معالجة الرسائل.. وأيضا نموذج عرض الرسائل.. مما يجب التنبيه عليه هو أن نموذج عرض الرسائل يجب أن يُفتح في وضع (التخفي) مباشرة مع النموذج الرئيسي سيقوم نموذج عرض الرسائل في حدث المؤقت بالبحث عن أخر سجل أرسل للمرسل إليه ولم يقم بتأكيد استلامة.. (وذلك كل نصف دقيقة) فإذا وجد سجلا مطابقا للشرط تقوم الشفرة بإنشاء نسخة مماثل لنموذج العرض بالسجل الأخير مع التنبه، عند المصادقة يتم إغلاقه. وإذا أرسلت رسالة أخرى قبل المصادقة، فسوف تظهر الأخيرة في نموذج عرض أخر.. ** هناك مسائل فنية في تكوين الشفرة سوف أناقشها مع الزملاء إن شاء الله.. لتجربة المثال المرفق.. جعلت نموذج معالجة الرسائل هو النموج الرئيسي وستلاحظ أن معرفك في ويندوز ظهر تلقائيا في حقل [Sender ID] قم بفتح كلتا القاعدتين المخصصة للواجهة الأمامية في آن واحد، ومن ثم قم بإعادة ربط جدول البيانات فيهما.. قم بفتح النموذج الرئسي (نموذج معالجة الرسائل) في كلا القاعدتين، ومن ثم قم بإرسالة رسالة لمعرفك (أدخل معرفك في حقل [Receiver ID]) من أحد القاعدتين ستلاحظ أن نموذج عرض الرسائل ظهر في كلا القاعدتين وذلك لأن معرف المرسل والمرسل إليه واحد.. أدخل رسالة أخرى من القاعدة الثانية ولاتنس إدخال معرف المرسل إليه (معرفك) ستلاحظ أن الرسالة ظهرت أيضا في كلا القاعدتين.. تنبيه.. عند تأكيد الرسالة اللاحقة قبل السابقة سوف تقوم الشفرة بإعادة فتح الرسالة السابقة بإعتبارها آخر سجل وفق الشروط أعلاه... هذا العيب يمكن إصلاحه بمساعدة الزملاء.. .. آمل أن تحوز هذه المشار على رضاكم.. !! أعمل على Office-64 Messanger.zip

الله يكون في عونك كل مشاكلك من التسميات الخاطئة مثل : تسمية حقل بـــــ Date وهي اشهر دالة في اكسس ترك فراغات في تسمية العناصر .. وادخال رموز منفردة في التسمية مثل $ ايضا تشابه التسميات فما تستطيع التفريق هل الاسم هذا لجدول او استعلام او نموذج اتمنى ان تتقدم الى الافضل مستقبلا .. ( حاول ان تستمتع وانت تعمل ) تم تعديل المثال وتحقيق طلبك Database new3.rar

الملف المرفق لي المشاركه يحل المشكله من الواضح انك لم تتطلع عليه

الصفحه المسماه Control مكتوب فيها اسماء الدخول والأرقام السريه ومكتوب فيها أيضا صلاحيات المستخدمين المشكله عندك ليست في الكود المشكله في الصلاحيات

تحياتي لجهودك المبذولة استاذ خليفة لقد قمت بحل المطلب بنفسي وهذا هو الحل للفائدة الحل.mdbالحل.mdb تحياتي استاذ دروب مبرمج قد قمت بحل المطلب بنفسي وسارفق الحل للفائدة الحل.mdb

استاذي العزيز شكرا على الاهتمام والمساعدة ولكن الملف الذي ارسلته سيادتك مازال احتاج به المساعدة لنفس المشكلة وهو يوجد شيت داخل الملف باسم CON شيت رقم 11 اريد عند فتح اي مستخدم يتم قتح الصفحة المخصصة له فقط فاذا قمت باخفاء الشيت يتم التشغيل بطريقة صحيحة ولكن عند اظهار الشيت مرة اخرى يحدث الخطأ يفتح في كل شيت يتم فتحه وانا ارسل لسيادتك مرة اخرى ملف العمل بنفس كلمات السر المرفقة سابقا شكرا على الاهتمام واسف على الاطالة test.xlsm

هل يمكن مسح المدخلات بدون حذف الدوال ..؟

good work thanks very mach dear

جاري العمل ...

شكرا لك اخي ممنون لطفك

جزاك الله خيراً أخي الكريم شكرا لك

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

أخي @ابو عبد الرحمن اشرف استخدم المعايير في الاستعلامات .. ضع مثلا تحت حقل الشقق التالي : Not In(1308, 1307, 1302) وهكذا .. تضيف الأرقام التي لا تريدها أن تظهر بين القوسين. 🙂

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

أهلا بك.. يمكن استخدام الشفرة التالية في حدث النموذج 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

الزملاء الافاضل ارجو منكم مساعدتي فيما يلي عندما اقوم بفتح نموذج employee واختيار اسم ( سفيان رشيد) وترك السنة الدراسية فارغا اريد ان يحضر جميع السجلات في جدول alaqat من خلال استعلام qry_alaqat وعندما اقوم باختيار الاسم والسنة اريد ان يحضر سجلات السنة المختارة فقط لقد حاولت وبحثت ولم استطع ودمتم السجل الاشرافي.rar

استاذ حسونة ماذال نفس الخطأ طيب هل يوجد اي كود اخر يعمل بنفس النتيجه او كود يسمح لي اني اختار اي صورة بدون اي قيود

شغل الملف الذي ارفقته لك وافني بالنتيجه هل يوجد خطأ

للاسف اخي لم يفيدني بشيء مشكور اخي وفي انتظار الاجابة الشافية

استاذ حسونة حسين بارك الله فيك وفي من يحاول المساعده هو فعلا الاستاذ ضاحي واضع فايل بأسم dahy وبداخله صورة بأسم m ومع ذلك تعطيني الخطأ

بارك الله فيك اخي تم الامر