أبو آدم

وعليكم السلام
 
الى التقرير --- اختر وضع التصميم --- اختر مربع النص ( تاريخ الميلاد ) --- خيارات مربع النص --- التنسيق Format ( الثالث من الأعلى ) --- اكتب فيه yyyy/mm/dd
 
والبقية عليك
 
.......

أخي حسين
 
يمكن استخدام نفس الفكرة ( من باب الحماية )
بحصر امكانية تشغيل النظام حال وجوده في مسار محدد وقرص محدد ، وحال تغيير المسار او القرص يعترض النظام ويتم اغلاق التطبيق
 
وحسب المرفق
 
ضع التطبيق المرفق مباشرة على القرص c وجرب التشغيل
انقل التطبيق للقرص d او ضمن اي مجلد في القرص c وجرب التشغيل
 
جرب ووافني بالنتيجة
 
والله من وراء القصد
 
NA_Rootexample.rar

هناك أمثله كثيرة في المنتدى
ومنها مثلا ( لا حصراً ) ... http://www.officena.net/ib/index.php?showtopic=49019

حقل غير منضم في التقرير
 
في خصائص الحقل :
control source ( = 1 ) و
running sum ( over all) يعطيك تسلسل كما وصفت باذن الله

أخي سيف
 
لديك :
استعلام لاحصاء المعلمين
استعلام لاحصاء الطلاب
استعلام لاظهار المجاميع للاستعلامين
 
أقترح :
استبدال الاستعلامات الثلاثة باستعلام واحد
مبني على الجدول ، في العامود الأول للاستعلام الجديد ، أكتب
Students: Count(IIf([I01_Name]="طالب",0)) في العامود الثاني أكتب
Teachers: Count(IIf([I01_Name]="معلم",0)) جرب ووافني بالنتيجة
 
ملاحظة : تم الرّد بعد التجربة و التنفيذ
استخدام iif مع count
 
والله من وراء القصد

جدول المرضي جدول رئيسي لا تكرار فيه للسجلات لمريض واحد ويحوي المعلومات الرئيسية الثابتة الخاصة بالمريض
اما جدول الحجوزات فهو جدول يحوي جميع حجوزات المريض / المرضي على تكرارها وتعددها ، ويكون مرتبطا بجدول المرضي بعلاقة واحد لمتعدد
 
والله أعلم

جرب هذه النسخة للاصدار 2007 ، ووافني بالنتيجة
 
والله من وراء القصد ...
 
.......
أشبال القرآن 2007.rar

أخي العزيز
ارفق لك تطبيقا لتعديل اسم النموذج و تعديل عنوان التطبيق
إطلع على المرفق وحال حاجتك للشرح أشعرني
 
وان تيسر لي بإذن الله بعض وقت ، سارفق شرحا وتوضيحا
 
والله من وراء القصد وهو حسبي ، و عل الله يغفر لي ولكم
NA_FormCaption _ M_Set Application Title.rar

خطوة بخطوة
في النموذج : عدَل مربع نص رقم المادة الى قائمة منسدلة
اجعل مصدر المعلومات للقائمة المنسدلة : الجدول ... عامودين ، الاول الرقم وهو بعرض كافي ، و الثاني لإسم المادة وهو بعرض 0 ( صفر - أي مخفي)
في حدث بعد التعديل للقائمة يكون قيمة حقل الاسم = قيمة العامود الثاني من مربع القائمة
ME.TEXT2=COMBO1.Column(1)

أخي الشاعر
حياك الله
المرفق معدل ، الصوت غير عامل على جهازي هذا
 
جرب المرفق ووافني بالنتيجة
 
..........
NA_Playsound.rar

أخي علاء
في نموذجك shareholders
قم بتسمية الحقل غير المنضم لارباح المشاريع بالاسم strProfTot
في خصائص النموذج
وفي حدث عند التحميل ، قم بكتابة الكود
Private Sub Form_Load() Dim ProfTotal As Currency ProfTotal = DSum("profit", "projects") Me.strProfTot = ProfTotal End Sub حيث عرفنا المتغير ProfTotal  كعملة
ثم حددنا قيمته = مجموع قيم الحقل profit من الجدول projects ( بدون شرط / كما طلبت)
ثم جعلنا قيمة الحقل strProfTot في النموذج تساوي ProfTotal
 
* تمت التجربة على المثال --- بنجاح
جرب ووافني بالنتيجة
 
والله من وراء القصد وهو حسبي
 
......

وهذا ايضا متاح بفضل الله
 
تفضل
 
......
NA_DcountUp.rar

انشيئ نموذج جديد وفي عرض التصميم
في قسم التفصيل
اذهب الى activex control
قم باختيار Microsoft ProgressBar control
من خصائص النموذج
On Timer
اكتب الكود
Private Sub Form_Timer() Dim i As Integer For i = 1 To 100 ProgressBar2.Value = i If i = 100 Then End If Next i DoCmd.Close End Sub ProgressBar2 هو اسم عنصر التحكم الافتراضي ( قم بتغييره بالاسم الموجود لديك)
في خصائص النموذج وفي Timer Interval ضع رقما مناسبا للسرعة التي ترغب بها مثل 1000 او 2000 / 100 أو 200 ( حسب اصدار الاوفيس)
 
بسيطة ....
 
جرب ووافني بالنتيجة
 
والله من وراء القصد وهو حسبي
 
............

أخي العزيز
الأمر منوط بمصدر السجل للتقرير
مثلاً : 
أجعل مصدر السجل للتقرير
 
 
SELECT TabCompanies.TabCompanyID, TabCompanies.TabCompName, TabCompanies.TabCompType, TabCompanies.TabCompTelephoneNo, TabCompanies.TabCompAdressFROM TabCompanies WHERE (((TabCompanies.TabCompanyID)=[forms]![TabCompanies]![TabCompanyID]));  

أخي العزيز أبو ندى
المرفق يفي بالحاجة بإذن الله
أعتذر عن الشرح و التفصيل لأسباب عملية وصحية
ربما في وقت آخر
 
والله من وراء القصد وهو حسبي
 
..........
NA_R_FixedRowsPerPage.rar

أخي العزيز
في محرر الفيجوال للنموذج إنسخ الكود
Private Sub borrower_Change() If Me.borrower = "هيئة تدريس" Then Me.Specialization.Enabled = True Me.Specialization.SetFocus Else Me.Specialization.Enabled = False Me.Saff.SetFocus End If End Sub   ووافني بالنتيجة
 
والله من وراء القصد

لتجنب خلو الحقول من القيم استخدم (في الاستعلام)
 
 
 
Like "*" & [Forms]![FormTabItems]![SerchItemID] & "*" Or [Forms]![FormTabItems]![SerchItemID] Is Null  

لإحتساب ما يدور ببالك نستخدم  DateAdd، ولسان الحال يقول :
الحقل (...)= أضف للتاريخ ، بالسنوات ،محتوى حقل عدد سنوات الخدمة (العامود الأول)، لمحتوى عامود تاريخ الترقية
وذلك في حدث عند الحالي للنموذج :
 
Private Sub Form_Current() Me.Tup = DateAdd("yyyy", Me.Yrot.Column(1), Me.data_tarqeah) Me.Tout = DateAdd("yyyy", Me.Yrot1.Column(1), Me.BirthDate) End Sub  

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

 
منها : في خصائص الحقل في النموذج >>  قناع الإدخال InputMask  :  أكتب ############ بعدد الأرقام الذي تريدها في الحقل

...........

ومنها : في حدث عند التغيير للحقل  (Text1)  إنسخ الكود
 
 
 
Private Sub Text1_Change() Ut_IntegerValidation Text1 End Sub   وفي محرر الفيجوال للنموذج إنسخ الروتين
 
 
 
Public Function Ut_IntegerValidation(ByVal MyTextBox As Control) If Not IsNumeric(MyTextBox.Text) Then MyTextBox.Text = "" ElseIf IsNumeric(MyTextBox.Text) Then If Val(MyTextBox.Text) < 0 Then MyTextBox.Text = "" End If End If End Function    
ولها أيضا حلول أخرى  .......
 
والتطبيق في المرفق (2003 و 2007)
...........
 
 
NA_IsNumeric.rar

إليك ما وصلت اليه قبل طلبك الأخير
 
عسى أن تستفيد منه أنت أو أحد الإخوة
 
والله من وراء القصد وهو حسبي
 
...........
NA_ Multi Search.rar

كل مسعانا لوجه الله تعالى لا نبغي أجراً من أحد أو ثناء ، وانما أجرنا على الله
نطمع فقط بدعوة طيبة بظهر الغيب
 
تفضل تصور مبدئي ... بطريقتي الخاصة ، بنفس التحليل الأصيل الذي تحدثت انت عنه ، ولكن عملت بطريقتي
تجول و تعلّم و إسأل و إكتشف
تصميم الجداول
العلاقات
تصميم النموذج
أما الشرح التفصيلي فمرهق و قد لا يتيسر لي أن أطيل به
 
 
MS_NA_Attendance_15022013.rar

الكود في المشاركة السابقة لايقاف عملية الحفظ التلقائي ومنعها و إسناد عملية التعديل لزر أمر للحفظ
ثم نقوم بانشاء زر أمر للحفظ أو التعديل ونضع خلفه الكود التالي :
 
 
 
Dim s As String s = InputBox("Hi", "PassWord", "Enter Your Code")   Select Case s   Case "" MsgBox "You either hit ESCAPE or entered nothing" Exit Sub   Case "123", "456", "789"         blnGood = True         Call DoCmd.RunCommand(acCmdSaveRecord)         blnGood = False Exit Sub   Case Else MsgBox "You entered '" & s & "'. I don't know what to do about that." End Select  

أخي العزيز
إليك الحلّ كما طلبت
خلف زر أمر ضع الكود التالي
 
Dim DB As DAO.Database Dim Rst As DAO.Recordset Dim NullReplace As String Set DB = CurrentDb() Set Rst = DB.OpenRecordset("tblData") Do Until Rst.EOF If IsNull(Rst!F25) = True Then Rst.Edit Rst!F25 = NullReplace Rst.Update Else NullReplace = Nz(Rst!F25, "") End If Rst.MoveNext Loop Rst.Close Set Rst = Nothing Set DB = Nothing فيقوم بتعبئة أرقام الطلاب في الحقول الفارغة
ثم يمكنك إستكمال إستخدام الجدول كما تشاء ، أو يمكنك إنشاء أي جدول بالترتيب و الطريقة التي تريدها من رحم هذا الجدول
 
تم تجربة الكود على نفس القاعدة ولم تنشر الابعد التدقيق
 
والله من وراء القصد

Private Sub Form_Open(Cancel As Integer) Dim XA, XB, XC As Object, i As String, X As Integer For X = Me.db_cmb.ListCount - 1 To 0 Step -1 Me.db_cmb.RemoveItem (X) Next X Set XA = CreateObject("Scripting.FileSystemObject") Set XB = XA.GetFolder(CurrentProject.Path).Files For Each XC In XB i = XA.GetExtensionName(XC.Name) i = UCase(i) If i = "mdb" Then Me.db_cmb.AddItem (XC.Name) End If Next Set XA = Nothing Set XB = Nothing End Sub كلام جميل ... هكذا يكون التميز
 
شكراً أبا خليل
 
..............

أخي الحبيب
إستكمالاً لما تفضل به أخي Bluemind
وتحقيقاً لما في استطرادك بالطلب الأخير (إن كنت قد أحسنت الفهم عنك) ، يعدل الكود كما يلي:


Private Sub txtqus_AfterUpdate() Dim intQNo As Integer Dim strSQL2 As String Dim intStuNo As Integer Dim intQf As Integer Dim LResponse As Integer Dim strSQL As String On Error Resume Next intQNo = Forms!stuInfoo!txtqus.Value intStuNo = Forms!stuInfoo!no.Value intQf = DLookup("[nos]", "degree", "[nos] = " & Forms![stuInfoo]![no]) If intQf > 0 Then LResponse = MsgBox("مسجل للطالب سجلات سابقة ، هل ترغب بإستبدالها", vbYesNo, "Continue") If LResponse = vbYes Then strSQL = "DELETE FROM [degree] " & _ "WHERE [nos] = " & Forms![stuInfoo]![no] CurrentDb.Execute strSQL, dbFailOnError Forms!stuInfoo!Subform_degree1.Form.Requery Else End If End If For i = 1 To intQNo strSQL2 = "INSERT INTO degree (nos,noQ) Values(" & Forms!stuInfoo!no & ", " & i & ")" CurrentDb.Execute strSQL2, dbFailOnError Next i Forms!stuInfoo!Subform_degree1.Form.Requery End Sub

والله من وراء القصد
..........