mourad2012

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

4 ساعات مضت, sandanet said:

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 ("الربط غير سليم")

فكرة رائعة اخي الكريم ،،، واليك بعض الملاحظات حبذا لو يتم تطبيقها

الان بعد الربط غير السليم يخبرنا انه تم الربط بطريقة غير سليمة ويفتح البرنامج باخطاء!!!

ونحتاج بعد ذلك الى اعادة تسمية القاعدة التي تم ربطها بالخطأ! كي يطالبنا بمكان القاعدة الصحيحة.  أليس كذلك؟؟؟

ما رأيك استاذنا الحبيب رمهان لو أن الكود عند الربط غير السليم يقوم بازالة مسار القاعدة الخطأ من جدول ( 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