king5star

بارك الله لك اخى اشتغلت تمام و 10\10 تبقى الجزء الثاني وهو اضافة حدث لجمبع النماذج ! ولك جزيل الشكر .

السلام عليكم اخوانى اريد ان اضيف حدث لكل النماذج بحدث عند التحميل والكود الذى اريد اضافتة هو call Test(me) وتغير خاصية النموذج Modal او منبثق الى true وقد قمت بصنع هذا الكود ولكنه لم يعمل ولم اعرف طريقة اضافة الحدث كما هو موضح : Function test() Dim Frm As AccessObject, DBS As Object Set DBS = Application.CurrentProject Dim Name_Frm As String For Each Frm In DBS.AllForms Name_Frm = Frm.name DoCmd.OpenForm Name_Frm, acViewDesign .Modal = true DoCmd.close acForm, Name_Frm, acSaveYes Next End Function

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

شكراً اخى على هذا التعديل وقد عملت جيداً وهو المطلوب شكراً جزيلاً لك .

وجدت برنامج Com Player لانه يحفظ النسخة بصيغة مشفره ولفتها قم بالضغط كليلك شمال على الماوس وبعدها Open With ومن ثم ms access ولماذا لم تستورد قم بقرائه السؤال جيداً فهذه هى المشكلة التى بها .

للرفع برجاء المساعدة

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

تسلم اخى عملت بشكل جيد بعد اعلان المتغير

السلام عليكم اخوانى استخدم كود لاستدعاء نسخة احتياطية ويعمل جيداً وظهر عطل مره واحدة غريب كما بالصورة ارجو المساعدة ؟ Private Sub Res_Click() Dim Path, myfile As String Dim varItem As Variant With Application.FileDialog(msoFileDialogFilePicker) .Title = "اختر الملف المراد نسخه" If .Show Then For Each varItem In .SelectedItems myfile = varItem Next varItem End If End With If Len(myfile & "") > 0 Then Dim strSQL As String Dim tdf As TableDef Dim ThisDb As DAO.Database If Len(passDatabase & "") = 0 Then pass = "Test" Else: pass = "Test" Set ThisDb = DBEngine.Workspaces(0).OpenDatabase(myfile, True, False, ";pwd=" & pass) For Each tdf In CurrentDb.TableDefs If Not (Left(tdf.Name, 4)) = "MSys" Then CurrentDb.Execute ("delete * from " & tdf.Name) strSQL = "INSERT INTO " & tdf.Name & " SELECT " & tdf.Name & ".* FROM " & tdf.Name & " IN '" & myfile & "';" CurrentDb.Execute (strSQL) End If Next tdf End If MsgBox "تم استرداد النسخة الاحتياطية بنجاح", vbInformation End Sub

لماذا توقف هذا الدرس إلا يوجد مكمل له ؟

شكراً اخى الكريم وجزاك خيراً ووياها او وعودو .

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

اسعدنى وجودك استاذى واتمنى ان يكون فيه منفعه لك ولاخوانى ونورتنى والله .

قمت بتعديلها وتصحيح بعض الاخطار وسوف ارفقها مره اخري

توقعت ذلك شكراً جزيلا لك اخى محمد .

هل من الممكن تعديل المرفق ليلون الكلمه المكتوبة فى مربع البحث ؟ Serch.zip

ممكن استاذ جعفر تعدل لى على هذا المثال حيث يطابق ما قدمت وتوضح لى التغيرات فلم استطع عملها . Serch.zip

جزاك الله خيراً على هذا المثال وجعله الله له فى ميزان حسناتك .

ابداع ولا يوجد ما يقال فى حقك سوى الدعاء لك ولاسرتك جزاك الله ووياهم خيراً .

منور والله يا استاذ ابو خليل ربنا يديم عليك نور وجهك .

تسلم ايدك استاذى وهذه التجربة والاب توب نوع Acer ZHG

اشتغل عندى انا كمان تمام بدون مشاكل وفتح عادى . عندس سؤال عندك كمبوننت SMD ؟

شكراً للملحوظة ولكنها والله اشتغلت بس بدلتها بكود ابو خليل للضمان والاستقرار اكثر

شكراً جزيلاً لك استاذى وهذا هو المطلوب وكنت اتمنى التوضيح ولكن استاذى شيفان اوضحه لى جزاه الله خيراً . شكراً استاذى رمهان على هذه النقطة البسيطة والسهله وذهبت عنى وبسببها خطرت لى فكره اخى وعملت ايضاً جيداً وهي Private Sub Cus_Name_AfterUpdate() Dim Name_Cus As String Name_Cus = DCount("[Cus_Name]", "HA_Cus", "[Cus_Name] = Forms![Cus_N_C]![Cus_Name]") If Name_Cus > 0 Then MsgBox " اسم مكرر" & DLookup("[Cus_Num]", "HA_Cus", "[Cus_Name] = Forms![Cus_N_C]![Cus_Name]"), vbInformation + vbMsgBoxRight, "مكرر" Cancel = -1 Undo Me.Requery Cus_Name.SetFocus End If End Sub

السلام عليكم اخوانى عاوز انقل التركيز الى نفس الحقل ولا يريد ذلك ويذهب الى الحقل التالى ولا اعرف لماذا ولا اى شئ غريب فى الكود وجربت احتمالات كثيرة ولا تجدي نفع والكود المستخدم هذا Private Sub Cus_Mob_AfterUpdate() Dim phone As Integer phone = DCount("Cus_Mob", "HA_Cus_D", "[Cus_Mob] = Forms![Cus_N_C]![HA_Cus]![Cus_Mob]") If phone > 0 Then If MsgBox(" هذا الموبايل مكرر لللاعب رقم" & DLookup("[Cus_Num_D]", "HA_Cus_D", "[Cus_Mob] = Forms![Cus_N_C]![HA_Cus]![Cus_Mob]"), vbInformation + vbMsgBoxRight, "رقم مكرر") = vbOK Then Cus_Mob = "" Cus_Mob.SetFocus End If End If End Sub