نجوم المشاركات

هل هذا التصور صحيح .....

Dim strSql As String, x As Integer x = MsgBox("This book is not available, would you like to add it?", vbYesNo + vbDefaultButton1) If x = vbYes Then strSql = "Insert Into TBbook (Namebook) values ('" & NewData & "')" CurrentDb.Execute strSql Response = acDataErrAdded Else Response = acDataErrContinue End If End Sub

تم التعديل أخي .. كنت نسيان تضيف فاصلة (,) في الكود قبل الفلتر . 1276627580_-Copy.accdb

تفضل Me.Parent!finfo.SetFocus DoCmd.GoToRecord , , acNewRec Me.Parent!finfo!namebook.setfocus جعفر

جزاك الله خيرا استاذ محمد كما هو مطلوب بالفعل.👍

عليكم السلام و رحمة الله وبركاته تفضل الملف اتمنى ان يفى بالغرض ofecena.xlsx

يعني قصدك تريد عمل سجل جديد ؟ ويكون التركيز على حقل اسم الكتاب ؟ جعفر

الاخت مريم2 لمذا لا تستخدمين الة البحث تفضل حماية ملف الاكسل من النسخ - منتدى الاكسيل Excel - أوفيسنا

السلام عليكم أخي الكريم تفتح الفورم ...تنظر في خصائص اليوزرفورم... كلمة Picture مسجل بجانبها None لا توجد صورة اضغط على زر بثلاث نقاط بجانبها تستطيع من خلاله اختيار صورة ..اختر الصورة التي تريد لتكون خلفية لشاشة الفورم. تقبل تحياتي test .xlsb

Book1 (2) (1) (3) (1).xlsM دخلت

لماذا لا تجعل قائمة الملفات في عمود محدد ومن ثم عمل هايبر لينك وفتحها بدلا من كتابة الملفات يدويا في العمود الاول وربطها بعمود اخر. لا اعتقد انها طريقة عملية . اراها تاخذ الكثير من الوقت لتربط كل ملف تكتبه يدويا بعمود أخر .

اخي اولاً تقوم بألغاء الحماية - ثانياً تقف علي خليه h2 ثم الضغط زر الموس الاين واختيار تنسيق خلاية ثم تقوم بازالة الحماية -- ملخص تم ازالة الحماية من الخلية h2 من فضلك قم بألضغط علي افضل اجابة ليتم انهاء المشاركة من قبل المنتدي جزاك الله خيراً

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

لا تنتظر المساعدة دون ارفاق ملف مدعوم بشرح كافي!!!

الحمد لله حل الإشكال وقد تم التواصل معك عبر موقع خمسات

تفضل أخي سيعمل معك الكود Book1.xlsm saaad 213المعذرة لقد أتى بها الأخ فجزاه الله خيرا.

Book1.xlsm منقول ومشكور لتعليمة

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

السلام عليكم يمكن استخدام هذة المعادلة =SUMIF($C:$C;LEFT(G4;FIND("-";G4)-1);$D:$D)+SUMIF($C:$C;RIGHT(G4;LEN(G4)-FIND("-";G4));$D:$D) ولكن يجب عليك وضع فاصل بين الرقمين مثلا 222-855 بدون مسافات التكلفة.xlsx

اخي sam_farh اين الفورم ملفك فارغ لا يوجد به شرح ولا فورم

احي AliBadawy ملفك بالفعل شغال ولا يوجد بداخلة شرح توضيحي لطلبك من فضلك قم بكتابة جملة معبرة عن طلبك 1:مثلاً عندي مشكله في العمود f1:f200 جزاك الله خيرا

ما دمت نصحتك بعدم استخدام الجدول الواحد فكان لزاما ان اعرض عليك البديل تفضل المرفق يشتمل على : 1- ثلاث جداول للحسابات ( يمكن ضمها في استعلام واحد والتعامل معها) 2- لمسات على الشجرة : - ضبط الاتجاه الى اليمين بكود مختصر - تلوين العقد كما يوجد خصائص اخرى لتنسيق العرض الشجري كتلوين الخلفية وفتح النماذج من خلال النقر على العقد ، يمكن تحقيقها حسب الرغبة والطلب treeviewClr.rar

وعليكم السلام 🙂 قوانين المنتدى تقول سؤال واحد لكل موضوع 🙂 فلهذا السبب سأرد على سؤال البحث : . رجاء فتح موضوع جديد لكل سؤال 🙂 جعفر

السلام عليكم 🙂 عندي مداخلة في التنسيق فقط 🙂 بما ان شجرة حساباتك بالعربي ، ايش رايك نخليها من اليمين الى اليسار ، هكذا : . وهذه هي الطريقة : . جعفر Database3 (1).zip

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

اخي AliBadawy لا تنتظر مساعدة دون ارفاق ملف مدعوم بشرح كافي

أهلا بك @أبو عبدالله الحلوانى نعم ممكن.. لكن في مثالك لن تكون القيمة ثابتة! بل مجرد تحديث الصفحة سوف يرجع إلى وضعه الطبيعي، لكون الحقول غير مرتبطة بجدول بيانات.. الشفرة كالتالي -- نقوم بتحديد صفوف الجدول أولا لأن لنا معها أمران: الأول القيمة المطابقة للبحث وهي في الحقل الثاني من الصف، وللوقوف على الحقل المطابق يلزمنا عمل دوارة فحص.. الثاني إذا تطابقت البيانات نحدد الحقل الذي به صندوق الاختيار ومن ثم نعطيه القيمة True Sub IsChecked() Dim I As Integer Dim tr As Object Set tr = WD.querySelectorAll("table tr") For I = 1 To tr.length - 1 '-- check if second cell in the row matched textbox value If tr(I).childNodes(1).innerText = Me.Text0 Then '-- if true: in fifth cell in the row set checked property true tr(I).childNodes(4).childNodes(0).Checked = True End If Next End Sub TestCheckBoxOnHtml.zip

السلام عليكم 🙂 انا متابع الموضوع من البداية ، ونصيحة الاخوان في مكانها ، وبقية النصائح هنا: . كما عندي هذه الملاحظات في الكود: 1. لا تستخدم On Error Resume Next إلا في حالات جدا خاصة ، وانما استعمل رقم الخطأ وتعامل معاه: Private Sub Form_Load() On Error GoTo err_Form_Load Me.TNO.SetFocus DoCmd.FindRecord Forms!FRM_01!TNO, , , , , , True No_FRM: 'continue code here Exit_Form_Load: Exit Sub err_Form_Load: If Err.Number = 1234 Then 'ignore, Resume Next ElseIf Err.Number = 2145 Then 'ignore, No proper value from incoming Form Resume No_FRM Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_Form_Load End If End Sub . 2. ولو انك تقدر تستخدم فلتر النموذج هكذا : myCriteria = "" myCriteria = myCriteria & "(" myCriteria = myCriteria & "[BRANDS]= '" & Me.cmbBRANDS.Column(1) & "'" myCriteria = myCriteria & ")" Debug.Print myCriteria Me.Filter = myCriteria Me.FilterOn = True . وهذه نصائح على استعماله: . ولكني انصحك بإستخدام فلتر النموذج عن طريق الاستعلام : . 3. لا تستخدم Dim بدون ان تُعرّف نوع المتغير ، يعني اذا استخدمت (Dim i) فهذا معناه Dim i as Variant 4. لما تستعمل الامر Set rs = CurrentDb.OpenRecordset ، فإنك تضع جميع البيانات الجدول/الاستعلام في ذاكرة الكمبيوتر Ram ، فيجب عليك حذف هذه البيانات في نهاية الكود ، هكذا: rst.close: set rs = nothing جعفر