mrnooo2000

أولا ضع الصورة المطلوبة فى مسار محدد ثم عدل الكود كما بالمرفق EMP9.rar

لا اعرف ماذا تقصد بأنه لم يقبل بالحجز ؟ هل تقصد النص المكتوب على الازرار أم تقصد نموذج المريض عموما المرفق تم التعديل عليه بحيث يتم تحديث بيانات الاسرة كل ثانية تم تعديلها فى المرفق room manager.rar

نظريا ممكن ذلك و لكن حتى مع الجداول قد يحدث تضارب الاكسس عموما ضعيف فى موضوع الشبكات

ضع هذا الكود فى النموذج Private Sub Customer_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) fixwidth End Sub Private Sub Dafa_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) fixwidth End Sub Private Sub Form_C…

عذرا الموضوع مغلق للأسئلة يجب تحديد النوع سؤال وطرح نقاط عليه والحد الأدنى 3 نقاط وإلا سيغلق موضوعك فورا وسيحذف بعد ذلك حتى لو تمت الإجابة عليه .

أولا من الافضل الا تضع هذه القيم فى الجدول لانك تستطيع استخدامها و عرضها عن طريق الاستعلام ثانيا لتحديث الجدول بتلك القيم اعتقد ان الافضل هو استخدام dsum و هذه هى جملة الاستعلام بعد التعديل UPDATE Employees SET Employees.EmpSolfa1 = DSum("[solfa2]","[solaf]","…

استخدم هذا Me.txt.KeyboardLanguage = 3 Me.txt.KeyboardLanguage = 11 حيث 3 للعربى و 11 للانجليزى و txt هو اسم مربع النص الذى ستكتب فيه

بسيطة أخى استبدل السطر بهذا (لتحديد نوع قاعدة البيانات ) DoCmd.TransferDatabase acLink, "Microsoft Access", rs![SourPass], acTable, rs![TblName], rs![NewName]

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

هذه الدالة ستحقق لك ما تريد فقط ضعها فى النموذج سيتم من خلالها عرض بيانات كل سرير مع مراعاة الوقت المحدد Function GetBedData(bedno As String) As String GetBedData = "" Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("SELECT patient.* FROM patient WHERE ((…

للاسف اخى هذا غير متاح على ما اعتقد لا يوجد فارق اخى عدا ان الاخ السائل يريدها فى الاجراء العام ( الوجود بالوحدة النمطية ) و ليس فى كود الزر فى النموذج

اخى الكريم من خصائص الكومبو اذهب الى مصدر الصفوف انت كنت وضعت مصدر الصفوف >>>>>>>>>>>>>>>> الجدول ما تم تعديله هو تغيير الجدول الى استعلام ليتم ترتيب السجلات من خلاله

أخى الكريم الكود لا يحتاج الى تعديل ان شاء الله فقط انقله كما هو بالنسبة للسطر Set rs = CurrentDb.OpenRecordset("mylinkpass") لا تغير به شىء ( mylinkpass هو اسم الجدول الموجود به مسارات قواعد البيانات المطلوب الربط بها ) و بالنسبة للسطر DoCmd.TransferDatabase …

بالطبع أخى

اخ هشام اعتقد انك تحتاج وضع تصور نظرى لما تريد فعله قبل التنفيذ انا لم اجد مكان لعدد النسخ التى تمت استعارتها بمعنى ( عدد النسخ التى استعارها شخص معين ) اعتقد من وجهة نظرى ان الارجاع الافضل ان يتم حسب المستعير و ليس حسب الكتاب

ضع مثال لما تريد

استخدم خاصية البحث ستجد الكثير بالمنتدى هذا الموضوع به شرح مفصل /index.php?showtopic=231115&st=0&p=1147606&fromsearch=1entry1147606

اخى مالك هذه الدالة مكتوبة اساسا لحذف التكرار فى السجل كاملا و الموضوع موجود تفصيلا فى هذا الموضوع /index.php?showtopic=228053&st=0&p=1131648&fromsearch=1entry1131648 عموما لكى تقارن السجلات فى حقل الترقيم التلقائى اليك الدالة المعدلة Public Sub DeleteDuplicat…

كود التعديل يكون بهذا الشكل DoCmd.RunSQL "Update Work Set Work.[Type]=" & [Type] & ",Work.[StartDay]=" & [T-Dayss] & ",work.[StartDat]=" & [HI-Datess] & ",work.[EndDay]=" & [Daytewadss] & ",work.[EndDat]=" & [Dattewadss] & ",work.[TotalDay]=" & [Moditoha1] & "…

نعم اخى كانت هناك مشكلة مع الملفات بتنسيق 2000 عموما لقد راجعت الاكواد وتم تعديل الاكواد لتلافى المشكلتين السابقتين البرنامج موجود بالمشاركة الاولى ارجو من الاخوة الذين ظهرت لديهم مشاكل على اكسس 2010 التواصل لحل جميع المشاكل ان شاء الله و تقبل الله منا و منكم