Ahmed.IQ

سوف يقوم بجلب اخر مواقع قمت بزيارتها وهو الهيرستي الخاص بالمتصفح او بحسابي

المشكلة هيا ان المايكرو يعتمد على موضع الماوس في الحذف لذا هو يحذف ذيل الفاتورة وليس الفاتورة نفسها ,, على العموم احذف الزر الذي قمت بعمله وستخدم زر جديد وضع فيه هذا الكود قمت بتعديل اسم حقل رقم الفاتورة داخل الجدول الى INVOID وايضا قمت بتعديل اسم الحقل في النموذج الى INVONO . نصيحة اخيرة استخدم التسميات الانكليزيه ولا تضع مسافات بين التسميات لانها تسبب كل الكثير من الصداع لو احبب ان تضع مسافه استخدم _ لتجنب المشاكل من هذا النوع , بالتوفيق ان شاء الله On Error Resume Next DoCmd.SetWarnings False DoCmd.RunSQL ("DELETE * FROM فاتورة WHERE [INVOID] = " & Me.INVONO & "") MsgBox "Êã ÍÐÝ ÇáÝÇÊæÑÉ" DoCmd.SetWarnings True Me.Requery

تقصد انك تفتح صفحة ويب معينة لما تضغط على الاختصار ؟

ممكن توضح الفكرة بصراحة لم افهم موضوع المسار ؟

وعليكم السلام ورحمة الله .. صديقي اولاً انت قمت بعمل العلاقات بشكل خاطئ مثلا الحركة ليس لها علاقة بالمورد والعميل هذا اختصاص الفاتورة لذا انا قمت بحذف هذه العلاقة بين العميل والمورد مع الحركة , في نموذج فاتورة مشتريات انت قمت بعمل المصدر استعلام و قمت بعمل علاقة بين جدول الفاتورة و جدول الحركة وهذا خطاء لان الحركةليس لها علاقة في هذا النموذج , في نموذج مساعد فاتورة مشتريات قمبت بأضافة جدول الفاتورة لسبب وجود علاقة بين جدول الحركة و جدول الفاتورة و هيا تعتبر الجلدرن اي انها تعتمد على الفاتورة في بياناتها , في جدول الحركة حذفت حقلين المورد والعميل لانهم موجودين في الفاتورة ولا داعي لتكرارهم لانك ستعتمد على رقم الفاتورة كا مصدر لك لربط الحركة باللفاتورة. حاليا انا لم اعمل زر vba انا فقط قمت بعمل زر عن طريق المايكرو وحاليا الحذف يعمل لديك بشكل طبيعي . هناك مشكلة لم ابحث فيها كثيراً وهيا سابقاً كان هناك حقل اسمه المورد في الحركة بعد حذفه ظهرت رسالة خطاء تقول لا يوجد حقل مورد وتظهر هذه الرسالة بعد اختيار المواد ارجو منك ان تتبع المشكلة وتقوم بحلها . اتمنى ان اكون قد اعنتك في حل المشكلة . new one.rar

لا يوجد اي مرفق في المنشور ماهيا رسالة الحطاء التي تظهر لديك ؟

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

الموضوع سهل في ال form /footer راح تعمل حقل غير منظم وتجعل مصدر الحقل هذا دالة اسمها count وهذه الدالة تعتمد مثلا على حقل معين مثل id راح يحسب كل حقل فيه قيمة داخل ال id يجب ان لا يكون فارغ مثلا لو عندك عشر حقول id في النموذج 3 فاضي وسبعة فيهم قيمة سوف يظهرلك الناتج ب 7 لو كانت جميع حقول ال id فيها قيمة سوف يظهر عندك في هذا الحقل العدد 10 . الاخوان بدل ان يحددو حقل معين واقصد هنا الاخ سامي الحداد استخدم الدالة بهذا الشكل =Count(*) في هذه الحالة سيعتد على السجلات المتوفرة ويعدلها لك بدون الاعتماد على حقل بعينة .. تم وضع هذا الحقل في نموذج الموظفين لو فتحت النموذج الخاص بالموظفين بوضع التصميم سترى ذالك . اما الحقل الذي يظهر لك النتائج عدد السجلات في نموذج البحث الشامل فهو قام فقط بجعل مصدر الحقل الحقل الاخر في نموذج الموظفين عن طريق الكود التالي =EMP.Form!txtCount

صديقي عملتلك المطلوب كما تريد ,, غيرت اسم الجدول من العربي الى انكليزي وكذلك الحقل ,, قمت بأضافة كود vba عمله التاكد ان تاريخ اليوم غير مضاف في الجدول في ان التاريخ غير مضاف سيتم اضافة التاريخ وفي حال انه مضاف لان يعمل الكود تحديث تاريخ تلقائي new one.accdb

تفضلي اختي هذا حسب طلبك ولكن بصراحة الموضوع اكبر من هذه الطريقة انتي بحاجة لوضع شروط وطريقة عمل مختلفة مثلاً يجب ان يتم خصم الكميات عند الضغط على زر الحفظ وليس فقط عند ادخال الكمية مثلا لو تم ادخال الكمية بشكل خاطئ سيتم خصمها بشكل مباشر على العموم لو انتي بحاجة لعمل الموضوع بشكل ادق ممكن ان تبحثي عن طرق عمل الفاتورة في المنتدى سوف تستفادين بشكل اكبر new one sajal (1).accdb

تفضل جرب هذا الكود ,,, On Error Resume Next Dim LogUser As New CUser If trycount > 3 Then MsgBox " Of a good Muslim is his leaving alone what does not concern him", vbOKOnly + vbMsgBoxRight + vbInformation, "Warning!" MsgBox " The program will be closing now ,,, Please check designer ", vbOKOnly + vbMsgBoxRight + vbInformation, "Warning!" DoCmd.Quit ElseIf IsNull(Me.user) Then MsgBox ("Please, you must enter your user name ") Me.user.SetFocus ElseIf IsNull(Me.pass) Then MsgBox (" Please, you must enter your password ") Me.pass.SetFocus ElseIf Len(Trim(Me.pass)) > 20 Then MsgBox (" Shall not exceed twenty password letter or number") Me.pass.SetFocus '------- Mohamed Essam ------ secreted user to enter the activation model and the abolition of shift team and hide and show tables --------- ElseIf [user] = "sadmin" And [pass] = "sadmin" Then DoCmd.Close DoCmd.OpenForm "MSysEdit" ElseIf [user] = "adminx" And [pass] = "adminx" Then DoCmd.Close DoCmd.OpenForm "UsersAbility", acNormal '------- Mohamed Essam ------ secreted user to enter the activation model and the abolition of shift team and hide and show tables --------- Else LogUser.UserName = Me.user LogUser.pass = Me.pass If LogUser.Valid Then Set MyUser = LogUser If Me.user = "خالد" Then DoCmd.Close DoCmd.OpenForm "main1", acNormal Else DoCmd.Close DoCmd.OpenForm "frmend" End If Else MsgBox " User name or password is incorrect. Please try again ,,,", vbOKOnly + vbMsgBoxRight + vbInformation, "Warning!" trycount = trycount + 1 End If End If End Sub

تفضل هذا الكود فقط تحتاج الى اختيار مسار المجلد الذي تريد التاكد من وجود ملفات بداخله Dim FileName As String FileName = VBA.FileSystem.Dir("C:\Users\No one\Desktop\test\*.*") If FileName = VBA.Constants.vbNullString Then MsgBox "الملف فاضي" Else MsgBox "يوجد ملفات داخل المجلد" End If هذا يعتبر مسار المجلد C:\Users\No one\Desktop\test\ هنا سوف يجلب لك اي اسم لاي فايل واي امتداد داخل المجلد في حال انك اردت ان تتاكد من نوع معين من الملفات او ملف بعينه يمكن وضع اسم ومتداد الملف او امتداد الملف فقط او اسم الملف فقط *.*

وعليكم السلام ,, عندي اشكالية بنقطه اخت روان هو انت تردين لمن يضيف الكمية بالنموذج الفرعي يروح يعدل المخزون مباشرة ؟ بس هل شي مو منطقي على العموم انا سويت موضوع يظهر اسم الصنف والكمية يحتاج اشياء ثانيه لازم تنتبهين عليه لازم تقرين عن رأس الفاتورة وذيل الفاتورة الطريقة الي انتي مشتغله بيها مو صحيح اذا انتي شايفه هل طريقة مناسبة ممكن اكملج باقي الكود مثل ما انتي محتاجة new one sajal.accdb

هذه تحتاج الى جهاز يعمل 24 ساعه اذا راح يكون الاضافة بشكل تلقائي وتستخدم Task Scheduler الي راح يكون عبارة عن مؤقت يقوم بفتح تطبيق اكسيس صغير دور هذا الاكسيس انه يضيفلك السطر الي انت محتاج انك تضيفة بكافة المعلومات بشكل يومي وتلقائي بحيث انه يضيف ينفتح البرنامج بوقت معين ويظيف السطر وبعدها يغلق نفسه ,, اما اذا محتاج انك تضيف لما تفتح البرنامج فهذا راح يكون عن طريق شرط if وايضا جدول اخر يكون عباره عن تخزين تاريخ اليوم وتضع الشرط عن طريقة دالة dcount اذا كان الدالة اصغر او تساوي 0 اذا ضيف السطر الذي انت تحتاجه غيرها الكود لا يعمل فا انت اي طلب راح ينفعك حتى اشرح لك الفكرة.

اكيد تفضل فكرة عن الموضوع combobox.accdb

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

وعليكم السلام ورحمة الله ,, تابع هذا الموضوع سينفعك

انا ما تظهر عندي هل مشكلة ممكن تجرب انك تاخذ نفس الاكسيس الي انا ضفته على قاعدة جديدة ... عادي اخي بارك الله بك , فكرة الفلترة بهذه الطريقة جميلة ايضاً

ممكن تراسلني لافهم اكثر منك ماذا انت بحاجه اليه وايضا سنضع النتيجة النهائيه هنا في الموضوع

الكود الي كتبته كالتالي في الاستعلام DLookUp("[Namex]","Tel T","[Tel 1] = '" & [tel] & "' or [Tel 2] = '" & [tel] & "'") وايضا وضعت شرط انه لا يظهر القيمة الفارغة ليتجنب ظهور الاسماء التي ليس لديهم ارقام والسبب انك تتعامل مع جدول واحد وهو الجدول الذي يوجد فيه اسماء بدون ارقام ,, اتمنا ان يكون هو الحل المطلوب test00654 new one.rar

لدي سؤال هل tel 1 و tel 2 في نفس الجدول ؟

هل قمت بفتح التقرير بدون ان تفتح النموذج ؟ ام تقوم بفتح النموذج وتظهرلك هذه الرسالة ؟

استخدم شرط التحقق قبل الدخول والبحث عن طريق if if Dcount("Namex";"[Tel T]";"[Tel 1]='" & [تليفون] & "'")>=1 then Nz(DLookUp("Namex";"[Tel T]";"[Tel 1]='" & [تليفون] & "'");"") elseif Dcount("Namex";"[Tel T]";"[Tel 2]='" & [تليفون] & "'")>=1 then Nz(DLookUp("Namex";"[Tel T]";"[Tel 2]='" & [تليفون] & "'");"") else msgbox "الرقم غير مضاف" endif

ممكن تشارك بصورة للمشكلة , على فكرة لازم يكون النموذج يعمل ليتسنى ان يطبق الشروط

هل كان النموذج البحث الشامل مفتوح ام مغلق ؟ او كان في وضع التصميم ؟