Shivan Rekany

اذا ما كان غلطان انا هذا الكود بيعمل المطلوب لكن في القاعدة البيانات اللي رفقته في نفس المشاركة لهذا الكود انا اضفت & "سنة" لكي بيظهر النتيجة مع كلمة سنة مع تقدير

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

اليك ملفك بعد تعديل فقط كتبنا هذا الكود في محرر فيجوال لمربع Salesman_Code بعد تحديث Private Sub Salesman_Code_AfterUpdate() Me.Salesman_Name = DLookup("[EmployeeName]", "Employees", "[EmployeeID]='" & Me.Salesman_Code & "'") End Sub Database1 - Copy.rar

انتظرني هسة راح ارجع لك ان شاء الله

في هذه الحالة لا تحتاج لاي وحدات نمطية اليك هذا الكود اخليها في كلا حقلين بعد تحديث Me.ca = DateDiff("yyyy", Nz([time1]), Nz([now1])) واليك ملفك بعد تعديل شوف هل هو المطلوب بس سنين فقط Database (1).rar

اتفضل اخي ملفك بعد تعديل لكن هناك ملاحظة لا تستخدم الكلمات المحجوزه‌ لقاعده‌ بياناتك مثلا time,now انا غيرتها واستخدمت ذاك الوحدة النمطية مع هذا الكود جرب حين تكتب التاريخ Me.ca = IIf(Diff2Dates("ddmmyy", Nz([time1]), Nz([now1]), False) = "", "0 íæã", Diff2Dates("ddmmyy", Nz([time1]), Nz([now1]), False)) Database (1).rar

ممكن توضح اكثر ما فهمت قصدك

اليك هذه الوحدة النمطية اي اعمل كوبى باست هذا الكود في وحدة نمطية Option Compare Database Option Explicit Public Function Diff2Dates(interval As String, Date1 As Date, Date2 As Date, Optional ShowZero As Boolean = False) As Variant On Error GoTo Err_Diff2Dates Dim booCalcYears As Boolean Dim booCalcMonths As Boolean Dim booCalcDays As Boolean Dim booSwapped As Boolean Dim dtTemp As Date Dim intCounter As Integer Dim lngDiffYears As Long Dim lngDiffMonths As Long Dim lngDiffDays As Long Dim varTemp As Variant Const INTERVALs2 As String = "ddmmyy" interval = LCase$(interval) For intCounter = 1 To Len(interval) If InStr(1, INTERVALs2, Mid$(interval, intCounter, 1)) = 0 Then Exit Function End If Next intCounter If Not (IsDate(Date1)) Then Exit Function If Not (IsDate(Date2)) Then Exit Function If Date1 > Date2 Then dtTemp = Date1 Date1 = Date2 Date2 = dtTemp booSwapped = True End If Diff2Dates = Null varTemp = "" booCalcYears = (InStr(1, interval, "y") > 0) booCalcMonths = (InStr(1, interval, "m") > 0) booCalcDays = (InStr(1, interval, "d") > 0) If booCalcYears Then lngDiffYears = Abs(DateDiff("yyyy", Date1, Date2)) - _ IIf(Format$(Date1, "mmdd") <= Format$(Date2, "mmdd"), 0, 1) Date1 = DateAdd("yyyy", lngDiffYears, Date1) End If If booCalcMonths Then lngDiffMonths = Abs(DateDiff("m", Date1, Date2)) - _ IIf(Format$(Date1, "ddhh") <= Format$(Date2, "ddhh"), 0, 1) Date1 = DateAdd("m", lngDiffMonths, Date1) End If If booCalcDays Then lngDiffDays = Abs(DateDiff("d", Date1, Date2)) - _ IIf(Format$(Date1, "hhnnss") <= Format$(Date2, "hhnnss"), 0, 1) Date1 = DateAdd("d", lngDiffDays, Date1) End If If booCalcYears And (lngDiffYears > 0 Or ShowZero) Then varTemp = lngDiffYears & IIf(lngDiffYears <> 1, " Óäå ", " Óäå ") End If If booCalcMonths And (lngDiffMonths > 0 Or ShowZero) Then If booCalcMonths Then varTemp = varTemp & IIf(IsNull(varTemp), Null, " æ ") & _ lngDiffMonths & IIf(lngDiffMonths <> 1, " ÔåÑ ", " ÔåÑ ") End If End If If booCalcDays And (lngDiffDays > 0 Or ShowZero) Then If booCalcDays Then varTemp = varTemp & IIf(IsNull(varTemp), Null, " æ ") & _ lngDiffDays & IIf(lngDiffDays <> 1, " íæã", " íæã") End If End If If booSwapped Then varTemp = "-" & varTemp End If Diff2Dates = Trim$(varTemp) End_Diff2Dates: Exit Function Err_Diff2Dates: Resume End_Diff2Dates End Function ومثلا عندك مربع نصي للتاريخ الاول اي اليوم باسم tarix1 ومربع اخر للتاريخ الثاني اي لتاريخ 22\2\2014 باسم tarix2 ومربع نصي اخر لكي يڤهر فيها نتيجه‌ باسم text1 وعندك زر لكي يحسبك النتيجه‌ اكتب في محرر فيجوال بعد تضغط كليك عليه هذا الكود Me.text1 = IIf(Diff2Dates("ddmmyy", [tarix2], [tarix1], False) = "", "0 íæã", Diff2Dates("ddmmyy", [tarix2], [tarix1], False)) جرب وشوف النتيجة

ما خليت شي لنا ان نعمل يا ابو حسين انا جربت القاعدة وبيعمل المطلوب ممتاز اليك مني +1

اتفضل ما تريد test30.rar

اتفضل اخي ماتريد مع شرح مبسط في البداية عملنا جدول باسم تبل معلومات بها حقل اي دي و الاسم و الموبايل والمواليد وحقل اخر للتحديد كما مبينة في الصورة عملنا استعلام على ذاك الجدول باسم كويري معلومات وبيأخذ كل الحقول وخلينا ذاك الاستعلام مصدر لنموذج اللي باسم فرم معلومات وبعدين عملنا استعلام اخر باسم كويري معلومات فور ريبورت و هذا الاستعلام بيأخذ بس الريكوردات اللي في حقل تحديد علامة صح امامه شوف الصورة احنا كتبنا ترو في حقل تحديد لكي يأخذ بس الريكورداتاللي بها علامة صح وخليناه ك مصدر للتقرير وبعدين دخلنا المعلومات بواسطة النموذج شوف الجدول بعد ادخال المعلومات وهذه استعلام كويري معلومات بعد ادخال المعلومات شوف بيظهر كل الريكوردات وهذ صور لنموذج بعد عمل عدم تحديد لبعض ريكوردات و فتحنا التقرير شوف شو بيظهر وهذه بواسطة استعلام كويري معلومات فور ريبورت شوف هو بيظهر بس ريكوردات اللي في حقل التحديد علامة صح امامه وخذ القاعدة شوف لاكثر استفادة تحديد سجلات اللي تريد ويظهر في استعلام.rar تحديد سجلات اللي تريد ويظهر في استعلام.rar

انا استخدمت هذا الكود If Me.Age <= 3 Then Me.Mobile.Enabled = False Me.School.Enabled = False Me.Social.Enabled = False Me.work.Enabled = False Me.Quran.Enabled = False Me.Smoking.Enabled = False ElseIf Me.Age > 3 And Me.Age < 12 Then Me.Mobile.Enabled = False Me.School.Enabled = True Me.Social.Enabled = False Me.work.Enabled = False Me.Quran.Enabled = True Me.Smoking.Enabled = False ElseIf Me.Age > 11 And Me.Age < 15 And Nz(Me.Gender) = "ÐßÑ" Then Me.Mobile.Enabled = False Me.School.Enabled = True Me.Social.Enabled = False Me.work.Enabled = True Me.Quran.Enabled = True Me.Smoking.Enabled = True ElseIf Me.Age > 11 And Me.Age < 15 And Nz(Me.Gender) = "ÇäËì" Then Me.Mobile.Enabled = False Me.School.Enabled = True Me.Social.Enabled = False Me.work.Enabled = True Me.Quran.Enabled = True Me.Smoking.Enabled = False ElseIf Me.Age >= 15 And Nz(Me.Gender) = "ÇäËì" Then Me.Mobile.Enabled = True Me.School.Enabled = True Me.Social.Enabled = True Me.work.Enabled = True Me.Quran.Enabled = True Me.Smoking.Enabled = False ElseIf Me.Age >= 15 And Nz(Me.Gender) = "ÐßÑ" Then Me.Mobile.Enabled = True Me.School.Enabled = True Me.Social.Enabled = True Me.work.Enabled = True Me.Quran.Enabled = True Me.Smoking.Enabled = True End If End Sub Private Sub Gender_AfterUpdate() If Me.Age > 11 And Me.Age < 15 And Nz(Me.Gender) = "ÐßÑ'" Then Me.Mobile.Enabled = False Me.School.Enabled = True Me.Social.Enabled = False Me.work.Enabled = True Me.Quran.Enabled = True Me.Smoking.Enabled = True ElseIf Me.Age > 11 And Me.Age < 15 And Nz(Me.Gender) = "ÇäËì" Then Me.Mobile.Enabled = False Me.School.Enabled = True Me.Social.Enabled = False Me.work.Enabled = True Me.Quran.Enabled = True Me.Smoking.Enabled = False ElseIf Me.Age >= 15 And Nz(Me.Gender) = "ÇäËì" Then Me.Mobile.Enabled = True Me.School.Enabled = True Me.Social.Enabled = True Me.work.Enabled = True Me.Quran.Enabled = True Me.Smoking.Enabled = False ElseIf Me.Age >= 15 And Nz(Me.Gender) = "ÐßÑ" Then Me.Mobile.Enabled = True Me.School.Enabled = True Me.Social.Enabled = True Me.work.Enabled = True Me.Quran.Enabled = True Me.Smoking.Enabled = True End If

قلل الهوامش التقرير

بلى يظهر في الجداول على رغم كل شي اتفضل اليك حل تاني مثال .rar

عفوا اخوي لكن هل تكدر تقول ما تريد بالضبط اي يعني توضيح اكثر ما تريد

عفوا اخي على التأخير الرد لكن انا جربت على اوفيس 2013 و اشتغل بالضبط لكن هل عندك برامج لفتح ملفات pdf ؟ وبالنسبة اكسس 2007 ما يشتغل عليه لانه الكائن pdf ليس موجود بين الصيغ اللي حولناه التقرير هذا والله اعلم

بعد المشاركة انا نزلت قاعدة بياناتك انتظرني غدا ان شاء الله سارجع من جديد

اليك هذا الكود DoCmd.OutputTo acOutputTable, "table1", "excelworkbook(*.xlsx)", "D:\TABLE1.XLSX" بدل table1 ب اسم جدول اللي تريد

في الحقيقة افكاري مخربطة اليك هذا الحل لكن ليس افضل حل مثال .rar

ان شاء الله راح اشوفه بس خلي بيكون عندي مجال

شوف اخي قصدي ان تكتب في اول الكود الزر ذاك الجملة واذا كم مرة بيعمل كانسل للنافذة ما يظهر اي رسالة والان انا جربت وايضان كود تابعك هم بنتهي الامر On Error Resume Next STR_TITLE = "ÔÇÔÉ ÇÖÇÝÉ ÇíÇã" STR_PROMPT = "ÃÏÎá ÚÏÏ ÇáÇíÇã ááÊÃÌíá" X = InputBox(STR_PROMPT, STR_TITLE) If X > 0 Then Me.TimerInterval = 1 End If

عزيزي اخي سامي الله يحفظك

اي تكدر ولكن اذا تريد ما يظهر ذاك الرسالة اكتب هذا قبل الكود On Error Resume Next مع تحياتي

اولا اهلا بك في منتداك منتدى اوفيسنا الجواب السؤال الاول حسب الشغل عندك اي تريد اي شي بالضبط غالبياً نكتب المعادلات في النماذج و الاستعلامات والثاني تكدر تعمل المطلوب بواسطة النموذج والاكواد المطلوبة مثل دي لوك اب واذا تريد نساعدك تكدر ترفع قاعدة بياناتك هنا لكي الجماعة بيساعدك اكثر مع تحياتي

حسب فهمي لسؤالك جوابه هو عمل استعلام تحديث والا ارفق المرفق لكي نعمل العملية عليه مع تقدير