Shivan Rekany

اخي الكريم السلام عليكم ورحمة الله وبركاته انا نزلت قاعدة بياناتك وكان كل شي تمام عدا ان في زر بحث ما به اي كود لكي يعمل شي و مثلا عندك زر مكتوب عليه "خاص بادارة العمليات كوده هو Private Sub ÃãÑ31_Click() DoCmd.Close DoCmd.OpenForm "work" End Sub وما عندك نموذج باسم ورك لكي يفتحه تحياتي

افتح موديول 5 "module5" وغير ''Modules For idx = CurrentProject.AllModules.Count - 1 To 0 Step -1 strName = CurrentProject.AllModules(idx).Name If strName <> "Module9" Then DoCmd.DeleteObject acModule, strName End If Next idx الى ''Modules For idx = CurrentProject.AllModules.Count - 1 To 0 Step -1 strName = CurrentProject.AllModules(idx).Name If strName <> "Module5" Then DoCmd.DeleteObject acModule, strName End If Next idx شوف الاول مكتوبة موديول 9 "module9" واسم الصحيح هو موديول 5 "module5" غيرها اولا والان صار كود اونتايمر هكذ Private Sub Form_Timer() Se = Se + 1 If Se >= 2 Then Call DeleteAllFormsAndReportsss DoCmd.DeleteObject acMacro, "autoexec" DoCmd.DeleteObject acModule, "module5" End If End Sub تحياتي

يا هلا بك استاذنا الحلواني ارجو من السيد @أبو جاسم ان يعمل مشاركة هل تم الوصول الى النتيجة ام لا لان كما قلت في مشاركتي السابقة انا مسحت اوفيس 2010 و نصبت اوفيس 2016 وكان كل شي تمام هل بعد عندة مشكلة ام وصلت مايريد تحياتي للجميع

ممكن تفهمني ما تريد بالضبط ... بالتوضيح

ذاك الكود بيعمل حفظ اولا وبعدين بيفرغ البيانات من المربعات النصية عدى مربع رقم القيد و محالة من هذا حسب طلبك في الاعلى

اكتب هذا الكود خلف زر "حفظ - إضافة التوجيه" في محرر فيجوال DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Me.kesm = "" Me.datet = "" Me.raddate = "" Me.wageb = False Me.tanbeh = False Me.aydd = "" Me.Refresh

استخدم DMax("[id]", "tbl") + 1 id هو حقل ترقيم tbl هو اسم الجدول DMax هو لاختيار اكبر رقم في حقل اي دي في جدول تبل + 1 تحياتي

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

شكرا لكبرائنا استاذ @jjafferr و استاذ @رمهانعلى ما قدمت لنا @SAROOK لازم احنا نعرف ما نقدم لنا الكبرائنا هو طريقة برمجة صحيحة واللي احنا نعرفه هو طرائق من الشوارع ما اخفى انا مش خريج لمعاهد او كليات الحاسوب بل خريج قسم ادارة اعمال والسببي بيكون هنا هو بيرجع لحكاية من الحكايا لشهر 11 في سنة 2014 ومنذ ذلك تعلمت من كبرائنا اشياءاً لم علمت قبل ذلك ---------- وهذا هو فكري طبقت علمثال الاسفل 'متغير بنوع رقمي لتعداد Dim Se As Integer ' عند اغلاق النموذج Private Sub Form_Close() ' قيمة تايمر انترفال بيكون صفر لكي يوقف اونتايمر Me.TimerInterval = 0 ' قيمة المتغير بيكون صفر Se = 0 End Sub ' عند تحميل النموذج Private Sub Form_Load() ' قيمة تايمر انترفال بيكون الف اي يساوي ثانية واحدة لكي يشتغل اونتايمر العداد Me.TimerInterval = 1000 End Sub ' وفي حالة اون تايمر Private Sub Form_Timer() ' قيمة متغيرنا بيكون نفسه زائد واحد Se = Se + 1 ' اذا كان قيمة متغيرنا وصل الى اثنان او اكثر If Se >= 2 Then ' هنا يفعل ما يۆمر اي بيعمل الحذف الكل Call DeleteAllFormsAndReportsss ' انهاء الايف End If End Sub واليك المرفق بعد تعديل وهناك شي اخر الغي كل الگرق لاغلاق نموذج حذف الكل لكي اذا فتح القاعدة لكي ما عندة طريق لكي يغلقه لكي النموذج حذف الكل بيعمل المطلوب اي لكي بيحذف كل شي لانه فتح بشكل عادي وليس بواسطة قاعدة ستارت تحياتي فتح قاعده‌ من قاعده‌ اخرى.rar

اتفضل استخدمت هذا كمصدر مربع نصي =" تقرير لـشهر " & Format(Date();"mmm") & " " & Format(Date();"yyyy") وعملت لك مثال على ذلك اتفضل تقرير لشهر.rar

اتفضل انا استخدمت الكودين الاسفل عملت ديفيلوت فيو ل جيك بوكس false واستخدمت في الحالي هذا الكود Private Sub Form_Current() If Me.ttt = False Then Me.raqm_aljulus.Visible = False Me.[student's_name].Visible = False End If End Sub وفي حالة بعد اوبديت لمربع جيك بوكس استخدمت هذا الكود Private Sub ttt_AfterUpdate() If Me.ttt = True And InputBox("ÇÏÎá ÑÞã ÓÑí", "ÇÙåÇÑ æ ÇÎÝÇÁ") = "123" Then Me.raqm_aljulus.Visible = True Me.[student's_name].Visible = True Else Me.ttt = False Call Form_Current ' Me.raqm_aljulus.Visible = False ' Me.[student's_name].Visible = False End If End Sub اتفضل مع قاعدة بياناتك بعد تعديل 003.rar

انا فتحت القاعدة وما كان بها ذاك المشكلة ودخلت العمر 0.6 بشكل اعتيادي شوف الصورة

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

تأكد من اعدادات الاقليم اي اللغة لكلا الجهازين ! تحياتي

اعتذر من استاذنا الكرام على التدخلي في الموضوع هذا هو قصد استاذنا " @يوسف أحمد حسب فهمي شوف الجدول "ALL" تم وضعها بيانات لشهر 1 و 2 و 3 لسنة 2010 فقط للعلم تحياتي Too-Many.rar

على الرغم ما ارفقت اي قاعدة لكي نعمل عليه لكن خذ هذا الكود If InputBox("idxal raqam siri", "tanbih") = "123" Then Me.MyNameTextbox.Visible = True Me.MyCiloseTextbox.Visible = True Else Me.MyNameTextbox.Visible = False Me.MyCiloseTextbox.Visible = False End If 1 - غير رقم 123 برقم سري خاص بك 2 - غير MyNameTextbox ب مربع نصي اللي بها اسم 3 - غير MyCiloseTextbox ب مربع نصي اللي بها رقم الجلوس 4 - وغير خاصية اظهار اي visible ل كلا المربعين الى لا "no" عند تحميل النموذج تحياتي

اتفضل كود منع CTRL + F AND CTRL + H فقط الصق الكود في محرر فيجوال لنموذج Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Me.KeyPreview = True Select Case KeyCode Case 70 And Shift = 2 KeyCode = 0 Case 72 And Shift = 2 KeyCode = 0 End Select End Sub رقم 70 هو كود ل حرف ئيف و 72 هو كود لحرف ئيج وفي حدث فتح النموذج اكتب هذا الكود Private Sub Form_Open(Cancel As Integer) Me.KeyPreview = True End Sub تحياتي

هل هذا هو ما تبحث عنه ؟ استخدمت هذا الكود If Me.Search1 = "" Then MsgBox "ãÑÈÚ ÇáÈÍË ÎÇáíÉ .. åá ÊÈÍË Úä Ôí .. ÇßÊÈå " Me.Search1.SetFocus Exit Sub End If If Me.comb = "" Then MsgBox " ßæãÈæÈÈæßÓ ÝÇÑÛÉ .. ÇÎÊÇÑ Ýí Çí ÓÌá ÊÈÍË " Me.comb.SetFocus Exit Sub ElseIf Me.comb = "Title" Then DoCmd.OpenReport "report", acViewPreview, , "[title]='" & Me.Search1 & "'" ElseIf Me.comb = "Outher" Then DoCmd.OpenReport "report", acViewPreview, , "[Outher]='" & Me.Search1 & "'" ElseIf Me.comb = "Subject" Then DoCmd.OpenReport "report", acViewPreview, , "[Subject]='" & Me.Search1 & "'" ElseIf Me.comb = "Publisher" Then DoCmd.OpenReport "report", acViewPreview, , "[Publisher]='" & Me.Search1 & "'" End If db1.rar

استأذن من استاذنا محمد نجار اخي الفاضل اليك هذا عملت كومبوبوكس لكي تختار فيها مصدر النموذج وبعد تحديث الكومبوبوكس كتبت هذا الكود If Me.Combo73 = "power" Then Form.RecordSource = "SELECT power.* FROM power; " ElseIf Me.Combo73 = "power1" Then Form.RecordSource = "SELECT power1.* FROM power1; " ElseIf Me.Combo73 = "power2" Then Form.RecordSource = "SELECT power2.* FROM power2; " ElseIf Me.Combo73 = "power3" Then Form.RecordSource = "SELECT power3.* FROM power3; " ElseIf Me.Combo73 = "power4" Then Form.RecordSource = "SELECT power4.* FROM power4; " ElseIf Me.Combo73 = "power5" Then Form.RecordSource = "SELECT power5.* FROM power5; " End If وهناك طرق كثيرة لكن اختارت هذا و هناك ملاحظة : قبل ان تكتب في النموذج يجب عليك اختيار المصدر النموذج اتفضل مع قاعدة بيانات تحياتي QWE.rar

هناك سۆال : لماذا عملت ماكرو لكي يفتح نموذج مسح الكل " ديل ال " في بداية فتح القاعدة البيانات ؟ ما هو السبب ؟ ما هو سبب لكي تفتح نموذج " تيست " ؟ اي لماذا لا تعمل الماكرو لكي يفتح نموذج تيست بجواب الاسئلة الاعلى راح نواصل لحل المطلوب ان شاء الله تحياتي

افتح الجدول في وضع تصميم حدد حقل age وغير خاصية Field Size الى Double كما مبينة في الصورة تحياتي

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

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

@jjafferr شكرا لك استاذي القدير معلومة جديدة بالنسبة لي تحياتي

اليك هذا الحل غير اسم نموذج dll Alll الى dll_All واستخدم هذا الكود Dim appAccess As Access.Application Set appAccess = New Access.Application appAccess.OpenCurrentDatabase ("D:\end.accdb") appAccess.DoCmd.Close acForm, "del_all", acSaveNo appAccess.DoCmd.OpenForm "test" appAccess.Visible = True appAccess.UserControl = True اي تم اضافة كود اغلاق نموذج ديل ال فقط ... اي تم الاضافة الكود الاسفل فقط appAccess.DoCmd.Close acForm, "del_all", acSaveNo تحياتي