haniameen

السلام عليكم بحثت عن كود لقفل قاعدة بيانات أكسس بتاريخ معين حتى تعبت ولكن بعد عناء وجدت هذا الكود في وحدة نمطية مستقلة الذي يعطي رسالة عند قفل قاعدة البيانات عند استخدامها من شخص أخر ولكن لم أفهمه أرجو من اساتذتي في المنتدى شرح هذا الكود وما هو المطلوب لتنفيذه كي يمكن استخدامه Option Compare Database Dim db As Database Dim rs As DAO.Recordset Dim x As Integer Dim y As Integer Function StartUp() On Error GoTo Err_ProcedureName Set db = CurrentDb Set rs = db.OpenRecordset("tblDateFlagged", dbOpenDynaset) If rs.EOF = False Then rs.MoveLast If rs.Fields("FlagDate") = True Then MsgBox "حدث خطأ فادح اثناء الرصد . ادى الى تلف البرنامج وحذف البيانات.", vbOKOnly, "تنبيــه" DoCmd.Quit End If If Date > rs.Fields("MeDate") Then MsgBox "حدث خطأ فادح اثناء الرصد . ادى الى تلف البرنامج وحذف البيانات. ", vbOKOnly, "تنبيــه" DoCmd.Quit End If rs.MoveFirst If Date < rs.Fields("MeDate") Then MsgBox "حدث خطأ فادح اثناء الرصد . ادى الى تلف البرنامج وحذف البيانات. ", vbOKOnly, "Serious Warning" DoCmd.Quit End If Else If rs.BOF = True Then y = 0 Do Until x = 30 x = rs.RecordCount rs.AddNew rs.Fields("MeDate") = Date + y rs.Update y = y + 1 Loop End If End If UpdateTable Exit_ProcedureName: Exit Function Err_ProcedureName: MsgBox Err.Description, vbOKOnly + vbCritical, "Function Start Up" Resume Exit_ProcedureName End Function Function UpdateTable() On Error GoTo Err_ProcedureName Set db = CurrentDb Set rs = db.OpenRecordset("tblDateFlagged", dbOpenDynaset) If rs.BOF = False Then rs.MoveFirst Do While rs.Fields("MeDate") <= Date rs.Edit rs.Fields("FlagDate") = True rs.Update rs.MoveNext Loop End If Exit_ProcedureName: Exit Function Err_ProcedureName: MsgBox Err.Description, vbOKOnly + vbCritical, "Function Update Table" Resume Exit_ProcedureName End Function ووجدت معه كود أخر في وحده نمطية مستقلة فهل لهذا الكود علاقة بالكود أعلاه Option Compare Database Option Explicit Type adhTypeRect x1 As Long Y1 As Long X2 As Long Y2 As Long End Type Declare Function adh_apiIsIconic Lib "user32" _ Alias "IsIconic" (ByVal hWnd As Long) As Long Declare Function adh_apiGetDeviceCaps Lib "gdi32" _ Alias "GetDeviceCaps" (ByVal hdc As Long, _ ByVal nIndex As Long) As Long Declare Function adh_apiGetWindowRect Lib "user32" _ Alias "GetWindowRect" (ByVal hWnd As Long, _ lpRect As adhTypeRect) As Long Declare Function adh_apiGetParent Lib "user32" _ Alias "GetParent" (ByVal hWnd As Long) As Long Declare Function adh_apiGetClientRect Lib "user32" _ Alias "GetClientRect" (ByVal hWnd As Long, _ lpRect As adhTypeRect) As Long Declare Function adh_apiGetWindowLong Lib "user32" _ Alias "GetWindowLongA" (ByVal hWnd As Long, _ ByVal nIndex As Long) As Long Declare Function adh_apiGetSystemMetrics Lib "user32" _ Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Declare Function adh_apiGetActiveWindow Lib "user32" _ Alias "GetActiveWindow" () As Long Type adhTypeDimensions sglLeft As Single sglTop As Single sglWidth As Single sglHeight As Single strCtlName As String End Type Public Const adhcAccessClass = "OMain" Public Const adhcMDIClientClass = "MDICLIENT" Public Const adhcAccessDBCClass = "ODb" Public Const adhcAccessFormClass = "OForm" Declare Function adh_apiCreateIC Lib "gdi32" _ Alias "CreateICA" (ByVal lpDriverName As String, _ ByVal lpDeviceName As String, ByVal lpOutput As String, _ lpInitData As Any) As Long Declare Function adh_apiDeleteDC Lib "gdi32" _ Alias "DeleteDC" (ByVal hdc As Long) As Long Declare Function adh_apiMoveWindow Lib "user32" _ Alias "MoveWindow" (ByVal hWnd As Long, _ ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _ ByVal nHeight As Long, ByVal bRepaint As Long) As Long Declare Function adh_apiSetWindowLong Lib "user32" _ Alias "SetWindowLongA" (ByVal hWnd As Long, _ ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Declare Function adh_apiGetWindow Lib "user32" _ Alias "GetWindow" (ByVal hWnd As Long, ByVal wCmd As Long) As Long Declare Function adh_apiGetClassName Lib "user32" _ Alias "GetClassNameA" (ByVal hWnd As Long, _ ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Declare Function adh_apiFindWindow Lib "user32" _ Alias "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Declare Function adh_apiGetNextWindow Lib "user32" _ Alias "GetNextWindow" (ByVal hWnd As Long, _ ByVal wFlag As Long) As Long Declare Function adh_apiSetFocus Lib "user32" _ Alias "SetFocus" (ByVal hWnd As Long) As Long Declare Function adh_apiGetPrivateProfileString Lib "kernel32" _ Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _ ByVal lpKeyName As String, ByVal lpDefault As String, _ ByVal lpReturnedString As String, ByVal nSize As Long, _ ByVal lpFileName As String) As Long Declare Function adh_apiWritePrivateProfileString Lib "kernel32" _ Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _ ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long Declare Function adh_apiGetProfileString Lib "kernel32" _ Alias "GetProfileStringA" (ByVal lpadhcAppName As String, _ ByVal lpKeyName As String, ByVal lpDefault As String, _ ByVal lpReturnedString As String, ByVal nSize As Long) As Long Declare Function adh_apiGetProfileInt Lib "kernel32" _ Alias "GetProfileIntA" (ByVal lpadhcAppName As String, _ ByVal lpKeyName As String, ByVal nDefault As Long) As Long Declare Function WriteProfileString Lib "kernel32" _ Alias "WriteProfileStringA" (ByVal lpszSection As String, _ ByVal lpszKeyName As String, ByVal lpszString As String) As Long Declare Function GetPrivateProfileInt Lib "kernel32" _ Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, _ ByVal lpKeyName As String, ByVal nDefault As Long, _ ByVal lpFileName As String) As Long Public Const adhcGW_CHILD = 5 Public Const adhcGW_HWNDNEXT = 2 Public Const adhcVERTRES = 10 Public Const adhcHORZRES = 8 Public Const adhcLOGPIXELSX = 88 Public Const adhcLOGPIXELSY = 90 Public Const adhcTwipsPerInch = 1440 Public Const adhcGWL_STYLE = -16 Public Const adhcWS_CAPTION = &HC00000 Public Const adhcSM_CYCAPTION = 4 Public Const adhcSM_CXFULLSCREEN = 16 Public Const adhcSM_CYFULLSCREEN = 17 وجزاكم الله خيرا

طب كده طلاب المنازل الخاصين بالمدرسة اختفو والمعيار عندما يساوي 1 يعني منتظم فقط والمطلوب تجميع المنتظم والمنازل

للاسف رتب المنتظم كله مع بعض اولا ثم المنازل مع بعض لو تلاحظ ان هناك تجميع باسم المدرسة وهناك بعض المدارس تحوي ( منتظم + منازل ) لازم يتجمعو مع بعض عشان اجمالي عدد التلاميذ بالمدرسة يساوي المنتظم + المنازل

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

اخواني لدي تقرير تم التجميع فيه باسم المدرسة لأن المدرسة بها طلاب منتظمين وطلاب منازل ( اسم المدرسة للطلاب المنتظمين والطلاب المنازل هو اسم واحد لكن كود المدرسة هو اللي مختلف) المهم انا جمعت باسم المدرسة عشان اجمع الطلاب المنتظمين والمنازل ... لكن عند عرض التقرير حاولت فرز المدارس حسب كود المدرسة منتظم لكن فشلت المطلوب فرز حسب كود المدرسة منتظم يعني في إدارة الزينية المفروض يبدأ الترتيب من 52 ، 53 ، 54 جتى 60 ( مع تجميع المنازل مع المنتظم كما هو مطبق بالتقرير ) المطلوب فرز تصاعدي حسب كود المدرسة فرز حسب كود المدرسة.rar

تسلم حبيبي ابو خليل وصل يا معلم وقبض عليه متلبس وهو حاليا رهن التحقيق شكرا

لدي ثلاث نماذج 1 - رئيس tsform 2 فرعي fform وبه حقا اسمه c-_stu 3 - النموذج الثالث tp_month اريد ان اربطه بالنموذج الفرعي من خلال حقل c_stu عايز اقوله في القيمة الافتراضية لحقل c_stu في نموذدج tp_month أن هذا الحقل يستمد قيمته الافتراضية من حقل c_stu الموجود في النموذج الفرعي fform والموجود في النموذج الرئيسي tsform أنا لما كتب التعبير بهذه الطريقةلم ينجح ولم يصل للحقل [forms]![fform]![c_stu] بيتهيألي لازم أمر على النموذج الرئيسي الأول وأعرفه أن هذا الحقل موجود في نموذج فرعي يتبع النموذج الرئيس فكيف يكون التعبير

اخي الملف المرفق لم يوضح اي شيء ويظهرالكلام بطريقة غريبة

للأسف أخي الوزير المعادلة تعطيني خطأ أن دالة nz غير معرفة ولكن توصلت للمعادلة الآتية وأعطتني نتائج صحيحة أرجو أن تقوم بالاطلاع عليها وابداء ملاحظاتك حساب الشهور: Val(Nz(DSum("salary";"qur_stu";"c_month = " & [c_month] & " and c_safe = " & [c_safe ] & " and c_group = " & [c_group ] & "");0))

يا ريت توضح اكثر مش فاهم ماذا تقصد

أرجو أن يكون هذا هو المطلوب الموظفين.rar

لدي استعلام total يحسب اجمالي المدفوعات لكل صف في كل شهر لكن عند حساب الاجماليات تظهر النتائج غير صحيحة فهل هناك خطأ في معادلة حساب المجموع في استعلام total فمثلا الصف الأول في يناير قام بدفع مبلغ 540 جنيها ولكن في استعلام الجمع والتقرير يظهر 640 وفي شهر فبراير قام بدفع 160 تظهر في الاستعلام والتقرير 280 ومثله شهر مارس وايضا في الصف الثاني النتائج كلها غير مطابقة للحقيقة ارجو النظر للمعادلة في استعلام total هل هي صحيحة ام لا total.rar

اخواني لدي قاعدة بيانات لمجموعة مدرسية للطلاب بها اربع جداول جدول الصف وجدول الطلاب وجدول الشهر وجدول لتسجيل عدد مرات الغياب بالشهر المطلوب عمل نموذج يتم من خلاله تسجيل المبلغ المدفوع لكل شهر على حدا لكل طالب وتسجيل عدد مرات الغياب لكل شهر لنفس الطالب حيث ان عدد الحصص في الشهر الواحد 9 حصص من خلال 1 - اختيار الصف ثم اختيار الطالب ثم اختيار الشهر ثم تدوين المبلغ ثم تدوين الغياب ان وجد من خلال نموذج اذا كان هناك خطأ في العلاقات من جانبي فلا مانع من تعديله حتى يتم المطلوب وجزاكم الله خيرا keyab.rar

شكرا اخي صالح تم تنفيذ المطلوب وتطبيقه ربنا يبارك فيك ويجزيك عنا خير الجزاء

ربنا يبارك فيك استاذي عبد الفتاح وجزاك الله عنا خير الجزاء

كيف يمكن الكتابة رأسي في تقرير أكسس من أعلى لأسفل كما هو موضح بالصورة الكتابة رأسي من أعلى لأسفل.mdb

أشكرك أستاذي عبد الفتاح على هذا الاهتمام على الرغم من أن الأستاذ جعفر وأبو خليل قد قاموا بالواجب سأقوم بتجريب الكود ودراسته والرد عليك قريبا ان شاء الله

كم انت عظيم أخي جعفر أنم وأخي أبو خليل بارك اله فيكم وجزاكم الله عنا خير الجزاء هناك مشكلة قابلتني في كود الأخ ابو خليل في تسلسل الأغلفة تبعا لتسلسل الرقم السري ولكن فوجئت بالحل عندك أنا عاجز عن شكركما أنتما الاثنين وبارك اله فيكم أخيكم الصغير هاني

الصراحة أخي ابو خليل كما قال الكتاب .... وبسم الله ما شاء اله على فهم الموضوع ...... خفت أن يخونني التعبير في توصيل ما اريد جزاك الله عنا خير الجزاء لكن حاولت فهم الكود ولكن فشلت لعلك تلقى الوقت المناسب لشرحه لنا ولأعضاء المنتدى حتى نستفيد من علمك الغزير

إلى أخواني المبرمجين في جدول الطلاب يوجد حقل الرقم السري sery وحقل المجموعة Group أولا استخراج رقم الغلاف بناء على الرقم السري والمجموعة : المطلوب كل مجموعة تقسم بداخلها إلى 50 سجل بالترتيب وكل 50 سجل يسمى غلاف يعني مثلا : المجموعة رقم 1 بها 33 غلاف لأن عدد سجلاتها 1650 ( يعني ارقام الأغلافة في المجموعة الأولى تبدأ من 1 : 33) لأننا قسمنا عدد سجلات المجموعة رقم 1 على 50 اللي هو ( عدد الغلاف ) المجموعة رقم 7 بها 30 غلاف لأن عدد سجلاتها 1500 ( يعني أرقام الأغلفة في المجموعة السابعة تبدأ من 1 : 30 ) المطلوب عمل هذا برمجيا من خلال نموذج او استعلام بحيث عندما نتختار رقم المجموعة يتم استخراج ارقام الأغلفة لكل مجموعة برمجيا ملحوظة ( كل 50 طالب مشتركين في رقم غلاف واحد داخل المجموعة الواحدة ) ثانيا رقم المظروف بناء على الرقم السري فقط ولا دخل لرقم المجموعة في الموضوع ودي أسهل شوية كل 50 رقم سري في مظروف واحد بالترتيب يعني عندنا عدد الطلاب بناء على الأرقام السرية 15864 على 50 يعطينا 318 مظروف ( كل 50 رقم سري في مظروف واحد ) معلش أنا طرحت الفكرتين مع بعض لأنني اعتقد انهما متقاربين في الفكرة رقم الغلاف والمظروف.rar

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

جاري التجريب استاذي شيفان والرد لاحقا

الأخوة في هذا المنتدى كل عام وانتم بخير لدي تقرير "lagna" تم التجميع فيه بواسطة حقل Lagnah_code حيث أن كل لجنة بها المدارس الخاصة بها ممكن تكون مدرسة أو اتنين أو أكثر المطلوب من الأخوة الزملاء تحديد لجنتين فقط في كل صفحة ( يعني تحديد سجلين لجنة ) مثلا اللجان التي كودها 1 ، 2 في الصفحة الأولى اللجان التي كودها 3 ، 4 في الصفحة الثانية اللجان التي كودها 5 ، 6 في الصفحة الثالثة وهكذا تحديد لجنتين فقط في كل صفحة بدون استخدام نماذج سجلين بتقرير.rar

اخي شيفان اشكرك على مرورك هذا هذا هو المطلوب وبارك الله فيك ودمتم ذخرا لهذا المنتدى

الأخوة في هذا المنتدى كل عام وانتم بخير قمت بتصميم استعلام يستخلص من الرقم القومي تاريخ الميلاد والسن في أول أكتوبر والنوع ويتبقى معي محافظة الميلاد المطلوب وضع الكود المرفق بوحدة نمطية واستدعئه من خلال استعلام دون استخدام نماذج حيث أن National_no هو حقل الرقم القومي If(Mid([National_no];8;2)=1;"القاهرة"; If(Mid([National_no];8;2)=2;"الإسكندرية"; If(Mid([National_no];8;2)=3;"بورسعيد"; If(Mid([National_no];8;2)=4;"السويس"; If(Mid([National_no];8;2)=11;"دمياط"; If(Mid([National_no];8;2)=12;"الدقهلية"; If(Mid([National_no];8;2)=13;"الشرقية"; If(Mid([National_no];8;2)=14;"القليوبية"; If(Mid([National_no];8;2)=15;"كفر الشيخ"; If(Mid([National_no];8;2)=16;"الغربية"; If(Mid([National_no];8;2)=17;"المنوفية"; If(Mid([National_no];8;2)=18;"البحيرة"; If(Mid([National_no];8;2)=19;"الإسماعيلية"; If(Mid([National_no];8;2)=21;"الجيزة"; If(Mid([National_no];8;2)=22;"بني سويف"; If(Mid([National_no];8;2)=23;"الفيوم"; If(Mid([National_no];8;2)=24;"المنيا"; If(Mid([National_no];8;2)=25;"أسيوط"; If(Mid([National_no];8;2)=;"سوهاج"; If(Mid([National_no];8;2)=27;"قنا"; If(Mid([National_no];8;2)=28;"أسوان"; If(Mid([National_no];8;2)=29;"الأقصر"; If(Mid([National_no];8;2)=31;"البحر الأحمر"; If(Mid([National_no];8;2)=32;"الوادي الجديد"; If(Mid([National_no];8;2)=33;"مطروح"; If(Mid([National_no];8;2)=34;"شمال سيناء"; If(Mid([National_no];8;2)=35;"خارج الجمهورية";"جنوب سيناء"))))))))))))))))))))))))))) محافظة الميلاد.rar