mhmadfarooq

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

سأقوم برفع الملف النهائي عند الانتهاء لابداء ملاحظاتكم النيرة والمفيدة... ولك جزيل الشكر اعزائي

لا يمكن التعديل على النصوص واضافة مريض... اشكرك على المحاولة, لكن لم اوفق بحل المشكلة

السلام عليكم:

اقوم حاليا بتصميم برنامج محاسبة لمركز طبي, بحيث يكون فيه عدد من الاطباء لكل منهم معاينة خاصة محددة مسبقاً ونسبة لهذه المعاينة (بحيث يتم تقسيم المعاينة بين المركز والطبيب بنسبة محددة مسبقاً), ويتم ادخال المستهلكات (سيروم-ابرة عضلية-جبس ...) والتي تكون محددة مسبقاً, لكل مريض على حدا, بمعنى آخر يتم ادخال اسم المريض والطبيب المعالج والمستهلكات ويتم جمع الحساب كامل, ثم يتم حساب نسبة معاينة الطبيب من المجموع الحسا الكامل...

ماأواجهه من مشاكل هو عند اختيار اسم الطبيب يتم استدعاء معلومات المعاينة والنسبة من جدول الاطباء, لكن عند تصميم الاستعلام يظهر الفورم فارغاً, 

ارجو مساعدتي في التصميم ولكم جزيل الشكر

قاعدة البيانات2.rar

شكرا لك اخي العزيز

2 ساعات مضت, د.كاف يار said:

هل النماذج مضمه ؟؟ ان كان الجواب نعم فهذه مشكلة

لم افهم قصدك؟

2 ساعات مضت, د.كاف يار said:

- الاضافة و الحذف و التعديل ماهي الطريقة التي اتبعتها ؟؟؟

- في رأي لو قمت بعمل النماذج على بيئة عمل VB.NET لكان افضل حيث ان عدد المستخدمين يعتبر كبير

معظم الاوامر كانت باستخدام vb المدمج مع الاكسس, 

اعذرني لضعف مصطلحاتي, فلم يمضي على تعلمي الاكسس الشهر فقط

ارجو منك الايضاح ولك جزيل الشكر

السلام عليكم

قمت بعمل تصميم قاعدة بيانات لابحاث طبية باستخدام الاكسس, وقمت بتقسيمها الى واجهة امامية "front end" وواجهة خلفية "back end". وأريد ربط هذه القاعدة على شبكة المشفى الداخلية بحيث تكون مستخدمة من قبل حوالي 40 كمبيوتر,

والسؤال هو: ماهي المشاكل التي يمكن ان تواجهني في هذا المشروع وكيفية تفاديها؟

ولكم جزيل الشكر 

16 minutes ago, د.كاف يار said:

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

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

اذا كان فعلا وصفي متوافق مع طلبك اتبع الآتي

 

في حدث عن الفتح فقط ضع التالي

On Error Resume Next
Me.Form.DataEntry = True
Me.Form.FilterOn = False
Me.Form.Requery
Me.FilterOn = False
Me.Requery

و في ازرار البحث ضع التالي مع اضافة الحقول التي ترغب بها و فقط المعطيات

On Error Resume Next
dim 1 ,x2
x1= "اسم الحقل في الجدول"
x2= "اسم الحقل في النموذج"
Dim varFilter As Variant
varFilter = Null  
   If Not IsNull([x2]) Then
      varFilter = (varFilter + " AND ") & "[x1] LIKE '*" & [x2] & "*'"
   End If  
   With Me.Form  
   If Not IsNull(varFilter) Then
     .DataEntry = False
     .Filter = varFilter
     .FilterOn = True
   Else
    .FilterOn = False
   End If
    .Requery
  End With

 

 

و اي استفسار انا في خدمتك و خدمة جمييع الاعضاء الكرام

شكر ا لك صديقي على الرد:

مااريد بحسب المرفق الا يظهر اي سجل في التابع عند فتح النموذج, فقط عند ضغط زر البحث

search_2.zip

4 hours ago, essam rabea said:

اخى mhmadfarooq

كلمة السر ايه او اعد الارفاق بدون كلمة سر

عموما فى حدث on load للنموذج الرئيسى ضع 

تابع22.visible=false

وفى حدث عند الضغط على زر البحث ضع فى آخر الكود

تابع22.visible=true

لعله يفيد

عذرا تم رفع القاعدة مع كلمة مرور...

القاعدة بدون كلمة مرور

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

اي اراء اخرى 

وشكراً للجميع

search.zip

:السلام عليكم

لدي قاعدة البيانات التالية مع نموذج بحث

:المطلوب

عدم عرض النتائج البحث الا عند ادخال عناصر البحث, اي عدم عرض السجلات عند تحميل النموذج

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

search.zip

9 hours ago, ابوآمنة said:

تابع الموضوع التالي :

 

 

شكرا لك اخي العزيز, لكن فكرتي هي في حال عدم وجود اتصال بالانترنت عند المستخدم

السلام عليكم, 

لم يمضى على بداية عملي وتعلمي على الاكسس مدة شهر , وقد تعلمت الكثير والكثي من هذا المنتدى الرائع.

قمت بتصميم قاعدة بيانات خاصة للمشفى الذي اعمل به,ولكن واجهتني مشكلة ارسال تحديث لواجهة قاعدة البيانات او الـFront-end للمستخدمين وهم كثر في المشفى,  بحثت في المنتديات والمواقع دون فائدة,

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

أرجو اغناء الفكرة من قبلكم اصدقائي

update.zip