اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أبو آدم

أوفيسنا
  • Posts

    3,292
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    29

Community Answers

  1. أبو آدم's post in التاريخ فى التقرير يقراء من الشمال الى اليمين was marked as the answer   
    وعليكم السلام
     
    الى التقرير --- اختر وضع التصميم --- اختر مربع النص ( تاريخ الميلاد ) --- خيارات مربع النص --- التنسيق Format ( الثالث من الأعلى ) --- اكتب فيه yyyy/mm/dd
     
    والبقية عليك
     
    .......
  2. أبو آدم's post in استفسار عن كود مسار للبرنامج was marked as the answer   
    أخي حسين
     
    يمكن استخدام نفس الفكرة ( من باب الحماية )
    بحصر امكانية تشغيل النظام حال وجوده في مسار محدد وقرص محدد ، وحال تغيير المسار او القرص يعترض النظام ويتم اغلاق التطبيق
     
    وحسب المرفق
     
    ضع التطبيق المرفق مباشرة على القرص c وجرب التشغيل
    انقل التطبيق للقرص d او ضمن اي مجلد في القرص c وجرب التشغيل
     
    جرب ووافني بالنتيجة
     
    والله من وراء القصد
     
    NA_Rootexample.rar
  3. أبو آدم's post in اجمالي في تقرير was marked as the answer   
    هناك أمثله كثيرة في المنتدى
    ومنها مثلا ( لا حصراً ) ... http://www.officena.net/ib/index.php?showtopic=49019
  4. أبو آدم's post in ترقيم تلقائي في تقرير was marked as the answer   
    حقل غير منضم في التقرير
     
    في خصائص الحقل :
    control source ( = 1 ) و
    running sum ( over all) يعطيك تسلسل كما وصفت باذن الله
  5. أبو آدم's post in القيمه صفر في استعلام و استخدام iif مع count was marked as the answer   
    أخي سيف
     
    لديك :
    استعلام لاحصاء المعلمين
    استعلام لاحصاء الطلاب
    استعلام لاظهار المجاميع للاستعلامين
     
    أقترح :
    استبدال الاستعلامات الثلاثة باستعلام واحد
    مبني على الجدول ، في العامود الأول للاستعلام الجديد ، أكتب
    Students: Count(IIf([I01_Name]="طالب",0)) في العامود الثاني أكتب
    Teachers: Count(IIf([I01_Name]="معلم",0)) جرب ووافني بالنتيجة
     
    ملاحظة : تم الرّد بعد التجربة و التنفيذ
    استخدام iif مع count
     
    والله من وراء القصد
  6. أبو آدم's post in ارجوا مساعدة فى تحليل نظام عيادة was marked as the answer   
    جدول المرضي جدول رئيسي لا تكرار فيه للسجلات لمريض واحد ويحوي المعلومات الرئيسية الثابتة الخاصة بالمريض
    اما جدول الحجوزات فهو جدول يحوي جميع حجوزات المريض / المرضي على تكرارها وتعددها ، ويكون مرتبطا بجدول المرضي بعلاقة واحد لمتعدد
     
    والله أعلم
  7. أبو آدم's post in تعديل بسيط على برنامج مسابقة was marked as the answer   
    جرب هذه النسخة للاصدار 2007 ، ووافني بالنتيجة
     
    والله من وراء القصد ...
     
    .......
    أشبال القرآن 2007.rar
  8. أبو آدم's post in تغيير عنوان النموذج من سنة الى اخرى (معدل) was marked as the answer   
    أخي العزيز
    ارفق لك تطبيقا لتعديل اسم النموذج و تعديل عنوان التطبيق
    إطلع على المرفق وحال حاجتك للشرح أشعرني
     
    وان تيسر لي بإذن الله بعض وقت ، سارفق شرحا وتوضيحا
     
    والله من وراء القصد وهو حسبي ، و عل الله يغفر لي ولكم
    NA_FormCaption _ M_Set Application Title.rar
  9. أبو آدم's post in تعبئة خلية في نموذج ويقوم بتعبئة خلية اخرى مربوط بها was marked as the answer   
    خطوة بخطوة
    في النموذج : عدَل مربع نص رقم المادة الى قائمة منسدلة
    اجعل مصدر المعلومات للقائمة المنسدلة : الجدول ... عامودين ، الاول الرقم وهو بعرض كافي ، و الثاني لإسم المادة وهو بعرض 0 ( صفر - أي مخفي)
    في حدث بعد التعديل للقائمة يكون قيمة حقل الاسم = قيمة العامود الثاني من مربع القائمة
    ME.TEXT2=COMBO1.Column(1)
  10. أبو آدم's post in إضافة صوت مع زر الأمر was marked as the answer   
    أخي الشاعر
    حياك الله
    المرفق معدل ، الصوت غير عامل على جهازي هذا
     
    جرب المرفق ووافني بالنتيجة
     
    ..........
    NA_Playsound.rar
  11. أبو آدم's post in فضلاً أريد تصحيح كود إستداعاء قيمة مربع نص بنموذج من نموذج اخر was marked as the answer   
    أخي علاء
    في نموذجك shareholders
    قم بتسمية الحقل غير المنضم لارباح المشاريع بالاسم strProfTot
    في خصائص النموذج
    وفي حدث عند التحميل ، قم بكتابة الكود
    Private Sub Form_Load() Dim ProfTotal As Currency ProfTotal = DSum("profit", "projects") Me.strProfTot = ProfTotal End Sub حيث عرفنا المتغير ProfTotal  كعملة
    ثم حددنا قيمته = مجموع قيم الحقل profit من الجدول projects ( بدون شرط / كما طلبت)
    ثم جعلنا قيمة الحقل strProfTot في النموذج تساوي ProfTotal
     
    * تمت التجربة على المثال --- بنجاح
    جرب ووافني بالنتيجة
     
    والله من وراء القصد وهو حسبي
     
    ......
  12. أبو آدم's post in تعديل قيمة حقل في نموذج was marked as the answer   
    وهذا ايضا متاح بفضل الله
     
    تفضل
     
    ......
    NA_DcountUp.rar
  13. أبو آدم's post in كيفية اضافة progress bar2 الى الفورم was marked as the answer   
    انشيئ نموذج جديد وفي عرض التصميم
    في قسم التفصيل
    اذهب الى 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 ( حسب اصدار الاوفيس)
     
    بسيطة ....
     
    جرب ووافني بالنتيجة
     
    والله من وراء القصد وهو حسبي
     
    ............
  14. أبو آدم's post in تحويل تقرير الى ملف PDF في اكسس 2010 was marked as the answer   
    أخي العزيز
    الأمر منوط بمصدر السجل للتقرير
    مثلاً : 
    أجعل مصدر السجل للتقرير
     
     
    SELECT TabCompanies.TabCompanyID, TabCompanies.TabCompName, TabCompanies.TabCompType, TabCompanies.TabCompTelephoneNo, TabCompanies.TabCompAdressFROM TabCompanies WHERE (((TabCompanies.TabCompanyID)=[forms]![TabCompanies]![TabCompanyID]));  
  15. أبو آدم's post in طباعة عدد سجلات محدد في صفحات التقرير (معدل) was marked as the answer   
    أخي العزيز أبو ندى
    المرفق يفي بالحاجة بإذن الله
    أعتذر عن الشرح و التفصيل لأسباب عملية وصحية
    ربما في وقت آخر
     
    والله من وراء القصد وهو حسبي
     
    ..........
    NA_R_FixedRowsPerPage.rar
  16. أبو آدم's post in تعديل في نموذج was marked as the answer   
    أخي العزيز
    في محرر الفيجوال للنموذج إنسخ الكود
    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   ووافني بالنتيجة
     
    والله من وراء القصد
  17. أبو آدم's post in مشكلة في بحث لعدة حقول من نموذج مستند على إستعلام متعدد was marked as the answer   
    لتجنب خلو الحقول من القيم استخدم (في الاستعلام)
     
     
     
    Like "*" & [Forms]![FormTabItems]![SerchItemID] & "*" Or [Forms]![FormTabItems]![SerchItemID] Is Null  
  18. أبو آدم's post in مساعدة : جمع سن التقاعد وجمع تاريخ الترقية was marked as the answer   
    لإحتساب ما يدور ببالك نستخدم  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  
  19. أبو آدم's post in عدم حذف الصفر في بداية الرقم عند تعيين خاصية عنصر التحكم الى ارقام was marked as the answer   
    أخي العزيز
     
    هناك مجموعة من الخيارات لموضوع منع إدخال الأحرف في مربع النص و قصر الإدخال على الأرقام

     
    منها : في خصائص الحقل في النموذج >>  قناع الإدخال 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
  20. أبو آدم's post in كيفية عمل استعلام يبحث في اكثر من حقل was marked as the answer   
    إليك ما وصلت اليه قبل طلبك الأخير
     
    عسى أن تستفيد منه أنت أو أحد الإخوة
     
    والله من وراء القصد وهو حسبي
     
    ...........
    NA_ Multi Search.rar
  21. أبو آدم's post in برنامج حضور وغياب was marked as the answer   
    كل مسعانا لوجه الله تعالى لا نبغي أجراً من أحد أو ثناء ، وانما أجرنا على الله
    نطمع فقط بدعوة طيبة بظهر الغيب
     
    تفضل تصور مبدئي ... بطريقتي الخاصة ، بنفس التحليل الأصيل الذي تحدثت انت عنه ، ولكن عملت بطريقتي
    تجول و تعلّم و إسأل و إكتشف
    تصميم الجداول
    العلاقات
    تصميم النموذج
    أما الشرح التفصيلي فمرهق و قد لا يتيسر لي أن أطيل به
     
     
    MS_NA_Attendance_15022013.rar
  22. أبو آدم's post in نموذج بصلاحية مدخل البيانات فقط was marked as the answer   
    الكود في المشاركة السابقة لايقاف عملية الحفظ التلقائي ومنعها و إسناد عملية التعديل لزر أمر للحفظ
    ثم نقوم بانشاء زر أمر للحفظ أو التعديل ونضع خلفه الكود التالي :
     
     
     
    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  
  23. أبو آدم's post in (تمت الاجابة) سؤال في الجداول was marked as the answer   
    أخي العزيز
    إليك الحلّ كما طلبت
    خلف زر أمر ضع الكود التالي
     
    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 فيقوم بتعبئة أرقام الطلاب في الحقول الفارغة
    ثم يمكنك إستكمال إستخدام الجدول كما تشاء ، أو يمكنك إنشاء أي جدول بالترتيب و الطريقة التي تريدها من رحم هذا الجدول
     
    تم تجربة الكود على نفس القاعدة ولم تنشر الابعد التدقيق
     
    والله من وراء القصد
  24. أبو آدم's post in كتابة مسار قاعدة البيانات بمجرد كتاب أول رقمين أو أول حرفين منها was marked as the answer   
    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 كلام جميل ... هكذا يكون التميز
     
    شكراً أبا خليل
     
    ..............
  25. أبو آدم's post in (تمت الاجابة) كيف يتم إضافة عدد سجلات مرقمة بناء على رقم مدخل مسبقا was marked as the answer   
    أخي الحبيب
    إستكمالاً لما تفضل به أخي 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

    والله من وراء القصد
    ..........
×
×
  • اضف...

Important Information