بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
كل الانشطه
- الساعة الأخيرة
-
السلام عليكم ورحمة الله تعالى وبركاته اعتذر عن التأخير انشاء الله اليكم المرفق المبدئى يعمل بنجاح ولى عودة قريبا QRByColor.zip
-
- Today
-
أهلا بكم.. للمراسلة في بيئة مشتركة؛ يجب أن يأسس لهذه المراسلات جدول بيانات يوضع في قاعدة البيانات الخلفية. هذا أمر متعارف عليه ولا جدال فيه. لكن يبقى السؤال كيف نصل إلى معرف المرسل إليه؟ وكيف نشعره بوجود رسائل تخصه؟ من أسهل الطرق للوصول إلى معرف منضبط للمرسل والمرسل إليه: هو استخدام معرف ويندوز.. يمكن الوصول إلى هذا المعرف في أكسس باستخدم التابع ()Environ. بهذه الطريقة Public Function UserName() UserName = Environ("UserName") End Function وإرسال الرسائل واستقبالها بحاجة إلى ثلاثة عناصر... جدول البيانات.. نموذج معالجة الرسائل.. وأيضا نموذج عرض الرسائل.. مما يجب التنبيه عليه هو أن نموذج عرض الرسائل يجب أن يُفتح في وضع (التخفي) مباشرة مع النموذج الرئيسي سيقوم نموذج عرض الرسائل في حدث المؤقت بالبحث عن أخر سجل أرسل للمرسل إليه ولم يقم بتأكيد استلامة.. (وذلك كل نصف دقيقة) فإذا وجد سجلا مطابقا للشرط تقوم الشفرة بإنشاء نسخة مماثل لنموذج العرض بالسجل الأخير مع التنبه، عند المصادقة يتم إغلاقه. وإذا أرسلت رسالة أخرى قبل المصادقة، فسوف تظهر الأخيرة في نموذج عرض أخر.. ** هناك مسائل فنية في تكوين الشفرة سوف أناقشها مع الزملاء إن شاء الله.. لتجربة المثال المرفق.. جعلت نموذج معالجة الرسائل هو النموج الرئيسي وستلاحظ أن معرفك في ويندوز ظهر تلقائيا في حقل [Sender ID] قم بفتح كلتا القاعدتين المخصصة للواجهة الأمامية في آن واحد، ومن ثم قم بإعادة ربط جدول البيانات فيهما.. قم بفتح النموذج الرئسي (نموذج معالجة الرسائل) في كلا القاعدتين، ومن ثم قم بإرسالة رسالة لمعرفك (أدخل معرفك في حقل [Receiver ID]) من أحد القاعدتين ستلاحظ أن نموذج عرض الرسائل ظهر في كلا القاعدتين وذلك لأن معرف المرسل والمرسل إليه واحد.. أدخل رسالة أخرى من القاعدة الثانية ولاتنس إدخال معرف المرسل إليه (معرفك) ستلاحظ أن الرسالة ظهرت أيضا في كلا القاعدتين.. تنبيه.. عند تأكيد الرسالة اللاحقة قبل السابقة سوف تقوم الشفرة بإعادة فتح الرسالة السابقة بإعتبارها آخر سجل وفق الشروط أعلاه... هذا العيب يمكن إصلاحه بمساعدة الزملاء.. .. آمل أن تحوز هذه المشار على رضاكم.. !! أعمل على Office-64 Messanger.zip
-
تشغيل استعلام الالحاق بين تاريخين من الفورم
ابوخليل replied to ahmedabuzena's topic in قسم الأكسيس Access
الله يكون في عونك كل مشاكلك من التسميات الخاطئة مثل : تسمية حقل بـــــ Date وهي اشهر دالة في اكسس ترك فراغات في تسمية العناصر .. وادخال رموز منفردة في التسمية مثل $ ايضا تشابه التسميات فما تستطيع التفريق هل الاسم هذا لجدول او استعلام او نموذج اتمنى ان تتقدم الى الافضل مستقبلا .. ( حاول ان تستمتع وانت تعمل ) تم تعديل المثال وتحقيق طلبك Database new3.rar -
الملف المرفق لي المشاركه يحل المشكله من الواضح انك لم تتطلع عليه
-
منى أحمد joined the community
-
الصفحه المسماه Control مكتوب فيها اسماء الدخول والأرقام السريه ومكتوب فيها أيضا صلاحيات المستخدمين المشكله عندك ليست في الكود المشكله في الصلاحيات
-
تحياتي لجهودك المبذولة استاذ خليفة لقد قمت بحل المطلب بنفسي وهذا هو الحل للفائدة الحل.mdbالحل.mdb تحياتي استاذ دروب مبرمج قد قمت بحل المطلب بنفسي وسارفق الحل للفائدة الحل.mdb
-
استاذي العزيز شكرا على الاهتمام والمساعدة ولكن الملف الذي ارسلته سيادتك مازال احتاج به المساعدة لنفس المشكلة وهو يوجد شيت داخل الملف باسم CON شيت رقم 11 اريد عند فتح اي مستخدم يتم قتح الصفحة المخصصة له فقط فاذا قمت باخفاء الشيت يتم التشغيل بطريقة صحيحة ولكن عند اظهار الشيت مرة اخرى يحدث الخطأ يفتح في كل شيت يتم فتحه وانا ارسل لسيادتك مرة اخرى ملف العمل بنفس كلمات السر المرفقة سابقا شكرا على الاهتمام واسف على الاطالة test.xlsm
-
هل يمكن مسح المدخلات بدون حذف الدوال ..؟
-
انشاء شيت بعد ضغط كلمة ترحيل
ابو هاله النبلسي replied to ابو هاله النبلسي's topic in منتدى الاكسيل Excel
good work thanks very mach dear -
تشغيل استعلام الالحاق بين تاريخين من الفورم
ابوخليل replied to ahmedabuzena's topic in قسم الأكسيس Access
جاري العمل ... -
شكرا لك اخي ممنون لطفك
-
جزاك الله خيراً أخي الكريم شكرا لك
-
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
-
Moosak started following اريد اخفاء سجلات معينة واظهارها عند الحاجة
-
اريد اخفاء سجلات معينة واظهارها عند الحاجة
Moosak replied to ابو عبد الرحمن اشرف's topic in قسم الأكسيس Access
أخي @ابو عبد الرحمن اشرف استخدم المعايير في الاستعلامات .. ضع مثلا تحت حقل الشقق التالي : 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
- Yesterday
-
waheidi2005 started following مساعدة في استعلام
-
الزملاء الافاضل ارجو منكم مساعدتي فيما يلي عندما اقوم بفتح نموذج employee واختيار اسم ( سفيان رشيد) وترك السنة الدراسية فارغا اريد ان يحضر جميع السجلات في جدول alaqat من خلال استعلام qry_alaqat وعندما اقوم باختيار الاسم والسنة اريد ان يحضر سجلات السنة المختارة فقط لقد حاولت وبحثت ولم استطع ودمتم السجل الاشرافي.rar
-
استاذ حسونة ماذال نفس الخطأ طيب هل يوجد اي كود اخر يعمل بنفس النتيجه او كود يسمح لي اني اختار اي صورة بدون اي قيود
-
شغل الملف الذي ارفقته لك وافني بالنتيجه هل يوجد خطأ
-
-
اريد اخفاء سجلات معينة واظهارها عند الحاجة
ابو عبد الرحمن اشرف replied to ابو عبد الرحمن اشرف's topic in قسم الأكسيس Access
للاسف اخي لم يفيدني بشيء مشكور اخي وفي انتظار الاجابة الشافية -
استاذ حسونة حسين بارك الله فيك وفي من يحاول المساعده هو فعلا الاستاذ ضاحي واضع فايل بأسم dahy وبداخله صورة بأسم m ومع ذلك تعطيني الخطأ
-
كيف يتم تفريغ قاعدة البيانات
ابو عبد الرحمن اشرف replied to ابو عبد الرحمن اشرف's topic in قسم الأكسيس Access
بارك الله فيك اخي تم الامر