كل الانشطه

قرات المكتوب 1- للإضافة اختار (NEW) ثم اسم المريض ثم زر الاضافة 2- لحذف مجلد (Next) لتصل لاسم المريض المراد حذف مجلده ثم زر ازالة مجلد 3- لحذف صورة (Next) لتصل لاسم المريض واسم الصورة المراد حذفها ثم زر ازالة صورة زر new غير مفعل كيف افعلة لكى استطيع الاستمرار وتجربة البرنامج البرنامج اول ماتفتح البرنامج بيكون الزر غير مفعل اية خطوة البداية لتفعيل الزر

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

احتاج تعديل بلكود اخى يعمل من d2 وينفذ التعديل فى نفس العمود لا ينقل المعدل فf كل عام وانتم بخير وصحه وسلامه اشكرك اخي الكريم الحبيب

تم عمل اللازم المهم ان اللي عملت لك عبارة عن تأسيس ادرس المثال جيدا .. يمكن التطوير مستقبلا الجداول التي عليها العمل هي جدولي الحركة ( الرأس والتفصيل ) لذا عملت لك نماذج ادخال بيانات ( وارد / صادر ) يمكننا اختصار نموذجي الرأس بنموذج واحد ولكن فصلهما ارى انه اقوى لاجتناب الخلط والبعد عن زيادة الاكواد بقية النماذج يمكنك عملها على ما تبقى من الجداول لانها تعتبر نماذج خدمية رصيد اول المدة يتم ادخاله من نموذج الوارد .. ونكتب في الملاحظات : رصيد اول المدة ... ويمكننا ايضا كتابة هذه العبارة ضمن الموردين لاحظ : تم ضم جدولي العملاء ( موردين وطالبين ) ضمن جدول واحد تم ضم الاصناف الواردة والاصناف الصادرة في جدول واحد .. وفصل الكميات ( كل نوع في عمود يخصه ) هذه الطريقة تجعل الاستعلامات تعمل بكل يسر واستخراج الارصدة بطريقة صحيحة .. stock2.rar

جزاك الله خير يا غالي

طيب سنعمل على الطريقة المعتادة انتظرني سوف ارتب لك جداولك

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

تفضل نموذج جاهز لحساب العمر حساب-العمر.accdb

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

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

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

السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل ورقة عمل Microsoft Excel جديد.xlsx

السلام عليكم ورحمه الله وبركاته شوف حضرتك المرفق كده عملت بعض التعديلات البسيطه حسب فهمي للموضوع قد تكون غير مكتملة أو ناقص تظبيط فيها لو هو ده قريب من اللي حضرتك عايزه ممكن اكمل فيه stock1.rar

الخبير الفاضل كل عام وانتم بخير عيد اضحى سعيد البرنامج شبة متوقف زر new غير مفعل ولا استطيع اضافة مريض لا من خلال الضغط على new انظر الصورة

اخى فى الله أبوعيد اشكرك الكود لم يعمل اخى فى الله AbuuAhmed اشكرك ممتاز الكود ممتاز احتاج شرح بسيط

For c = 1 To 2 For j = 3 To 4 Me("Label" & c).Left = (Me.Width / 1.5) - (Me("Label" & c).Width / 1.5) Me("Label" & j).Left = (Me.Width / 2) - (Me("Label" & j).Width / 1.6) Next Next يمكنك تعديله بالشكل التالي مع التلاعب قليلا بالمكان الاصلي لعناصر label على اليوزرفورم 1.rar

مشكور اخي مرة اخرى على الرد والمتابعة فيما يخص حساب الرصيد في حالة هبة وردت مقدرة ب 20 كغ من الصنف 1 وبعدها وردت 500 كغ هنا الرصيد الخاص بهذا الصنف الوارد هو 520 ثم نضيف له الرصيد الابتدائي للصنف المجموع ننقص منه الصادر ما قمنا باخراجه من المخزن فنحصل على الرصيد النهائي للصنف الوحدات التي اتعامل معها هي الكليوغرام والقطعة و المتر و... وممكن تكون وحدات اخرى وكل صنف له وحدة خاصة به وبارك الله فيك اخي الكريم

نفس المشكلة سأحاول عند وصولى المنزل واوافيكم بالنتيجة سأكون معكم على تواصل

الف شكر jo_2010 وكذلك الاستاذ AlwaZeeR على جهدهم وتم عمل المطلوب كما اريد بالضبط اكرر شكرى للاستاذ AlwaZeeR جزاك الله كل خير

انسخ الكود ده فى زرار الأمر Private Sub command_Click() Dim codeToExecute As String codeToExecute = Me.mycode.Value On Error GoTo ErrorHandler ' تنفيذ الكود الموجود في مربع النص Eval codeToExecute Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء تنفيذ الكود: " & Err.Description, vbCritical End Sub بعدها انسخ الكوده فالتكست Dim dbs As DAO.Database Set dbs = CurrentDb Dim strConnect As String strConnect = "ODBC;DRIVER={SQL Native Client};" & _ "SERVER=WIN-O7711S4F355\SQLEXPRESS;" & _ "DATABASE=main;" & _ "UID=administartor;" & _ "Trusted_Connection=Yes;" For Each qdf In dbs.QueryDefs If qdf.Type = dbQSQLPassThrough Then qdf.Connect = strConnect qdf.ReturnsRecords = True End If Next qdf هتشتغل معاك إن شاءالله

وعليكم السلام ورحمه الله وبركاته Private Sub PrintReports_Click() Dim reportNumber As String ' افترض أن "رقم التقرير" هو اسم حقل النص في النموذج reportNumber = Me!رقم_التقرير On Error GoTo ErrorHandler ' فتح التقرير أ باستخدام رقم التقرير كمعيار DoCmd.OpenReport "التقرير أ", acViewPreview, , "رقم_التقرير = '" & reportNumber & "'" DoCmd.PrintOut , , , , , True ' الطباعة على الوجه الأول ' الانتقال إلى التقرير ب باستخدام نفس المعيار DoCmd.OpenReport "التقرير ب", acViewPreview, , "رقم_التقرير = '" & reportNumber & "'" DoCmd.PrintOut , , , , , False ' الطباعة على الوجه الثاني ' إغلاق التقارير بعد الطباعة DoCmd.Close acReport, "التقرير أ" DoCmd.Close acReport, "التقرير ب" Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء الطباعة: " & Err.Description, vbCritical End Sub جرب الكود ده ووافنى بالرد مع مراعات تغيير اسماء التقارير وان الطابعه تكون بتطبع علي وجهين

هذا هو الكود المراد تنفيذه ولم يتم Dim dbs As dao.Database Set dbs = CurrentDb Dim strConnect As String strConnect = "ODBC;DRIVER={SQL Native Client}" _ & ";SERVER= WIN-O7711S4F355\SQLEXPRESS" _ & ";DATABASE=main" _ & ";UID= administartor" _ & ";Trusted_Connection=Yes" & ";" For Each qdf In dbs.QueryDefs If qdf.Type = dbQSQLPassThrough Then qdf.Connect = strConnect End If Next qdf ظهور رسالة هذا الكود غير معتمد مع العلم انه تم الاتصال بالسيرفر بدون مشاكل فى انتظار ردكم المطلوب عمل اتصال من خلال استعلام pass- through فى انتظار ردكم ولكم منا جزيل التقدير والعرفان

إن شاءالله هتنجح

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

فى هذا المثال اضفتلك أمرين أمر الإغلاق زي محضرتك كنت عامل فالصوره Docmd.Close وأمر تكبير للنموذج جرب تكتب اي امر منهم فالتكست بوكس هيتنفذ الأمر بما تدوس عالزرار أو تجرب تضيف أمر تاني بس تضيفه فالداله اللي فالنموذج وان شاء الله هيشتغل