ابوخليل

عليكم السلام اذا تقصد باعدادات الطابعة هو اختيار مقاس الورق .. فهذا غير كافٍ سبق لي تجربة : يوجد في خصائص طابعة الفواتير ... آخر تبويب ( لا تذكر اسمه) .. يوجد خيارات ازاحة .. والغاء هوامش .. وقطع حسب النص او الصفحة .. الخ ... هل اطلعت عليه وجربت الخيارات ؟

العفو حبيبنا واستاذنا الكريم للمزيد حول المعلومة : هذا مرجع لحروف البدل في اكسس

استخدم هذا المعيار : Like "*" & "[#]" & "*" لأن # من احرف البدل لذا يجب احاطته بقوسين مربعين لتمييزه

عليكم السلام الطرق لتحقيق طلبك كثيرة منها استعلام تحديث استنادا لمعرف السجل ومنها العمل على مجموعة السجلات وادراج القيمة في الحقل الهدف وحيث ان النموذج منضم الى الجدول ؛ يوجد طريقة بسيطة كنت استخدمها في وقت ما وهي تؤدي الغرض كالتالي : اعمل حقلا مخفيا في النموذج وليكن اسمه s2 منضما الى حقل code_r وخلف الزر اكتب : s2=s

لفصل الحروف والارقام داخل الاستعلام انت بحاجة الى دالة مثل هذه 'فصل الحروف Public Function textNum(fildHrfRqm As String) Dim lets, lets2, lets3 Dim i, r As Integer r = Len(fildHrfRqm) For i = 1 To r lets = Mid(fildHrfRqm, i, 1) If IsNumeric(lets) Then Else lets3 = lets3 & lets End If Next textNum = lets3 End Function 'فصل الارقام Public Function Numtext(fildHrfRqm As String) Dim lets, lets2, lets3 Dim i, r As Integer r = Len(fildHrfRqm) For i = 1 To r lets = Mid(fildHrfRqm, i, 1) If IsNumeric(lets) Then lets2 = lets2 & lets End If Next Numtext = lets2 End Function ولإنشاء جدول جديد يمكنك استخدام الاستعلام نفسه انظر المرفق فصل الحروف عن الارقام دالة2 .rar

انا ضربت لك مثل .. فقط مثل آخر : اغلاق درج الكاشير وفتحه موجود في خصائص الطابعة .. ويمكن التحكم به من خلال خصائص الطابعة الظاهرة في اكسس .. ويمكن استخدام الكود استعرض خصائص طابعتك لوحة التحكم / الاجهزة والطابعات / انقر بالزر الايمن واطلع على خصائص طابعتك هل يوجد خيار الرجوع للبداية ؟ اعتقد مادام يوجد زر لهذه العملية ستجد هذه الميزة ضمن الخصائص

كأنك تريد حلا برمجيا لزر رجوع الورق ؟ طابعة الفواتير مثلا تحتوي على خصيصة تفعيل قاطع الورق من عدمه راجع خصائص الطابعة .. اذا خصائص الطابعة لديك تحتوي على امر الرجوع ؟ وإلا : غير الطابعة

الموضوع قديم يعود لــــ 2011 وقد عرض اخوي الاستاذ فادي الرابط بالامس في احدى مشاركاته .. وحين دخلت الموضوع .. ونزلت المرفق وجدت فيه مشكلة عند الفتح لذا قمت بتجديد المرفق Reserved words in Access.rar

تفضل طريقة احترافية وبأقل عدد من الكائنات Database4.rar

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

كل هذا غير مهم المهم هو تأسيس البرنامج بطريقة صحيحة .. اي تأسيس الجداول .. بطريقة صحيحة تحقق ما تتطلع اليه من مخرجات والا ستواجه صعوبات في نهاية المشروع مشاريع المراكز الطبية تشمل : 1- المواعيد او الاستقبال / غرفة الفحص الأولي / الطبيب المعالج / المختبر والاشعة / نتيجة الفحص ووصف الدواء / الصيدلية هذه بحاجة الى جدول رئيس وجداول فرعية حسب الجهة .. بحيث تسير العملية بانسيابية على اعتبار ان المشروع يعمل على الشبكة في غرفة الفحص الأولي يتم ادخال نتيجة الفحص واختيار الطبيب المناسب .. بمجرد الحفظ تظهر الصفحة عند الطبيب ومثلها بقية العمليات : عندما يؤشر الطبيب على المختبر تظهر الصفحة عند المختص وعند تسجيل نتيجة المختبر تظهر مرة اخرى عند الطبيب .. وحين يسجل الدواء ويحفظ تظهر الصفحة في الصيدلية

عليكم السلام طرحك صحيح .. المعرفات تحمل كل البيانات .. فلماذا نكرر الادخالات بعد تصفحي لمثالك .. وجدت التالي : البرنامج يرصد : زيارة المريض / الدواء الموصوف / طريقة الاستخدام / الطبيب المعالج / التشخيص /الاجرة ملاحظاتي : 1- انت ربطت الدواء بطريقة استخدام ثابتة .. وهذا لا ينطبق دوما ( فقد يصف الطبيب طريقة لمريض تختلف عن مريض آخر للدواء نفسه) لذا الافضل فصل الطرق بجدول مستقل يتم الاختيار منها .. وهي ليست كثيرة .. ويمكن تحديثها او الاضافة عليها في اي وقت 2- اذا الاجرة ثابتة حسب المرض وليس حسب الطبيب فالافضل تثبيتها في جدول الامراض وتكون قابلة للتحديث 3- هل المرفق يمثل المشروع كامل لديك؟ .. ام هو جزء من المشروع؟ اذا هو جزء من المشروع فسوف تتعب كثيرا لأن التعديل الذي تحصل عليه سيؤثر كثيرا على بقية المشروع

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

السلام عليكم برنامج مبيعات ./. برنامج حركات مالية كيف يتم هذا ؟ يجب علينا تصور وتخيل العملية اين محل الصناديق والبنك في جدول البيع والشراء ؟ هل يتم رصد اسم الصندوق في جدول المبيعات عند حركة البيع؟ حتى يفهم منه ان المال دخل الى الصندوق الفلاني ام انه يتم ايداع أو صرف وتحويل المبالغ بعمليات وجداول مستقلة ؟ اذا صحيح .. فجداول المبيعات لا محل لها من الاعراب هنا عرض جميل ومثال اجمل لدي ملاحظة بل اثنتان 1- ما اقتبسته اعلاه ليس له محل في جداول العمليات المالية .. الا ان قصدت بالخصم ما يتم داخل الاستعلامات 2- رأيي ان نضم البنوك الى الصناديق في جدول واحد .. وفي جدول الحركة يكفي حقلان (من / الى) واللذان يمثلان المعرف

من المهم جدا فصل الجداول عن الواجهات في اي عمل مهما صغر ومعذرة .. هذا الذي قدرت عليه Database1.rar

الف شكر باشمهندس زادك الله علما ورفعة .. ورزقك من حيث لا تحتسب

شكرا استاذنا توجيهك هنا هو الأفضل أرى ان التعديل اليدوي من خيارات المحرر افضل

وهذه بطريقة أخرى مشروع ملفات الوورد3.rar

تفضل Private Sub أمر13_Click() Openword (CurrentProject.Path & "\" & Me.id & ".docx") End Sub Sub Openword(Docfile As String) On Error Resume Next Dim GetObjwrd As Object Dim Objwrd As Object Set Objwrd = CreateObject("Word.Application") Objwrd.Documents.Open (Docfile) Objwrd.Visible = True Exit Sub Set Objwrd = Nothing End Sub مشروع ملفات الوورد2.rar

جزاكم الله خيرا العملية في كلا الكودين غير منضبطة .. رغم ان الاستاذ ناقل طبق الفكرة 100% المشكلة تبقى في الحدث وتوقيته .. هل بعد التحديث ام قبله .. ام هل عند الادخال او عند التركيز ؟.. فمن هنا يظهر الخلل .. ولا يستقيم لذا نهجت طريقة محكمة .. خارج احداث مربع التحرير 1- انشأت فريم (مربع خيارات متعددة) يحتوي على خيارين وقيمتين 1 ، 2 القيمة 1 تعني جميع البنود ما عدا الزوجي القيمة 2 تعني جميع البنود ما عدا فردي1 وفردي 2 وفي حدث بعد التحديث للفريم ادرجت كود ابي جودي .. لأنه افضل للمطور Private Sub Form_Load() Me.mjal.RowSource = "SELECT ac_id, ac_Name FROM tbl_Mjal WHERE ac_id IN (1,2,4,5)" Me.mjal.Requery End Sub Private Sub Frame1_AfterUpdate() Dim strSQL As String If Frame1 = 1 Then strSQL = "SELECT ac_id, ac_Name FROM tbl_Mjal WHERE ac_id IN (1,2,4,5)" Else strSQL = "SELECT ac_id, ac_Name FROM tbl_Mjal WHERE ac_id IN (3,4,5)" End If Me.mjal.RowSource = strSQL Me.mjal.Requery End Sub الف شكر لكما احبتي الكرام

السلام عليكم احبتي اريد عند اختياري من القائمة فردي1 او فردي 2 ان يختفي البند : زوجي والعكس صحيح عند اختياري من القائمة زوجي ان يختفي البندين : فردي1 و فردي 2 اريد الحل بأقصر الطرق .. ان امكن عدم الاستعانة بالجدول tbl_mjal_User Database2.rar

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

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

الآن انت تصارع من اجل ادخال البيانات لا يهم مسألة طريقة الادخال مهما كانت معقدة .. بقدر أهمية التصميم الصحيح للجداول المبرمج الناجح الذي يعمل ويستمتع همه الأكبر صحة التأسيس . لأن خلفها تبعات : استعلامات وتقارير الـ 500 موظف الم يخطر ببالك ادخال تقييمهم جميعا بضغطة زر واحدة ( طبعا حسب فكرتك بوجود قيم افتراضية)؟ ثم بعدها ترجع لمن هو بحاجة الى تعديل ؟

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