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)

أو قصدك نعمل إستعلام إنشاء جدول بحيث عند تنفيذ عملية البحث يقوم بإنشاء جدول ويضع به القيم التي قمنا بأختياراها ثم يفتح التقرير ويعرض هذه القيم من الجدول ثم ننشئ إستعلام حذف يقوم بحذف هذه البيانات من الجدول وهكذا ....

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

وشكراً لك

السلام عليكم

شكراً لك على التعديل ولكن ممكن تبين لي وين الخلل

لأني أشوف ملفات الأستعلام مافيها أي تغيير

فأين التغيير حصل ؟؟؟؟

السلام عليكم وشكراً على البرنامج

الحقيقه كنت أواجه مثل هذه المشكلة فوجدت كود غلق الجهاز في الأنترنت وعمله سهل

قم بفتح ملف مفكرة جديد وألصق الأمر التالي في المفكرة:

shutdown -s -t 3600 -n "shutdown after one H"

حيث الرقم 3600 تعني ساعة كاملة ويمكنك تغييرها وذلك بضرب كل دقيقه في 60 يعني لو بغيت الجهاز يغلق بعد ربع ساعه أضرب 60 ثانية في 15 دقيقه = 900

ثم قم بحفظ المفكرة بأي أسم واجعل إمتداد الملف bat. يعني راح يكون اسم الملف مثلاً هكذا shutdownpc.bat

ثم افتح الملف واترك الجهاز حتى تنتهي المده ويغلق من حاله ويمكنك وضعه مع مجلد بدأ التشغيل

السلام عليكم

هذا برنامج كمثال لعمل بحث متعدد عن طريق الأستعلام

وأريد أكماله بالبحث عن طريق البحث بين تاريخين ولكن واجهتني مشكله

لا أحد يقولي حط هذا الكود في الأستعلام :

Between [Forms]![filter_frm]![txtStartDate] And [Forms]![filter_frm]![txtEndDate]

لأني أضفته ولكن يحتاج إلى بعض التعديل .

الملف مرفق يوضح كل شي

BetweenDatesProblem.rar

السلام عليكم

مازال نموذج البحث لا يعمل مع أني غيرت ما يلزم لاحظ الأخطاء في المرفقات

multyflterfortesting_afterfixing.rar

الأخ أسامة أولاً كل عام وأنت بخير ومن العايدين

ثانياً أشكرك على الرد

فعلاً هذا ما كنت أبحث عنه ولكن هذا يخص الكمبو بكس فقط وأنا أريده بعدة أشكال كمبو بوكس و حقول فارغه ومربع أختيار نعم/لا وتاريخ مثل ما عملته في مثالي , فهل ممكن التعديل في مثالي المرفق .

وشكراً لك

السلام عليكم ورحمة الله

أخواني عملت قاعدة بيانات لأختبارات الطلبة كمثال مصغر لعملية فلترة البيانات ولكن توجد مشكلة في تنفيذ عملية الفتر حيث تظهر جميع النتائج والمفروض ظهور النتائج المحدده والمطلوبة فقط

هذا المثال سييفد الجميع في نقله إلى برامج الأكسس الأخرى بعد تعديله

أرجو منكم المساعدة

المثال موجود في المرفقات مع شرح المشكلة على النموذج وشكراً لكم

وكل عام وأنتم بخير

multyflterfortesting.rar

طيب وأيش المطلوب يعني ؟؟؟؟

كذا بس واجهة تغيير المستخدم والباسوورد !!!

شكراً لك

السلام عليكم

تعرفون كود إقاف سكرول الماوس والذي يحتاج إلى مكتبة DLL ليعمل الكود بشكل صحيح , حيث يجب إرفاق مكتبة الـ DLL في نفس مسار البرنامج , فكيف أستطيع دمج هذه المكتبة مع برنامجي بحيث عند فتح البرنامج يستخرج ملف الـ DLL مباشرة في نفس المسار ؟؟؟

حيث من الصعوبة أن تشرح لكل مستخدم للبرنامج بأن يضع ملف الـ dll مع البرنامج كما أنه قد يحُذف الملف فعندها لن يعمل البرنامج بشكل كامل .

أرجو المساعدة وجزاكم الله خيراً .

السلام عليكم

جاري التحميل وجاري التجربة

وشكراً لك على المساعدة

يبدو أن الملف المرفق معطوب