-
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 زياره للملف الشخصي
-
الله اكبـــــر يحيا العدل 👈 صعيدى وافتخر هذا فضل الله تعالى الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل وهذا رزقكم ساقه الله اليكم
-
هل يمكن استعراض السجلات بمسج بوكس تلقائيا *_^
ابو جودي replied to عمر طاهر's topic in قسم الأكسيس Access
يا سيدى الله يحفظك لاهلك واحبابك ويبارك بعمرك وعلمك وعملك وما يحرمنا جمعكم الطيب وفعلا انا مهضوم ومن كتر الهضم ما صار فينى شئ صيرت جلد على عضم بدنا ضرايب بالمنتدى ع ها المكتبة اوماااااااااااااااااااال -
هل يمكن استعراض السجلات بمسج بوكس تلقائيا *_^
ابو جودي replied to عمر طاهر's topic in قسم الأكسيس Access
والله انت اللى عسل يا عسل انت -
هل يمكن استعراض السجلات بمسج بوكس تلقائيا *_^
ابو جودي replied to عمر طاهر's topic in قسم الأكسيس Access
ههههههه طماع البنى ادم ده تتأخر حبتين وهى تتأخر ثانية واحدة يا سيدى وتأتى بالنفع منها افضل من عدمها ومع ذلك شوف الفكرة رقم 3 يا سيدى بدون الرسالة خالص اللى تتأخر حبتين دى لا تزعل روحك المهم تنبسط ما نقدر على زعلك -
ابو جودي started following أريد تمرير اسم التقرير برمجيا (كمتغير) , التحويل بين الطابع الزمني Unix وتنسيق التاريخ , هل يمكن استعراض السجلات بمسج بوكس تلقائيا *_^ و 2 اخرين
-
التحويل بين الطابع الزمني Unix وتنسيق التاريخ
ابو جودي replied to sramadah's topic in قسم الأكسيس Access
ووفقا للمشاركة التى اشرتم اليها لاستا 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 -
هل يمكن استعراض السجلات بمسج بوكس تلقائيا *_^
ابو جودي replied to عمر طاهر's topic in قسم الأكسيس Access
فى فوكيره تانى بره الصندوق اشرحها نظرى الان وممكن التطبيق لاحقا ممكن نعمل نموذج يستعرض السجلات تباعا باستخدام حدث فى الوقت من السجل الاول الى الاخير و يغلق تلقائيا بعد السجل الأخير مرفق تطبيق الفكرة aa V3.accdb -
هل يمكن استعراض السجلات بمسج بوكس تلقائيا *_^
ابو جودي replied to عمر طاهر's topic in قسم الأكسيس Access
اتفضل يا سيدى احلام معاليك اوامر يا باش مهندس @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 -
مشكلة Error : مشكلة العملية غير معتمده لنوع الكائن هذا
ابو جودي replied to m2lba@yahoo.com's topic in قسم الأكسيس Access
من فضلك ممكن مرفق القاعدة -
اولا بارك الله فى عمرك وعلمك وعملك وجزاكم كل خير ثانيا انا اقل طويلب علم ولست مبرمجا على الاطلاق مجرد هاو ثالثا كنت ابلور فكرة من الامس شبيه بفكرة حضرتك استخدمت الروتين الاتى فى وحدة نمطية 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
-
تسلم الايادى يا @مبرمج سابق يا عالم يا معقدين شايفين البساطة ما شاء الله
-
جزاكم الله خيرا استاذى الجليل ومعلمى القدير الاستاذ @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
-
انا اريد مرفقا انا لم افهم اى شئ
-
لابد من تنصيب اكروبات ريدر
-
طيب ممكن تجربة المرفق الاتى لانه يبدو لى ان التقرير نريده ان يقتح على اكثر من مصدر بيانات حسب الحالة ان لم افهم الموضوع جيدا برجاء مرفق حتى اسطيع الفهم >>---> صعيدى بيفهم بالعافية Chang Record Sources Report.mdb
-
شوف يا باش مهندس @Eng.Qassim قمت فى هذا المرفق ببعض التعديلات الطفيفة والتى تظهر امامك كل شئ تفصيليا حمل المرفق وقم بفتح الاستعلام qryActualDays ActualDaysCalcult Eng.Qassim.accdb