mrnooo2000

عذرا الموضوع مغلق للأسئلة يجب تحديد النوع سؤال وطرح نقاط عليه والحد الأدنى 3 نقاط وإلا سيغلق موضوعك فورا وسيحذف بعد ذلك حتى لو تمت الإجابة عليه .

عذرا الموضوع مغلق للأسئلة يجب تحديد النوع سؤال وطرح نقاط عليه والحد الأدنى 3 نقاط وإلا سيغلق موضوعك فورا وسيحذف بعد ذلك حتى لو تمت الإجابة عليه .

عذرا الموضوع مغلق للأسئلة يجب تحديد النوع سؤال وطرح نقاط عليه والحد الأدنى 3 نقاط وإلا سيغلق موضوعك فورا وسيحذف بعد ذلك حتى لو تمت الإجابة عليه .

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

تفضل أخى استخدم هذا الكود Dim i As Integer Dim strSQL As String For i = 1 To 3 strSQL = ("INSERT INTO tbl1 ([name1] , [age1],[city]) VALUES('" & Me.Controls("a" & i) & "', '" & Me.Controls("b" & i) & "','" & Me.Controls("c" & i) & "')") CurrentDb.Execute strSQ…

سؤال للتوضيح: كيف يتم ادخال البيانات بالجدول الاول ؟

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

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

أخى الكريم هذا هو الكود المستخدم أولا سيتم وضع الكود فى حدث فى الحالى فى النموذج الرئيسى لكى يتم تنفيذه عند تغيير السجل Private Sub Form_Current() ثم نقوم بتعريف مجموعة السجلات الخاصة بالنموذج الفرعى Dim rs As Recordset Set rs = Me.subfrm.Form.RecordsetClone و…

تمت الاجابة على نفس هذا السؤال من قبل فى هذه المشاركة /index.php?showtopic=258547&st=0&p=1270914&fromsearch=1entry1270914

تفضل أخى ABC.rar

اليك أخى هذا الكود بعد التعديل استدعى هذا الكود حينما تريد لحذف الجداول من أى قاعدة تريدها ( الجداول الاساسية و المرتبطة ) فقط تحتاج الى مسار القاعدة المطلوب حذف الجداول منها أما اذا كنت تريد حذف الجداول بنفس القاعدة فلا تضع أى شىء Private Sub DeleteTables(Opt…

الاسئلة عامة جدا أو مبتورة يرجى التوضيح

هذا بسبب خطأ بالاكواد يجب فحص جميع الاكواد قبل التحويل عموما الخطأ هنا (MyUser.UserName) Private Sub Form_Error(DataErr As Integer, Response As Integer) MsgBox "ÚÝæÇð " & MyUser.UserName & " " & vbCr & vbCr & "áíÓ áÏíß ÇáÕáÇÍíÉ áåÐÇÇáÇÌÑÇÁ", 0 + 16 + 1572864, …

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

عدل هذا السطر من الكود sData = Me.q1.Column(4) الى sData = DLookup("Aya_txt", "all", "serial=" & Me.q1.Column(0))

تفضل اخى za-db2-UP.rar

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

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

من خيارات النموذج format border style اختار dialog