اذهب الي المحتوي
أوفيسنا

ابو جودي

أوفيسنا
  • Posts

    5,966
  • تاريخ الانضمام

  • Days Won

    136

ابو جودي last won the day on مايو 25

ابو جودي had the most liked content!

السمعه بالموقع

4,028 Excellent

عن العضو ابو جودي

  • تاريخ الميلاد 28 فبر, 1982

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    عبد الله
  • البلد
    مصــ♥ـــــر
  • الإهتمامات
     رضا الله هو كل غايتى

وسائل التواصل

  • Website URL
    www.officena.net/ib/forum/89-قسم-الأكسيس-access/

اخر الزوار

14,127 زياره للملف الشخصي
  1. الله اكبـــــر يحيا العدل 👈 صعيدى وافتخر هذا فضل الله تعالى الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل وهذا رزقكم ساقه الله اليكم
  2. يا سيدى الله يحفظك لاهلك واحبابك ويبارك بعمرك وعلمك وعملك وما يحرمنا جمعكم الطيب وفعلا انا مهضوم ومن كتر الهضم ما صار فينى شئ صيرت جلد على عضم بدنا ضرايب بالمنتدى ع ها المكتبة اوماااااااااااااااااااال
  3. ههههههه طماع البنى ادم ده تتأخر حبتين وهى تتأخر ثانية واحدة يا سيدى وتأتى بالنفع منها افضل من عدمها ومع ذلك شوف الفكرة رقم 3 يا سيدى بدون الرسالة خالص اللى تتأخر حبتين دى لا تزعل روحك المهم تنبسط ما نقدر على زعلك
  4. ووفقا للمشاركة التى اشرتم اليها لاستا DateDiff("s",#1/1/1970 3:00:00 AM#,[اسم الحقل فى الجدول]) وكما اشرتم الى موضوعكم وطبقا لحل استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr اتفضل الحل وهذا هو المرفق تم اضافة حقل To Timestamp والذى يقوم بتحويل التاريخ من الحقل Saudi الى Timestamp من خلال المعادلة Timestamp: DateDiff("s",#1/1/1970 3:00:00 AM#,[Saudi]) 1459.unix_tTime_Stamp V2.accdb
  5. فى فوكيره تانى بره الصندوق اشرحها نظرى الان وممكن التطبيق لاحقا ممكن نعمل نموذج يستعرض السجلات تباعا باستخدام حدث فى الوقت من السجل الاول الى الاخير و يغلق تلقائيا بعد السجل الأخير مرفق تطبيق الفكرة aa V3.accdb
  6. اتفضل يا سيدى احلام معاليك اوامر يا باش مهندس @Moosak اى خدمه يارب تنبسط بس تعتمد الفكرة على وضع الروتين الاتى فى وحدة نمطية Public opt As Integer Public Function MesgBox(ByVal msgText As String, _ Optional ByVal TimeInSeconds As Integer, _ Optional ByVal intButtons = vbDefaultButton1, _ Optional TitleText As String = "WScript") As Integer On Error GoTo MesgBox_Err Dim winShell As Object Set winShell = CreateObject("WScript.Shell") MesgBox = winShell.PopUp(msgText, TimeInSeconds, TitleText, intButtons) MesgBox_Exit: Exit Function MesgBox_Err: winShell.PopUp Err & " : " & Err.Description, 0, "MesgBox()", vbCritical Resume MesgBox_Exit End Function ويتم استدعاء الورتين من خلال opt = MesgBox(Me.n & vbCr & vbCr & " Please wait . . .", 1, vbInformation, "Info") حيث ان بناء الكود كالاتى 'Syntax: opt = MesgBox(msgTxt,intSeconds,Buttons+Icon+DefaultButton,"Title") aa V2.accdb
  7. اولا بارك الله فى عمرك وعلمك وعملك وجزاكم كل خير ثانيا انا اقل طويلب علم ولست مبرمجا على الاطلاق مجرد هاو ثالثا كنت ابلور فكرة من الامس شبيه بفكرة حضرتك استخدمت الروتين الاتى فى وحدة نمطية Function OpenReport(ByRef rptName As String, ByRef qryName As String) On Error GoTo ErrorHandler DoCmd.OpenReport rptName, acViewPreview, , , , qryName procDone: Exit Function ErrorHandler: MsgBox$ Err.Number & ": " & Err.Description Resume procDone End Function على ان يتم استدعاءه بالسطر الاتى OpenReport("rpt2", "Query2") نفس فكرة حضرتك طبعا بسبب الغموض وعدم التوضيح الكافى كنت فى انتظار اضافة المرفق Chang Record Sources Report VBA(V3).mdb
  8. تسلم الايادى يا @مبرمج سابق يا عالم يا معقدين شايفين البساطة ما شاء الله
  9. جزاكم الله خيرا استاذى الجليل ومعلمى القدير الاستاذ @Barna واسمح لى ممكن نختصر الكود ليكون Dim qdf As DAO.QueryDef Dim strSQL As String CurrentDb.QueryDefs.Delete "qr1" If com1 = "التقرير الاول" Then strSQL = "SELECT tblA.* FROM tblA;" ElseIf com1 = "التقرير الثاني" Then strSQL = "SELECT tblB.* FROM tblB;" End If Set qdf = CurrentDb.CreateQueryDef("qr1", strSQL) DoCmd.OpenReport "rptFlayReport", acViewPreview ولارد بضاعتكم اليكم بطريقة مختلفة بعض الشئ تجنبا لاستخدام الحروف العربية , واضفاء مرونة أكبر فى حال اردنا تمرير اسم التقرير من خلال الكود الافكار كثيرة وتتصارع وتتلاحق فى رأسي بسبب عدم فهمى الهدف والمطلوب تحقيقة بصورة مباشرة من السؤال بسبب غموض الهدف ولكن على حال تبقى الحاجة هى ام الاختراع وفهم السؤال هو شطر الجواب Chang Record Sources Report Barna V2.mdb
  10. طيب ممكن تجربة المرفق الاتى لانه يبدو لى ان التقرير نريده ان يقتح على اكثر من مصدر بيانات حسب الحالة ان لم افهم الموضوع جيدا برجاء مرفق حتى اسطيع الفهم >>---> صعيدى بيفهم بالعافية Chang Record Sources Report.mdb
  11. شوف يا باش مهندس @Eng.Qassim قمت فى هذا المرفق ببعض التعديلات الطفيفة والتى تظهر امامك كل شئ تفصيليا حمل المرفق وقم بفتح الاستعلام qryActualDays ActualDaysCalcult Eng.Qassim.accdb
×
×
  • اضف...

Important Information