البحث في الموقع

https://youtu.be/CsZ_5md3QCM

السلام عليكم إخوتى الكرام وكل عام و أنتم بخير لدى نموذج غير معتمد على جدول أو استعلام قمت بفتح recordset عن طريق ال ado قمت بجعل مصدر بيانات النموذج هو ال recordset المسماة adorec كما قمت بإسناد مربعات النصوص لل recordset كل مربع نص إلى حقل فى recordset أنشأت أزرارا للسابق و اللاحق و الأول و الأخير ...... كما ترون بالصورة المشكلة أنشأت زرا لإضافة سجل جديد لكنه لم يقبل و ظهرت رسالة تفيد بأنه لا يمكننى الانتقال للسجل المحدد جربت إضافة سجل جديد بالكود Docmd.gotorecord,,acnewrecord و عن طريق إضافة زر جاهز كل هذا لم يقبله أرجو النصيحة من خبراء المنتدى الأفاضل هل لا يمكن إضافة سجل جديد لنموذج تم تحميل مصدر بياناته ب الريكورد سيت من خلال الكود هذا هو كود الفتح Dim iBink As Integer Dim ForeColor As Long Dim adocon As ADODB.Connection Dim adorec As ADODB.Recordset Private Sub cmdcancel_Click() Me.Undo End Sub Private Sub cmdend_Click() DoCmd.Close acForm, (Me.Name) End Sub Dim adocon As ADODB.Connection Dim adorec As ADODB.Recordset Private Sub Form_Load() Set adocon = CurrentProject.AccessConnection Set adorec = New ADODB.Recordset With adorec Set .ActiveConnection = adocon .Source = "SELECT * FROM tblmain" .LockType = adLockOptimistic .CursorType = adOpenKeyset .Open End With هنا إسناد الريكورد سيت لتكون مصدر بيانات النموذج Set Me.Recordset = adorec و هذه جمل لتحديد مصدر بيانات مربعات النصوص لتكون حقول فى recordset txtfind.ControlSource = "=[" & adorec.Fields(0).Name & "]" txtname.ControlSource = "=[" & adorec.Fields(5).Name & "]" txtqawmy.ControlSource = "=[" & adorec.Fields(4).Name & "]" txtqaydn.ControlSource = "=[" & adorec.Fields(20).Name & "]" txtfn.ControlSource = "=[" & adorec.Fields(13).Name & "]" txtmn.ControlSource = "=[" & adorec.Fields(16).Name & "]" txtwn.ControlSource = "=[" & adorec.Fields(22).Name & "]" txtmelad.ControlSource = "=[" & adorec.Fields(31).Name & "]" End Sub Set adorec = Nothing Set adocon = Nothing End Sub

السلام عليكم ورحمة الله وبركاته تحيه طيبه للجميع انا جديده في التعامل مع الفيجوال بيسك سأشرح لكم مااريد وجزى الله من ساعدني خير الجزاء في الدنيا والاخره لدي ملف اكسيل متغير كل اسبوع يحتوي على الاعمده التاليه بنفس الترتيب Category Type User Name Unique ID First-Last Name Course Name Class Name Class Code Class Start Date Class End Date Vendor Name Class Location Class Actual Location Request Submitted Request Status Request Form Name Levels Required Levels Completed Escalated Managed by Class Type Email في كل مره افتح الملف يجب علي ان افلتر الملف واخذ معلومات منه احاول ان اعمل فورم بسيط بحيث بضغطه زر استطيع ان افتلر الجدول المحدد بدون ماافعله كل مره أولا أريد زر حذف جميع الصفوف التي تتوفر فيها هذي الشرطين لابد لي من حذف الصفوف اللي تحتوي على 0 من عامود Levels Completed وايظا حذف الصفوف التي تحتوي على 1 = Levels Completed و 3 = Levels Required ( لابد من توفر الشرطين في هذي النقطه ) الفورم اريد فيه1- ليست بوكس لعامود Vendor Name بحيث اختار الفندور من اللست ويظهر لي فقط مااخترته ( أريد خيار اني استطيع اختيار اكثر من فندور وليش فقط واحد ) 2- ليست بوكس لعامود Category Type بحيث ايظا استطيع اظهار الاعمده فقط اللي تحتوي على النوع الذي اريده( يوجد فقط خيارين في هذا العامود إما management أو technical ) 3- عامود Class Type وأيظا يحتوي على خيارين (internal or external ) ثم زر لما اضغطه يطبق لي جميع الخيارات المختاره ويظهر لي فقط مااخترته في أمس الحاجه للمساعده الله يفرج كربكم جميعا .. هذا الكود وجدته لحذف القيمه 0 من العامود Levels Completed Sub DeleteRowsWithX() maxRow = ActiveSheet.UsedRange.Rows.Count For i = 1 To maxRow Do While (StrComp(ActiveSheet.Cells(i, 17).Value, 0, vbTextCompare) = 0) Rows(i).Select Selection.Delete Shift:=xlUp Loop Next End Sub

السلام عليكم ورحمة الله وبركاته.. من خلا ل اطلاعي على بعض المواقع المتخصصة في الإكسيل ، وجدت هذه النماذج وأحببت أن أنقلها كما هي وإدراجها في هذا المنتدى علها أن تكون مصدر لاستلهام الأفكار في تصميم البرامج الخاصة في الإكسيل. الفورم الأول: المرفق1: http://www.excel-easy.com/vba/examples/excel-files/controls-collection.xls

السلام عليكم ورحمة الله وبركاته كيف حال الاخوة الاعضاء و المشرفين اريد ان اعرف كيف اعمل فورم تاكيدي لعمل اكمر معين مثال عند كبس العميل لزر حذف تظهر له رساله " هل انت متاكد من حذف الفاتووره " اذا اختار "نعم" يطبق الامر و اذا اختار "لا" يختفي فورم الرسالة مع كامل تحياتي

السلام عليكم ورحمة الله وبركاته إخوتي وأساتذتي الكرام تحية طيبة أبثها لكم ...حيث تشرفت بكوني طالباً في مدرستكم الرائدة.. مما قرأت عنه مؤخراً..وشاهدته عبر اليوتيوب ..تلوين أزرار الفورم...ولذلك فإنني أضع هذا الموضوع بين أيديكم الكريمة لينال ما يستحق من البحث والتطوير ..وأظن أنه قد يتم تطويره باستخدام الحلقات التكرارية ..وهذه يستفيض بها أخونا وأستاذنا الكريم أبو البراء ...قمت بالتطبيق على فورم من أعمال أساتذتي في المنتدى الكريم..شاشة دخول اسم ورقم المستخدم حيث اسم المستخدم هنا admin ورقمه123 لاحظ كلمة أوفيسنا مرر الماوس عليها يمنة ويسرة ومررها أيضاً على الليبلات المجاورة لها.. راجياً أن يتقبل الله تعالى منا صالح أعمالنا ويتجاوز عن سيئاتنا ...آمين والسلام عليكم ورحمة الله وبركاته.. أوفيسنا.rar

اقدم لكم السلسلة التعليمية لشرح برنامج ميكروسوفت اكسس 2010 بالصوت والصورة على يوتيوب نغطى اهم الاجزاء للمبتدئين الجداول وخصائصها العلاقات الاستعلامات النماذج التقارير الشاشه الرئيسية الحماية فى اكسس الفتره التجريبيه للبرنامج تفعيل وتعطيل مفتاح الشيفت باجمالى 11 ساعة مقسمة على 22 فيديو جوده عالية منظمة ومرتبه ومرقمة فى قائمة تشغيل على اليوتيوب الرابط من هنا بالاضافه الى سلسله كل يوم معلومة سلسله تكمل السلسله السابقه وتتميز بقصر مدة الفيديو بحيث لا يزيد عن 15 دقيقه نغطى فيها اجزاء لم يتم شرحها فى السلسله السابقه ونؤكد على اجزاء لاهميتها واستعمالها بكثرة حتى الان وصلت 9 حلقات باجمالى 45 دقيقه رابط سلسله كل يوم معلومة من هنا

السلام عليكم اعاني من مشكله ان الحقول لا تظهر في النموذج كما موضح بالصور المرفقة وشكرا I have problem with MS Access though i created a table n added some data but when i create a form my table's fields do not appear on form view only on design view as it shows on the attachment photos Any one faced this issue before? Best regards