د.كاف يار قام بنشر يوليو 4, 2021 مشاركة قام بنشر يوليو 4, 2021 26 دقائق مضت, abouelhassan said: بارك الله فيك استاذى حبيبى الغالى لقلبى د.كاف يار تسلم ايدك وعينك يارب يحفظك وال بيتك اللهم امين يارب هنا استاذى الحبيب اقوم بالادخال بالفورم الجديد الموجود على اليسار ادخل رقم القيد ام سيكتب الى وعندم ادخل بالفورم الجديد ادخل القيود الرصيد لايعمل مش عارف ليه يعمل فقط عند الاستيراد من ملف اكسيل هل ادخل القيود على الاكسيل وبعد كده استوردهم للبرنامج اكرر شكرى ليك جداااااااااااااااااااااااااااااااااااااااااااااااا والله اخى احبك فى الله شكر وتقدير واحترام من القلب فورم الإستيراد يحتوي على جدول بيانات مستقل عن الاساسي و بمجرد الحفظ يتم نقل البيانات الى الجدول الرئيسي بالنسبة لرقم القيد فهو تلقائي تم تعيينه كمفتاني مميز بإمكانك اضافة عمود جديد لكي تتعامل معه لكن يجب عليك الحفظا على المفتاح الأساسي لسهل عليك عملة التعديل و الحفظ خارج الإطار المنضم تفضل هذا التعديل ملاحظة : لا اعلم ما هي طريقة حساب الدائن و المدين من باب الإجتهاد استخدمة الطريقة كالتالي الرصيد = الدائن - المدين ابوالحسن2.zip رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يوليو 4, 2021 الكاتب مشاركة قام بنشر يوليو 4, 2021 (معدل) الله يرضى عنك وعن والديك يارب استاذى د.كاف يار تمام التمام والله رائع جداااااااا احتاج بعد اذنك اخفاء البيانات التى على يسار الشاشة الرئيسية منعا للتلاعب بها او الحذف كما كانت فى اول مرة غير مرئية الفورم تاذى به دائرة اريد اخفاءه من الشاشة الرئيسيةلايستطيع الدخول اليه او التعديل عليه المستخدم2 ام المستخدم 1 هو الذى يستطيع الدخول له والتعديل عليه وكذلك اضافة حساب او حذف حساب واحتاج بحث برقم المستند للتعديل فى حالة الخطأ واكون شاكر فضلك واقبل راسك لجميل صنعك ومعروفك والله تم تعديل يوليو 4, 2021 بواسطه abouelhassan رابط هذا التعليق شارك More sharing options...
iibat قام بنشر يوليو 4, 2021 مشاركة قام بنشر يوليو 4, 2021 هل صحيح اجمالي الرصيد = المدين + الدائن رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يوليو 4, 2021 الكاتب مشاركة قام بنشر يوليو 4, 2021 الرصيد=دائن -مدين اخى الكريم رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر يوليو 5, 2021 مشاركة قام بنشر يوليو 5, 2021 تفضل التعديل ابوالحسن3.zip 1 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يوليو 5, 2021 الكاتب مشاركة قام بنشر يوليو 5, 2021 من قلبى والله ربنا يسعدك استاذى د.كاف يار ويفرح قلبك يارب زى ما فرحتنى جدااااااااااااااااااااااااااا والله شئ ولا الخيال اسعد الله ايامك واكثر من مالك يارب دائما وابداااااااااااا يارب متعك الله بالصحة والستر وراحة البال ربنا يسترك دائما يارب ويعزك بين العباد لى استفسار استاذى حبيبى اخى فى الله الكريم د.كاف يار الادخال المفرد للقيد يعمل ممتاز وطبعا كل شئ بالبرنامج اكثر من ممتاز والله رائع وسحر والله العظيم بس مش عارف ادخل قيد متعدد او مكون من 20 قيد مثلا او اكثر من قيد بارك الله فيك اخى الكريم اطال الله عمرك ومتعك بالصحة والستر يارب انا احبك فى الله اخى وادعوا لك عن ظهر غيب من قلبى والله احترامى وتقديرى وعرفان بالجميل من اخيك رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر يوليو 5, 2021 مشاركة قام بنشر يوليو 5, 2021 تفضل هذا التعديل اسم المستخدم : Admin كلمة المرور : 123 بالنسبة لإضافة اكثر من قيد تستطيع من خلال استيراد ملف اكسل ابوالحسن4.zip 1 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يوليو 5, 2021 الكاتب مشاركة قام بنشر يوليو 5, 2021 (معدل) استاذى حبيبىد.كاف يار الرائع بالنسبة لطريقة الاستيراد من الاكسيل لاضافة اكثر من قيد انا استورد من الاكسيل واكمل ادخال عادى على الاكسيس صح كده يارب ما اتحرمش منك ابدااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا كمان حاولت استخدم هذا الكود وهو عند فتح البرنامج100 مرة يطلب منى ادخال الباسورد لاعادة الفتح بس ما نجحش مش عارف وبكده اقبل جبينك لكرمك وخلقك الكريم Sub keyenter() On Error GoTo errorhandle Dim TOTALENTER1 As Integer Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("SELECT MYUSERNAME, TOTALENTER FROM TOTALENTER WHERE MYUSERNAME='" & [UserName] & "'") If Not rs.BOF And Not rs.EOF Then rs.MoveFirst TOTALENTER1 = Nz(rs.Fields("TOTALENTER"), 0) End If If TOTALENTER1 = 0 Then Set db = CurrentDb Set rs = db.OpenRecordset("TOTALENTER") With rs .AddNew ![myUserName] = Me.UserName ![TOTALENTER] = 1 .Update End With Else If TOTALENTER1 = 100 Then If MsgBox("عزيزي المستخدم لقد وصلت للعدد المسموح به للاستخدام" & vbNewLine & vbNewLine & "لكنك تستطيع الاستمرار بإدخال مفتاح التصريح" & vbNewLine & " هل ترغب بإدخال التصريح للاستمرار ؟", vbCritical + vbMsgBoxRight + vbYesNo, "تحذير") = vbYes Then TimerId = SetTimer(0, 0, 1, AddressOf TimerProc) str_Title = "ادخل رقم مفتاح التصريح" str_Prompt = "ادخل الرقم السرى" If InputBox(str_Prompt, str_Title) <> "22115555" Then MsgBox "مفتاح خاطئ" Exit Sub Else Set db = CurrentDb Set rs = db.OpenRecordset("TOTALENTER") With rs .Edit ![TOTALENTER] = 1 .Update End With MsgBox "تم التصريح بنجاح يرجى اعادة تسجيل الدخول", vbInformation, "تأكيد" End If End If Else Set db = CurrentDb Set rs = db.OpenRecordset("TOTALENTER") With rs .Edit ![TOTALENTER] = rs.Fields("TOTALENTER") + 1 .Update Call checkUsers End With End If End If rs.Close Set rs = Nothing errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit End Sub احترامى الشديد جداااااااااااااااااااااااااااااا تم تعديل يوليو 5, 2021 بواسطه abouelhassan رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يوليو 5, 2021 الكاتب مشاركة قام بنشر يوليو 5, 2021 (معدل) استاذى الغالى لقلبى د.كاف يار كمان اين يمكن ان اعدل بالقيود انا ادخل رقم المستند واستعرض القيود المطلوبة اين يمكننى تغير سواء المبالغ او القيد او حذفه يعنى تعديل مدخل غلط معلش بارك الله فيك ولك يارب احترامى الشديد تم تعديل يوليو 5, 2021 بواسطه abouelhassan رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يوليو 5, 2021 الكاتب مشاركة قام بنشر يوليو 5, 2021 استاذى الحبيب د.كاف يار بعد التجربة اضفت الى الحساب اسماء حسابات كما بالصورة كما انى قمت باضافة عملاء كما بالصورة وقمت بالادخال للقيود بتاريخ1/7 وتاريخ 5/7 اسماء الحسابات موجودة صرف تحصيل دين ايداع وذهبت لكى استعرض ما تم ادخاله شامل من تفاصيل لكل الحسابات ما اخترتش الحساب لعرض الكل واخترت التاريخ من والتاريخ الى وا اتعرضش اى تقرير ولم اتمكن استاذى من التعديل او الحذف واضافة حسابات لابد ان ادخل الى الجداول لاضافة الحسابات ليست مثل العملاء التى اتمكن من اضافتهابسهولة تمام التمام زاد الله النور فى قلبك وانعم عليك بالخير وعل اسرتك يارب وادام الصحة والخير عليك يارب احترامى وخالص دعائى والله دائن4.rar رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر يوليو 6, 2021 مشاركة قام بنشر يوليو 6, 2021 اتفضل هذا التعديل - يجب ترحيل البيانات بعد الاستيراد بالنسبة لتحرير القيود من الشاشة الرئيسية تستطيع التحرير و لكن يجب اعطاء الصلاحية من خلال شاشة الإعدادات 19 ساعات مضت, abouelhassan said: استاذى حبيبىد.كاف يار الرائع بالنسبة لطريقة الاستيراد من الاكسيل لاضافة اكثر من قيد انا استورد من الاكسيل واكمل ادخال عادى على الاكسيس صح كده يارب ما اتحرمش منك ابدااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا كمان حاولت استخدم هذا الكود وهو عند فتح البرنامج100 مرة يطلب منى ادخال الباسورد لاعادة الفتح بس ما نجحش مش عارف وبكده اقبل جبينك لكرمك وخلقك الكريم Sub keyenter() On Error GoTo errorhandle Dim TOTALENTER1 As Integer Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("SELECT MYUSERNAME, TOTALENTER FROM TOTALENTER WHERE MYUSERNAME='" & [UserName] & "'") If Not rs.BOF And Not rs.EOF Then rs.MoveFirst TOTALENTER1 = Nz(rs.Fields("TOTALENTER"), 0) End If If TOTALENTER1 = 0 Then Set db = CurrentDb Set rs = db.OpenRecordset("TOTALENTER") With rs .AddNew ![myUserName] = Me.UserName ![TOTALENTER] = 1 .Update End With Else If TOTALENTER1 = 100 Then If MsgBox("عزيزي المستخدم لقد وصلت للعدد المسموح به للاستخدام" & vbNewLine & vbNewLine & "لكنك تستطيع الاستمرار بإدخال مفتاح التصريح" & vbNewLine & " هل ترغب بإدخال التصريح للاستمرار ؟", vbCritical + vbMsgBoxRight + vbYesNo, "تحذير") = vbYes Then TimerId = SetTimer(0, 0, 1, AddressOf TimerProc) str_Title = "ادخل رقم مفتاح التصريح" str_Prompt = "ادخل الرقم السرى" If InputBox(str_Prompt, str_Title) <> "22115555" Then MsgBox "مفتاح خاطئ" Exit Sub Else Set db = CurrentDb Set rs = db.OpenRecordset("TOTALENTER") With rs .Edit ![TOTALENTER] = 1 .Update End With MsgBox "تم التصريح بنجاح يرجى اعادة تسجيل الدخول", vbInformation, "تأكيد" End If End If Else Set db = CurrentDb Set rs = db.OpenRecordset("TOTALENTER") With rs .Edit ![TOTALENTER] = rs.Fields("TOTALENTER") + 1 .Update Call checkUsers End With End If End If rs.Close Set rs = Nothing errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit End Sub احترامى الشديد جداااااااااااااااااااااااااااااا ايش تسفيد من هذا الإجراء لكن فيه طريقة افضل انك تنشئ جدول حفظ بيانات الدخول و تربطه بنموذج تسجيل الدخول و تضع ازرار حفظ بيانات الدخول دائن4.zip 10 ساعات مضت, abouelhassan said: وذهبت لكى استعرض ما تم ادخاله شامل من تفاصيل لكل الحسابات ما اخترتش الحساب لعرض الكل واخترت التاريخ من والتاريخ الى وا اتعرضش اى تقرير لأنك لم تقم بترحيل البيانات المستوردة هذا التعديل دائن4.zip 2 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يوليو 6, 2021 الكاتب مشاركة قام بنشر يوليو 6, 2021 (معدل) اسعد الله صباحك استاذى الغالى حبيبى د.كاف يار اكرمك الله وزادك من فضله اللهم امين يارب وبارك لك فى ال بيتك اللهم امين قمت هنا استاذى بالحفظ والترحيل والذهاب للشاشة الرئيسية لضبط اليوم اخترت فقط تفاصيل وتاريخ من 1/7/2021 الى 1/7/2021 ثم عرض لم يعرض شئ اخترت فقط تفاصيل عرض لى كل البيانات المدخلة كلها وعندما حددت تاريخ من1/7 حتى 1/7 لم يعرض اى شئ محتاج ربط التفاصيل بالتاريخ للضبط لكل الحسابات بالتاريخ احتاج لعرض البيانات فقط المطلوبة بالصورة لكى استطيع الضبط بالتاريخ من الى مهمة جدا استاذى لضبط اليوم او الشهر تقرير عرض المدخل فى تاريخ من الى بارك الله لنا فيك يارب وقمت بالدخول لشاشة الاعدادات وقمت كما تفضلت استاذى بتنبيهى لتفعيل الحذف والاضافة تمام فعلت واخترت حفظ بس قائمة الحسابات الجديدة مش مضافة لكى يتم التفعيل وعدم التفعيل استاذى بعد الغلق واعادة الفتح بعد ادخال اليوزر والباس ورد الشاشة الرئيسية فتحت على كل البيانات وبها الحذف والاضافة احتاج اخفاء كل البيانات من الشاشة الرئيسية اذا كانت بيانات العرض فارغة لكن هنا لايوجد بيانات عرض ومع ذلك كل البيانات معروضة على الشاشة الرئيسية استاذى احتاج هنا عند اختيار تاريخ من الى او رقم مستند للعرض للتعديل عليه يظهر ما تم طلبه فقط وليس كل البيانات حفاظا عليها من التلاعب بمعنى الحذف والاضافة يكون مربوط فقط بالتاريخ من الى او رقم المستند اذا اختارنا عرض بتاريخ من الى لمراجعة قيود خطأ يظهر القيود فى هذا التاريخ من الى فقط او عندما نكون عارفين رقم المستند ايضا تظهر قيود هذا المستند فقط اما الان بمجرد الدخول للبرنامج تجد كل البيانات معروضة امامك اخى الحبيب وهذا ليس مطلوب للحفاظ على البيانات اسعد الله ايامك وزادك من فضله ونعمه وخيره يارب وبارك فى صحتك وسترك دائما يارب احترامى دائن5.rar تم تعديل يوليو 6, 2021 بواسطه abouelhassan رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر يوليو 6, 2021 مشاركة قام بنشر يوليو 6, 2021 تفضل هذا التعديل بالنسبة للحذف لو تدقق في جدول الصلاحيات راح تجد عندك عدد 2 أمر للحذف ازرار الحذف صلاحية الحذف 2NewData.zip 2 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يوليو 6, 2021 الكاتب مشاركة قام بنشر يوليو 6, 2021 سهل الله لك كل امورك وبارك لك فى حياتك ومالك وال بيتك ورزقك كل خير الدارين الاخرة والدنيا استاذى د.كاف يار بارك الله فيك اخى لا حرمنا منك ابدااا قمت اخى حبيبى بادخال قيود كما بالصورة بحسابات مختلفة وتاريخ 1/7/2021 وتاريخ 5/7/2021 لاحظت استاذى عند الضغط على ترحيل انتقل الى الصفحة الرئيسية هل يمكن ان تظل كما كانت ان اظل بشاشة الادخال وعند الضغط على ترحيل ان يتم افراغ الفورم استعدادا للادخال الجديد كما كانت استاذى الحبيب وياريت ياريت لو كان التاريخ فارغ او اى خانة الا المبلغ اما دائن او مدين تخرج رسالة ادخل البيانات فى خانة التاريخ مثلا او العميل او البيان او رقم المستند او الدائن او مدين ايهم ياريت عند الذهاب الى الشاشة الرئيسية كتبت التاريخ من والتاريخ الى وضغطت عرض لكى يتم عرض التقرير استاذى كما ترى حضرتك لم يتم عرض شئ اخترت عميل 1 وضغطت عرض ايضا لم يتم عرض شئ اسف والله اعتذر واقبل جبينك لجميل معروفك اخى فى الله احترام وخالص دعائى لك اخى رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر يوليو 6, 2021 مشاركة قام بنشر يوليو 6, 2021 منذ ساعه, abouelhassan said: عند الذهاب الى الشاشة الرئيسية كتبت التاريخ من والتاريخ الى وضغطت عرض لكى يتم عرض التقرير استاذى كما ترى حضرتك لم يتم عرض شئ حقا لا اعلم اين هي المشكلة فلدي يعمل بصورة جيدة لا تستعجل في اعطاء النتايج يابو الحسن استخدمه مره و اثنين و خمسة و في كل مره سجل ملاحظاتك في مذكرة راح تجد ان المشكلة ليست كما تبدون ففي كل مرة تختلف نظرتنا للصورة عند تغيير الزاوية خذ وقتك في التجربة و لا تتعجل و بعد يومين لنا لقاء انشاء الله 1 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يوليو 6, 2021 الكاتب مشاركة قام بنشر يوليو 6, 2021 اكرمك الله استاذى الحبيب لقلبى د.كاف يار والله جربت 100 مرة نفس النتيجة حاضر استاذى ربى لا يحرمنى منك ابدااااااااااااا يارب رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر يوليو 6, 2021 مشاركة قام بنشر يوليو 6, 2021 7 دقائق مضت, abouelhassan said: اكرمك الله استاذى الحبيب لقلبى د.كاف يار والله جربت 100 مرة نفس النتيجة حاضر استاذى ربى لا يحرمنى منك ابدااااااااااااا يارب اعطيني نسخة من القاعدة الي عندك 1 رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر يوليو 6, 2021 مشاركة قام بنشر يوليو 6, 2021 شوف كيف عندي بالتاريخ ////// بالحساب ///// بالعميل //// بالمستند //// فيه ملحوظة مهمة يابو الحسن فلاتر البحث تنفذ بالأولية اذا الحساب فارغ سيتم تجاوزه و سيتم تنفيذ الكود فقط على الحقول الغير فارغة 1 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يوليو 6, 2021 الكاتب مشاركة قام بنشر يوليو 6, 2021 تفضل استاذى د.كاف يار فضلك الله على عباده يارب احترام من القلب NewData.rar رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر يوليو 6, 2021 مشاركة قام بنشر يوليو 6, 2021 6 دقائق مضت, abouelhassan said: تفضل استاذى د.كاف يار فضلك الله على عباده يارب احترام من القلب NewData.rar 116.63 kB · 0 downloads يوم محدد حساب محدد عميل محدد مستند محدد 2 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يوليو 6, 2021 الكاتب مشاركة قام بنشر يوليو 6, 2021 52 دقائق مضت, د.كاف يار said: يوم محدد حساب محدد عميل محدد مستند محدد احترام وتقدير استاذى الكل يعمل تمام عدا التاريخ من والتاريخ الى مش عارف ليه هل التنسيق للتاريخ له دخل بارك الله لنا فيك اخى الكريم جداااااااااااااااااااااااااااااااااااااااااااااااااااااا رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر يوليو 6, 2021 مشاركة قام بنشر يوليو 6, 2021 24 دقائق مضت, abouelhassan said: احترام وتقدير استاذى الكل يعمل تمام عدا التاريخ من والتاريخ الى مش عارف ليه هل التنسيق للتاريخ له دخل بارك الله لنا فيك اخى الكريم جداااااااااااااااااااااااااااااااااااااااااااااااااااااا محتمل ذلك جرب هذا التعديل 4NewData.zip 2 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يوليو 6, 2021 الكاتب مشاركة قام بنشر يوليو 6, 2021 (معدل) اخى حبيبى الغالى استاذ د.كاف يار كل البحث يعمل الا التاريخ بكل الطرق مش عارف من ايه بس الاكيد انه تنسيق ان استخدم التنسيق العربى يوم شهر سنة هل لده علاقة استاذى الحبيب استخدم اخر نسخة من قاعدة البيانات 4NewData كمان بعد الترحيل فى فورم الادخال ينقلنى الى الشاشة الرئيسية هل بالامكان ان يظل بنفس الشاشة لا ادخل شاشة رئيسية الا بالاختيار من اعلى بارك الله فيك وبك ولك وعليك يارب شكر من القلب وخالص الدعاء تم تعديل يوليو 6, 2021 بواسطه abouelhassan رابط هذا التعليق شارك More sharing options...
طلب اكسس قام بنشر يوليو 6, 2021 مشاركة قام بنشر يوليو 6, 2021 49 دقائق مضت, abouelhassan said: اخى حبيبى الغالى استاذ د.كاف يار كل البحث يعمل الا التاريخ بكل الطرق مش عارف من ايه بس الاكيد انه تنسيق ان استخدم التنسيق العربى يوم شهر سنة هل لده علاقة استاذى الحبيب استخدم اخر نسخة من قاعدة البيانات 4NewData كمان بعد الترحيل فى فورم الادخال ينقلنى الى الشاشة الرئيسية هل بالامكان ان يظل بنفس الشاشة لا ادخل شاشة رئيسية الا بالاختيار من اعلى بارك الله فيك وبك ولك وعليك يارب شكر من القلب وخالص الدعاء مداخلة بسيطه حاول عيني تغيير الارقام في نفس الكمبيوتر تغيير تنسيق الارقام الى ابدا يعني انجليزي جربته شغال ما فيه خلاف لكن عيني غير لغة الارقام من الجهاز مالك و راح يضبط لا توتر نفسك الموضوع بسيط اخوك العراقي طلب اكسس مستجد 1 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يوليو 6, 2021 الكاتب مشاركة قام بنشر يوليو 6, 2021 استاذى حبيبى د.كاف يار والله غيرت كل اشكال التنسيق مش عارف اعمل ايه تانى وايضا لازال التقرير لا يعمل باالتاريخ من الى وفورم الادخال بعد الضغط على حفظ وترحيل يدخلنى الى الشاشة الرئيسية واذا نسيت سجل فارغ اريد رسالة تنبيه هم دول المشكلتين الذى يؤرقان حياتى الان وها هى الاعدادات بارك الله فيك اخى استاذى حبيبى انا احبك فى الله استاذى الغالى د.كاف يار رابط هذا التعليق شارك More sharing options...
الردود الموصى بها