alsajy

السلام عليكم ورحمة الله وبركاته أخواني لدي قاعدة بيانات كبيره ومشروع كبير ولكن اختصرتها في مثال بسيط ومشكلتي هي في نموذج عملية البحث بطريقة الفرز وضعت لكم مثال مشروح عليه المشكله أرجو من يجد فيه القدرة على حلها أن يساعدني لإتمام هذا البرنامج قاعدة البيانات معموله على اوفس 2010 وتم تحويلها على اوفس 2003 ولكم جزيل الشكر SearchFor Fixing2.zip SearchFor Fixing2003.zip

شكراً لك على الرد قاعدة البيانات الي شغال عليها لم أنتهي منها بعد ولكن كل ما أريده هو طريقة الكود الأول مع الشرح إذا أمكن وجزاك الله خير

السلام عليكم ورحمة الله بحثت في قوووقل عن طرق ربط الأكسس عبر الشبكة المحلية وليس عبر السيرفر فلا يوجد لدي سيرفر حيث لدي ما يقارب ال 20 جهاز بعضها في نفس المبنى وأخرى في مبنى مستقل وبعيده جداً ولكن تربطها شبكة داخلية إنترا نت أريد عمل ربط بقاعدة بيانات أكسس حيث سأعمل على تقسيم قاعدة البيانات إلى front End و Back End ثم عمل مجلد مشاركة ثم توزيعها على بقية الأجهزة ولكن من السهل فتح مجلد المشارة من طرف أي جهاز آخر وحذف البرنامج وهناك طريقة ال UDL وعملت ملف حسب المرفق ولكن ما هي الخطوة التالية أين أضع رباط هذا الملف ؟؟؟ ثانياً : كيف مل هذا الكود : للاستخدام المشترك (أكثر من مستخدم): plain text "C:\Program Files\Microsoft Office\Office11\MSACCESS.EXE" "XXXXXXXX.mde" /WRKGRP "XXXXXXX.mdw"[/size][/b][/font] [font=arial,helvetica,sans-serif][b][size=4]وللتعديل (للفتح الحصري ويجب أن يكون مغلق لدى جميع المستخدمين): plain text "C:\Program Files\Microsoft Office\Office11\MSACCESS.EXE" "XXXXXXXXX.mde" /EXCL /WRKGRP "XXXXXXXXX.mdw"[/size][/b][/font] [font=arial,helvetica,sans-serif][b][size=4] ثم ما المقصود بهذا الإمتداد XXXXXXX.mdw ومن هو ؟؟ ConnString.rar

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

السلام عليكم ورحمة الله وبركاته أخي الكريم شوف المثال بعد التعديل على الكود ووضع علامتي تنصيص كما شرحت بارك الله فيك ولاكن ما يظهر إلا الرقم الأول فقط وأيضاً عند إدخال رقم جديد فوق رقم جديد تظهر رسالة بأن الموظف غير موجود هل تريد إضافته وعند الجواب بنعم يتم الكتابه فوق رقمه القديم !! فهل من حل آخر لهذه المشكلة؟؟؟ المثال مرفق بعد التعديل SearchbyText_3.rar

السلام عليكم المعذرة على تأخري في الرد يبدو أني ما وضحت المثال لأني جعلت فورمين وجدولين ولكن الآن جعلته فورم واحد وجدول واحد وهو ما زال لا يعمل لماذا ؟؟؟ لأن رقم الموظف في الجدول من نوع نص .. هل تستطيع الآن أن تعدل في الكود كما تفضلت بارك الله فيك مع أني حاولت وضع علامتي تنصيص ولكن ما زال هناك خطأ ما دري فين windows-1256__Searchby Text.rar

السلام عليكم كثر الطلب على كود يعيد تحجيم النماذج لتتناسب مع حجم شاشة المستخدم وهذا الكود قد وضعته في ملف واحد وهي عبارة عن مثالين داخل ملف أكسس واحد عند فتح البرنامج إفتح النموذج الي اسمه : frmwelcome وهذا للمثال الأول أما للمثال الثاني افتح النموذج الي اسمه : frmwelcome2 وستجد ما يسركم من الكودات عسى الله ينفع بها الجميع والسلام عليكم Example_1+2_ For changing ScreenDPI.rar

أخي الكريم قم بتحميل المرفقات التالية : وتوجد بها عدة أمثلة يمكنك الإستفاده منها Example_1+2_ For changing ScreenDPI.rar

السلام عليكم ورحمة الله كل عام وأنتم بخير لدي برنامج موظفين وفيه كود لعرض بيانات الموظف عند إدخال رقم الموظف ولكن بشرط أن يكون رقم الموظف من نوع رقم وليس نص المطلوب هو التعديل على هذا الكود بحيث يعمل على رقم الموظف وإن كان من نوع نص Text لأن رقم الموظف يحتوي على أرقام وأحرف . والمثال مرفق Dim myrec As Recordset Dim rs As Object Set rs = Me.Recordset.Clone Set myrec = CurrentDb.OpenRecordset("SELECT [sn] as MyNO" & _ " FROM Table1 " & _ " WHERE ((([sn]) =" & Me.sn & ")) " & _ " GROUP BY [sn];") If myrec.RecordCount > 0 Then Undo rs.FindFirst "[sn] = " & Str(myrec!MYNO) If Not rs.EOF Then Me.Bookmark = rs.Bookmark ElseIf myrec.RecordCount = 0 Then If MsgBox(" åÐÇ ÇáÑÞã ÛíÑ ãæÌæÏ ! ! ! åá ÊÑíÏ ÅÖÇÝÉ ÈíÇäÇÊ ÌÏíÏå ¿ ", _ vbCritical + vbYesNo + vbMsgBoxRight + vbDefaultButton1, _ " äÊíÌÉ ÇáÈÍË ") = vbYes Then DoCmd.GoToControl "nametxt" Else Undo DoCmd.GoToRecord , , acNewRec Me.sn.SetFocus End If End If عمل هذا الكود كالتالي: عند إدخال رقم الموظف إذا كان هذا الموظف مدخل في البرنامج مسبقاً تظهر بياناته مباشرة , وإذا كان غير مدخل في البرنامج تظهر رسالة بنعم أو لا بإن هذا الموظف غير موجود في البرنامج هل تريد إظافته؟ فإذا كان الجواب لا تتصفر البيانات من جديد وإذا كان الجواب نعم يبقى الرقم الذي أدخلته وتفتح خانات جديده لبقية البيانات. وقد عدلت في هذا الكود حتى أصبح يعمل بالطريقة المذكورة ولكن أريد الآن أن يعمل على رقم الموظف من نوع نص Text وليس رقم . وإذا كان هناك كود آخر يفي بالغرض لا ما نع ... والمثال مرفق أرجو المساعدة من مشرف الأكسس Searchby Text.rar

الحل هو أن تلغي المطالبة بكلمة المرور من إعدادات الشبكة وأمر آخر يجب توحيد اسم القروب في كل الأجهزة ليسهل التعريف عليها وبيمين الماوس اختر المشاركة للجميع والسلام

نعم في إنتظار تعليق الأستاذ / accessna

الأخ / cheecky_boy25 الأخ / hammamory الف شكر لكم بالنسبة للطريقة الأولى تعمل في تحديد الكل وإلغاء تحديد الكل ولكن عند تحديد عدد معين ثم إلغاء تحديد الكل يبقى آخر مربع تم تحديده عليه علامة صح . جزاك الله كل خير أما الطريقة الثانيه حقيقه طريقة الخبراء زادك الله من علمه تعمل بنجاح . جزاك الله كل خير .

حقيقه فكره رائعة جداً وخاصة لو كان بها إمكانية إضافة أوامر أخرى . شكراً لك

السلام عليكم لدي فورم مستمر به سجلات عديدة وأمام كل سجل وضعت مربع نعم/لا كيف أستطيع أن أنشء زر لتحديد الكل وزر آخر لألغاء تحديد الكل لأتمكن من طباعة المحدد فقط أو طباعة الكل أو الحذف وهكذا . يوجد مثال واضح وبه الشرح كامل . MARK_ALL.rar

الأخ /accessna نعم فتحت الفورم وشفت الكود ولكن ما يمكن عمل ذلك بالكويري مباشرة ؟؟ ليكون أسهل . الأمر الثاني لاحظت أن هذا السطر : If Not IsNull(Me.Combo31) Then Condition = Condition & IIf(Condition = "", "", " And ") & _ "[ACC] =" & Me.Combo31 End If يختلف عن هذا السطر حيث أن هذا يوجد به الأمر Like وهذه العلامة "'"& بينما الأول لا يوجد به فما السبب ؟؟: If Not IsNull(Me.Combo35) Then Condition = Condition & IIf(Condition = "", "", " And ") & _ "[B/S] Like '" & Me.Combo35 & "'" End If ومذا لو كانت أحد القيم عبارة عن مربع نعم/لا كيف رح يكون شكل الكود أرجو أن تفيدنا جزاك الله خير الأخ / cheecky_boy25 ولماذا حفظ الفورم وهو فورم لبيانات متغيره (unbound) أو قصدك نعمل إستعلام إنشاء جدول بحيث عند تنفيذ عملية البحث يقوم بإنشاء جدول ويضع به القيم التي قمنا بأختياراها ثم يفتح التقرير ويعرض هذه القيم من الجدول ثم ننشئ إستعلام حذف يقوم بحذف هذه البيانات من الجدول وهكذا .... لم أجرب هذه الطريقة ولكنها تعتبر كخداع للأكسس وطريقة لن نستطيع تعلم الكودات عن طريقها .. وشكراً لك