zahrah

اخي الفاضل : ايمن السلام عليكم ورحمة الله وبركاته كما ذكر استاذنا الكريم : الأخ عمر بأن البرنامج والكود يعمل بطريقة سليمه ولا يوجد به اي مشكلة في كل الصفحات بلا استثناء وهذا مصداق لقوله لذا تأكد بارك الله بك من نسخة الأكسيس لديك فقد يكون بها خلل ما او انك لم ت…

تفضل اخي الكريم هذا مثال قمت بعمله سابقا لأحد الأخوة في المنتدى تقريبا مشابها لسؤالك zaChoose_Printers_And_Reports .rar بالتوفيق

بارك الله بك اخي الكريم : المحاسب الجديد على المشاركة وايجاد الحلول المناسبة ايضا هذا حل آخر بدون اي اضافات او تعديل في اي حقول ويكون بالكود البرمجي فقط طبعا كما نعلم ان التجميع سيكون لحقل FileNo ولهذا سيكون الحل عن طريقة في رأس المجموعه حيث سنضع هذا الكود الب…

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

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

اخي الفاضل لكي تتم هذه العمليات بنجاج سوف نستخد الكود التالي Private Sub ff_AfterUpdate() Dim strSQL1 As String Dim strSQL2 As String Select Case Me.ff Case Is = 1 Me.xx.SetFocus xx.SourceObject = "طالب" strSQL1 = ("INSERT INTO طالب ([Kashf_Num] , [sDate],[sDa…

تفضل اخي الكريم القاعدة بدون رقم سري za-Golden.rar بالتوفيق

اخي الكريم ابحث في المنتدى وستجد العديد من الأمثلة والإجابات على مثل هذا السؤال بالتوفيق

تفضل اخي الكريم ملفك بعد التعديل za-Dollar.rar بالتوفيق

بارك الله بك اخي الفاضل : EZZNASR يبدو اننا نقوم بالتعليق والمشاركة بدون ان نعرف من الذي قام بالرد علينا عموما التعديل الذي تم على مثالك هو تعديل اسم النموذج الفرعي للإسم الصحيح فقط بالتوفيق

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

تفضل اخي الكريم ملفك بعد التعديل بناء على طلبك za-تحليل المصروفات 2012.rar بالتوفيق

بارك الله بك أخي الكريم نعم يمكن عمل ذلك على القاعدة الحالية بتعديل الكود بهذه الطريقة Private Sub Command0_Click() Dim strSQL As String strSQL = ("INSERT INTO UserData ([UserName] , [UserPass]) VALUES('" & Me!t1 & "', '" & Me!t2 & "')") CurrentDb.Execute strS…

تفضل اخي الكريم ملفك بعد التعديل الإلحاق بالكود يقبل النصوص والأرقام حسب الكود التالي Private Sub Command0_Click() Dim strSQL As String opdatabase strSQL = ("INSERT INTO UserData ([UserName] , [UserPass]) VALUES('" & Me!t1 & "', '" & Me!t2 & "')") mydatabase.E…

اخي الفاضل : منعم من المعروف ان اي قاعدة بيانات اكسيس يتم حمايتها برقم سري فإنه تظهر لنا نافذة صغيره لكتابة الرقم السري بها ولهذا ليس هناك سبيل لتجاوز هذه النافذه إلا عن طريق فتح القاعدة المحمية بقاعدة اخرى غير محميه حيث يوضع بها الكود والرقم السري لفتح القاعد…

اخي الفاضل البرنامج الثاني افضل بكثير من هذا البرنامج ولكن بناء على طلبك تم تعديل البرنامج ليتوافق مع طلبك وبدون مراجع كل ما عليك هو فتح القاعدة واستخدام البرنامج مباشرة بإتباع ارقام الخطوات من 1- 4 za-EmailReports-LAST.rar بالتوفيق

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

اخي الفاضل برنامج الأكسيل يعتمد بالدرجة الألى على الخلايا ( الصفوف والأعمده ) ولإيجاد المجال التجميعي لأي دالة في برنامج الأكسيل فإننا نضع له بداية الخلية ونهايتها مثل من ( A1 ) الى ( D5 ) اما في برنامج الأكسيس فالدالة تعتمد على الجدول الذي به الحقول المراد اي…

اخي الفاضل استبدل الأكواد القديمة المطابقة لهذه الأكواد بهذه الجديده Sub CALC_INV_TOT() On Error GoTo xx Dim TOT As Double Dim strSQL As String strSQL = "SELECT sum(TransDt.Qty*TransDt.PRICE) " & _ " FROM Trans INNER JOIN TransDt ON Trans.Ser = TransDt.Tran_Se…

اخي الفاضل تنتج رسالة الخطأ السابقه نتيجة عدم فحص بداية او نهاية السجلات لذا استخدم هذه العباره في الكود If Not rs.EOF Then بالتوفيق