Shivan Rekany

اتفضل اليك هذا الكود Private Sub serial_AfterUpdate() On Error Resume Next Dim TeadilMyName As String TeadilMyName = "UPDATE SUB SET SUB.serial = [Forms]![DataMasterForm]![serial] WHERE (((SUB.id)=[Forms]![DataMasterForm]![id]));" DoCmd.SetWarnings False DoCmd.RunSQL (TeadilMyName) DoCmd.SetWarnings True End Sub مع ملف بعد تعديل test444.rar

لاكمال ما عملت في القاعدة اولا عملت اضافة حقل لمصدر كومبوبوكس وعدلت في خصائص كومبوبوكس

والحمدلله نحن في الخدمة ان شاء الله بقدر مستطاعنا وكل عام وانتم بالف خير وعيد سعيد

للفائدة اكثر ...افتح موضوع جديد على ذلك ووضح ماتريد بالتفصيل مع نسخة مصغرة من قاعدة بيانات للعمل عليها في موضوع جديد تقبل تحياتي

DoCmd.OutputTo acOutputReport, "rptRateCard", acFormatPDF, ("RateCard" & Format(Now(), "mmmyyyy") & ".pdf"), True

لانك لم رفقت قاعدة بيانات لذا انا عملت العملية على قاعدة استاذنا @محمد احمد لطفى لذا اعتذر منه اتفضل هذا هو كود البحث Private Sub مربع_تحرير_وسرد96_AfterUpdate() ' ابحث عن السجل الذي يطابق عنصر التحكم. Dim rs As Object Set rs = Me.Recordset.Clone On Error GoTo nnn rs.FindFirst "[رقم الملف] = " & Me![مربع_تحرير_وسرد96].Column(1) If Not rs.EOF Then Me.Bookmark = rs.Bookmark Else nnn: If MsgBox("هذا الاسم ليس موجودة في القائمة هل تريد اضافة هذا الاسم ؟ ", vbYesNo, "تنبيه") = vbYes Then DoCmd.GoToRecord , , acNewRec Me.name_b = Me.مربع_تحرير_وسرد96 Me.مربع_تحرير_وسرد96 = Null Else Exit Sub End If End If End Sub واليك المرفق test5.rar

تعرف اانا لا اعرف شيء .... لذا هل من الممكن ان تعمل قاعدة بطريقة استاذ رمهان ايضا

اتفضل اضفت حقل رقم في مربع تحرير وسرد وغيرت هذا السطر من البحث rs.FindFirst "[رقم الملف] = " & Me![مربع_تحرير_وسرد96].Column(1) في حدث بعد تحديث و عند الحالي ايضا اليك ملف بعد تعديل test5.rar

المشاركة لاستاذنا و خبيرنا @عبد الفتاح كيرة يرجع ل 21 مايو في سنة 2011 اي يعني كان قبل 6 سنوات

هذا سؤال هو جزء من هذه المشاركة القي نظرتا اليه

والحمد لله لاننا عندنا ثلاث من الحلول لكن لا انا ولا اصدقائي في المنتدى ما نريد الصور بل نريد القاعدة لكل طرق على وحده لكي نخزنه في مكتبنا لذا هل من الممكن ان ترفع لنا ثلاث قواعد لكل طرق على وحده واخذف علامة صح امام مشاركتي واعمل علامة صح على المشاركة اللي بها حلول ثلاثة تقبل تحياتي

في الاول غيرت نموذجك من نوع سبلايت الى نموذج مستمر وفي حدث الحالي كتبت هذا الكود Private Sub Form_Current() On Error Resume Next Me.Text11 = Me.اسم_ولى_الامر Me.Text72 = Me.رقم_الملف End Sub واضفت مربعين نصيين في اعلى النموذج مع زر واحد وفي خلف الزر كتبت هذا Private Sub Command74_Click() On Error Resume Next ' للعبور على الاخطاء Me.Command74.Enabled = False ' انبل زر الحدث لكي لا يتم الضغط على الزر مرتين Dim AddCul As String ' متغير لاضافة حقل Dim WeliAmmir As String ' متغير للتحديث حقل ولي امر Dim MyDcount As Integer ' متغير لتعداد السجلات Dim MiRic As Integer ' متغير لكي يكون معنا في كل سجل Dim WeliAmir As Integer ' متغير لتعداد اسم ولي الامر المكرر Dim delCol As String ' متغير لحذف الحقل المضاف في الاول Me.RecordSource = "" ' مصدر النموذج يساوي لا شيء لكي نقدر نضيف سجل الى جدول (جدول أ ) باس ( اسم ولى امر) AddCul = "ALTER TABLE [جدول أ] ADD [اسم ولى الامر] text(100)" ' اضافة حقل من نوع تيكست الى جدول أ و مسموح ل 100 حروف DoCmd.SetWarnings False ' ايقاف التحذيرات DoCmd.RunSQL (AddCul) ' تشغيل اضافة حقل MyDcount = DCount("[رقم الملف]", "[جدول أ]") ' تعداد رقم الملف في جدول أ weliammeir = "UPDATE [جدول أ] INNER JOIN [الاسماء المكررة 1] ON [جدول أ].[رقم الملف] = [الاسماء المكررة 1].[رقم الملف] SET [جدول أ].[اسم ولى الامر] = [الاسماء المكررة 1]![اسم ولى الامر] WHERE ((([جدول أ].[رقم الملف])=[الاسماء المكررة 1]![رقم الملف]));" ' تحديث حقل المضاف في جدول أ باسماء الي في حقل استعلام مكررة 1 بشرط ان يكون رقم الملف بيكون متساوى Me.Refresh ' تحديث النموذج DoCmd.RunSQL (weliammeir) ' تشغيل التحديث الحقل Me.RecordSource = "جدول أ" ' مصدر النموذج يساوي جدول أ Me.Refresh ' تحديث النموذج Me.اسم_ولى_الامر.SetFocus ' اكتيف اي تحديد اسم ولي امر DoCmd.GoToRecord , , acFirst ' الى سجل الاول For MiRic = 1 To MyDcount ' من سجل الاول الى اخر سجل If Len(DLookup("[كود ولى الامر]", "[جدول أ]", "[اسم ولى الامر]='" & Me.Text11 & "'") & "") = 0 Then ' اذا كود ولي امر الحالي ما بها اي بيانات اي عدد المسافة المستخدمة بيكون صفر Me.كود_ولى_الامر = Nz(DMax("[كود ولى الامر]", "[جدول أ]"), 0) + 1 ' كود ولي الامر الحالي بيكون يساوي اكبر رقم من كود ولي الامر في جدول أ زائد واحد واذا ما بها اي رقم كود ولي الامر يساوي صفر زائد واحد Else ' اذا ما طبق شرط الاعلاه Me.كود_ولى_الامر = DLookup("[كود ولى الامر]", "[جدول أ]", "[اسم ولى الامر]='" & Me.Text11 & "'") ' كود ولي الامر يساوي بحث عن كود ولي الامر في جدول أ بشرط ان يكون اسم ولي الامر بيكون يساوي مع الاسم في مربع نصي باسم تيكست 11 في اعلا النموذج End If ' انهاء الشرط WeliAmir = DCount("[اسم ولى الامر]", "[جدول أ]", "[اسم ولى الامر]='" & Me.Text11 & "'") ' تعداد اسم ولي الامر في جدول أ بشرط ان يكون اسم الولي امر يساوي اسم اللي في مربع نصي باسم تيكست 11 اللي في اعلى النموذج If WeliAmir > 1 Then ' اذا كان العداد الاعلى بيكون اكبر من 1 Me.له_اخوات = True ' له اخوات يساوي ترو اي صح اي عنده اخوات Else ' واذا ما طبع الشرط الاعلاه Me.له_اخوات = False ' له اخوات يساوي فالس اي الغاء الصح امامه اي ليس له اخوات End If ' انهاء الشرط Me.عدد_الاخوات = WeliAmir ' عدد الاخوات في النموذج يساوي العداد الاعلى DoCmd.GoToRecord , , acNext ' الى سجل التالي Next MiRic ' كن معنا مع السجل التالي وسيكون مع كل سجل يعمل هذا من فور ماي ريك الى اخر سجل Me.RecordSource = "" ' من جديد مصدر النموذج خلي بيكون لا شيء لكي نقدر ان نعمل الخطوة التالية Me.Requery ' تحديث delCol = "ALTER TABLE [جدول أ] DROP COLUMN [اسم ولى الامر]" ' حذف حقل اسم ولى الامر في جدول أ DoCmd.RunSQL (delCol) ' تشغيل الحذف Me.RecordSource = "الاسماء المكررة 1" ' مصدر النموذج بيكون استعلام اللي باسم الاسماء المكررة 1 DoCmd.SetWarnings True ' تشغيل التحذيرات Me.Command74.Enabled = True ' انبل الزر الحدث يساوي نعم End Sub وفي حدث عند الفتح النموذج كتبت هذا لكي يكون مصدر النموذج بيكون استعلام اسماء المكررة 1 Private Sub Form_Open(Cancel As Integer) Me.RecordSource = "الاسماء المكررة 1" End Sub لكن في البداية سيكون يبطيء العملية وهذا يرجع لاك تستخدم استعلام على الاستعلام و بيأخذ الاستعلام الاول معلوماته عن الفانكشن وعند كتير حقول بيأخذ البيانات من فانكشن و بعدين تعمل الجمع بين تلك الحقول وبعدين تستخد ذلك الحقل الا وهو اسم ولي الامر * حسب رأيي اذا تأخذ اسم الولي الامر بطريقة ان يتم الحذف الاسم الطالب سيبقى لك اسم الاب وهذا حسب فراغ بين اسم الاب واسم الطالب والله يعلم اتفضل اليك القاعدة القي نظرتا اليه ولى الامر.rar

نعم احتمال لكن سيكون اسرع اذا القيمة الافتراضية يساوي صفر والله يعلم

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

انت على حق أنا فقط عملت الفرق بين النموذجين لاستاذنا عبدالله قدوري و محمد نجار وحذفت ذاك العملية اللي وضحتها في مشاركتي الاولى وبها بقيت المشكلة لكن نفس المعادلة تم اضفت في نموذج استاذنا محمج نجار وكان مضبوط 100%

استاذنا @عبد الفتاح كيرة هل ما وضحت ما قلت في مشاركتي السابقة اتفضل اليك هذا اذا ما كان اخطأت بما تريد تم تعديل test17.rar

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

لم ارى اي مشكلة عملت افراغ الجدول وبعدين دخلت سجل واحد ولم ارى اي مشكلة امامي ما قصدك بالمشكلة ؟ احتمال انك ما دخلت التواريخ بشكل الصحيح ام اي؟ ما عليك الا ان تضيف الحقل في جدول و بعدين تتغير في الكود اي سيكون التغير في هذا سطر من الكود SQL = "UPDATE Emp SET Emp.rs_t = [Emp]![rs_t]-[Forms]![H]![Mide] WHERE (((Emp.no_e)=[Forms]![H]![s1]));" فقط راح تتغير اسم الحقل من Emp.no_e باسم الحقل المضاف Emp = جدول no_e = حقل اتفضل سيد @عبق الرياحيين اليك القاعدة LM (1).rar

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

شكرا اختي وجزاك الله كل خير شكرا لك اخي الحبيب الحلبي شكرا لك استاذي الحبيب نتعلم منكم

اذا الصاحب الموضوع يريد ان يكون اسم المستخدم امام كل سجل اللي بيضاف او بيعمل عليه التحديث مثلا المستخدم 1 بيضاف او بيعمل تعديل على سجل رقم 1 و 3 و المستخدم 2 بيضاف او بيعمل التعديل علي سجل رقم 2 و 4 وصاحب الموضوع يريد ان يكون يكتب رقم 1 امام سجل رقم 1 و 3 و يكتب رقم 2 امام سجل رقم 2 و 4 فقط يجب عليه ان يكتب هذا السطر بعد تحديث الفورم Private Sub Form_BeforeUpdate(Cancel As Integer) Me.UName = MyUser.UserName End Sub هذا والله يعلم واليكم المرفق users.rar

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

اليك هذا الحل لعل يفيدك اولا عملت استعلام للاسماء اللي في جدول الموظفين وليس موجودين في جدول الرواتب وهذا هو الاستعلام SELECT persons.* FROM persons LEFT JOIN Salary ON persons.[EmpNumber] = Salary.[EmpNumber] WHERE (((Salary.EmpNumber) Is Null)); وعملت نموذج عليه واستخدمت هذا الكود لزر Private Sub Command0_Click() Dim MyCount As Integer MyCount = DCount("*", "personsWithoutMatchingSalary") If MsgBox("هناك ( " & MyCount & " ) اسماء لم يكن في جدول الرواتب .. هل تريد ان تنظر الى اسماءهم ", vbYesNo, "تنبيه") = vbYes Then DoCmd.OpenForm "personsWithoutMatchingSalary", acNormal End If End Sub اليكي المرفق bmn.rar

اتفضل استخدمت هذه الكود للاستخراج اي للبحث Private Sub SEr_Click() Me.s2 = DLookup("[name_e]", "Emp", "no_e= " & [s1]) Me.s3 = DLookup("[ms_j]", "Emp", "no_e= " & [s1]) Me.s4 = DLookup("[rs_t]", "Emp", "no_e= " & [s1]) Me.s5 = DLookup("[no_e]", "Emp", "no_e=" & [s1]) Me.Tarix = Nz(DMax(Format("[d_g]", "yyyy/mm/dd"), "egaza", "no_e=" & [s1] & "and [n_e]='" & "ÚÇÏíÉ" & "'"), "") Me.Mide = Nz(DLookup("[m_g]", "egaza", "[no_e]=" & [s1] & " And [Tarix]=" & Format("[d_g]", "yyyy/mm/dd")), 0) End Sub وهذا لخصم الرصيد من الاجازة Private Sub أمر30_Click() Dim SQL As String SQL = "UPDATE Emp SET Emp.rs_t = [Emp]![rs_t]-[Forms]![H]![Mide] WHERE (((Emp.no_e)=[Forms]![H]![s1]));" DoCmd.SetWarnings False DoCmd.RunSQL (SQL) DoCmd.SetWarnings True MsgBox "تم الخصم من الرصيد" End Sub اليك المرفق LM.rar

بعد تحديث للحقول اسم و ا سم الاب و اسب الجد و اب الجد واللقب او الجد الجد هههههههه اكتب المعادلة [اسم ولي الامر]=[XA2]&" "&[XA3]&" "&[XA4]&" "&[XA5]&" "&[XA6] واذا ما فمت من قصدي ارفق النموذج التسجيل لكي اعمل العملية