كل الانشطه

السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل ورقة عمل 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 وأمر تكبير للنموذج جرب تكتب اي امر منهم فالتكست بوكس هيتنفذ الأمر بما تدوس عالزرار أو تجرب تضيف أمر تاني بس تضيفه فالداله اللي فالنموذج وان شاء الله هيشتغل

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

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

اتفضل مثال للي حضرتك طلبته جرب المثال وقولي هو ده المطلوب ولا لاء وتقدر تضيف فالداله اكتر من أمر مثال تنفيذ امر بناء على قيمه حقل.accdb

يبدو انك لم ترى ردي هنا

فى انتظار ردكم جزاكم الله كل خير

طيب ثواني اعملك مرفق وابعتهولك إن شاءالله تلاقيه صحيح

لم يتم تنفيذ الكود مرفق صورة

جرب إن شاءالله تلاقي نتيجه كويسه

اذا عرفنا سبب تنفيذ امر مكتوب في مربع النص ..... ربما عرفنا طريقة التنفيذ ..... واذا امكن مثال للتنفيذ عليه ..

اشكرك على الرد وجارى التجربة

تفضل اخي Private Sub UserForm_Activate() With Me .startUpPosition = 3 .Width = Application.Width .Height = Application.Height .Left = 0 .Top = 0 End With For c = 1 To 4 Me("Label" & c).Left = (Me.Width / 1.8) - (Me("Label" & c).Width / 2.4) Next End Sub 1.rar