mourad2012

DoCmd.OpenForm "BankDeposit",acNormal , , "[Receipt Date] = #" & [Receipt Date] & "#"

فكرة رائعة اخي الكريم ،،، واليك بعض الملاحظات حبذا لو يتم تطبيقها الان بعد الربط غير السليم يخبرنا انه تم الربط بطريقة غير سليمة ويفتح البرنامج باخطاء!!! ونحتاج بعد ذلك الى اعادة تسمية القاعدة التي تم ربطها بالخطأ! كي يطالبنا بمكان القاعدة الصحيحة. أليس كذلك؟؟؟ ما رأيك استاذنا الحبيب رمهان لو أن الكود عند الربط غير السليم يقوم بازالة مسار القاعدة الخطأ من جدول ( BackDBs ) والخروج من البرنامج تلقائيا وعند الدخول مرة اخرى يطالبنا بمكان الداتا الصحيحة،،، ليصبح هكذا: Dim strSQL As String If CurrentDb.OpenRecordset("SELECT MSysObjects.Name, MSysObjects.Type FROM MSysObjects AS MSysObjects_1 RIGHT JOIN [" & DLookup("DBPathANDName", "BackDBs", "found=true") & "].MSysObjects ON MSysObjects_1.ForeignName = MSysObjects.Name WHERE (((MSysObjects.Name) Not Like '*msys*') AND ((MSysObjects_1.ForeignName) Is Null) AND ((MSysObjects.Type)=1))").RecordCount <> 0 Then MsgBox ("قاعدة البيانات التي تم ربطها بالبرنامج غير صحيحة، برجاء اختيار قاعدة اخرى") strSQL = "Update BackDBs SET DBPathANDName = null" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True DoCmd.Quit Else End If دمتم بود

يجب ان تنتبه للفاصلة قد تكون اعدادات المنطقة لديك بفاصلة منقوطة Total: DCount("ID";"main";"sex ='انثى' And age between 1 And 5") مع مراعاة ان الحقل الخاص بالعمر هو رقم (age) وليس نص 2-tesst.rar

اجعل الكود الخاص بك هكذا: Total: DCount("ID","main","sex ='انثى' And age between 1 And 5")

اخي العزيز جعفر،،، ادامك الله ورعاك ،،، وجعل عملك في ميزان حسناتك احسنت وابدعت كما العادة ،،، عهدتك معطاءً وستبقى لك مني كل الشكر والتقدير هذا ما طلبته بالضبط وبخصوص التقارير العادية :) حاجة في عملي فرضت علي مثل هذا التقرير. مرة اخرى احترااااااااااامي لشخصك الطيب وتحياتي لجميع من في هذا الصرح الرائع

السلام عليكم ورحمة الله وبركاته كيف حال الجميع في هذا الصرح الرائع اتمنى من الله ان تكونوا في احسن حال وراحة بال اخوتي: قمت بعمل كود برمجي يقوم بتوزيع الحقول برمجياً لبناء جدول علامات مدرسية ولكن واجهتني معضلة وحاولت وحاولت لكن دون فائدة واتمنى من الله ان نتمكن من تجاوزها،،، الكود هو: Option Compare Database Const Insh = 1440 Private Sub Report_Open(Cancel As Integer) Dim Mynum Dim Counter Dim wd '==================== التوسعة بالانش wd = 0.3 * Insh Dim i '=========================== هنا يقوم الكود بحساب العرض لجميع الحقول For i = 1 To 30 Me("a" & i).Width = wd Next i 'Me.a2.Width = 1500 '===================== نقوم بعمل تكرااااار لتزيع الحقول لتتماشى مع بعضها Counter = 1 Mynum = 30 Do While Mynum > 1 Mynum = Mynum - 1 Counter = Counter + 1 For i = 1 To 29 Me("a" & i).Left = Me("a" & i + 1).Left + wd Next i Loop End Sub يقوم بتوزيع الخانات بالتساوي ولكن ما اريده ان اتجاوز هذه الفكرة واقوم بتوسيع بعض الحقول مع توافق الازاحة بشكل صحيح المثال المرفق يوضح المشكلة احترااامي TestDBR.rar

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

السلام عليكم ورحمة الله وبركاته بداية نبارك للجميع بعودة عباقرة المنتدى وعلى راسهم الدكتورة ام عهود حفظها الله ورعاها ،،، في الملف: المرفق ناتج من تصدير اكسس الى اكسل، ما اريده فضلاً لا امرا وضعي على بداية طريق تنسيق الملف لاني حاولت ولم افلح ،،، وتقبلوا تحياتي :: Excel-export.rar

IDnum = DMax("[IDnum]", "tbl1") + 1 استخدم الكود السابق على الحقل الذي تريد Prog444.rar

بارك الله فيك اخي جعفر انت ذخر لهذا المنتدى الرائع بعد ان تم اقفال منتدى الفريق العربي تم تطبيق طريقتك على استعلام وضبطت :: الاخر العبقري رمهان: ضبطت (Fix) في المكان الذي اريد بالضبط الف شكر لكما وادامكما الله ذخرا ونبراسا لهذا المنتدى الرائع :: تحياتي

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته مشكلة في تقسيم العدد السالب يعطي زيادة واحد استخدم الدالة التالية: Me.t1 = Format(vv - Int([vv]), "0.00") * 100 Me.t2 = Int([vv]) مرفق قاعدة تجريبية تحياتي TestMd.rar