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

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

اذا الشاشة الرئيسية مصدرها الجدول " اكتب في حقل غير منضم : =count("*") واذا الشاشة مصدرها غير الجدول او بدون مصدر اكتب في الحقل : =DCount("*";"tblName")

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

شكراً لك @ابو ياسين المشولي سأجرب البرنامج و أعود بالنتائج .

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

اخي العزيز tblName هو اسم الجدول لديك

السلام عليكم تفضل : Dim rst As DAO.Recordset Dim x As Integer Dim i As Integer, RC As Integer Set rst = CurrentDb.OpenRecordset("SELECT * FROM [studient]") rst.MoveLast rst.MoveFirst RC = rst.RecordCount Forms!YWMA!YWMA_sub.SetFocus DoCmd.GoToRecord , , acFirst For i = 1 To RC If rst!namestudient = Null Or Len(rst!namestudient & vbNullString) = 0 Then x = rst!idstudient Forms!YWMA!YWMA_sub.SetFocus DoCmd.GoToRecord , , , x - 1 Forms!YWMA!YWMA_sub.Requery Exit Sub End If rst.MoveNext Next i فحص الفراغ.rar

اتفضل

السلام عليكم لماذا نحتاج إلى إضافة المراجع يدوياً في محرر الفيجوال و لا تضاف تلقائياً ؟ و هل لملفات DLL علاقة بهذه المراجع ؟

احسنت استاذ سليم بارك الله فيك

جرب هذا الملف مع اني في الاساس ضد لعبة دمج الخلايا ولا احبذها الكود Option Explicit Sub test() If ActiveSheet.Name <> "Salim" Then Exit Sub Dim My_Rg As Range Dim r, x, i, m, k Dim st$ Set My_Rg = Range("a1").CurrentRegion.Columns(1) With Range("H:H") .UnMerge .ClearContents End With r = My_Rg.Rows.Count For i = 1 To r x = My_Rg.Cells(i).MergeArea.Rows.Count If x > 1 Then m = 1 For k = i To i + x - 1 st = st & Cells(i + m - 1, 2) & " " & Chr(10) m = m + 1 Next With Range("H" & i) .Resize(x).Merge .Value = Mid(st, 1, Len(st) - 1) End With m = 1 st = vbNullString i = i + x - 1 Else Range("H" & i) = My_Rg.Cells(i).Offset(, 1) End If Next End Sub الملف مرفق Salim دمج الخلايا.xlsm

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

بارك الله فيك وفي جهودك عمل رائع اخي ادتما إنجاز هذه المعادلة بي الكود لكان افضل

اتفضل طارق.accdb

لاحظ اخى الكريم الصور وسيكون الأمر واضح بالنسبة لك ان شاء الله بارك الله فيك

أستاذنا @ابو ياسين المشولي تفضل هذا مثال SeashError.rar

جزاك الله خير ا خي وجعله في ميزان حسناتكم ممكن خي الكريم لوسمحت ان تشير الى طريقة لنستفيد جزاك الله خير

نعم هو كذلك يعمل مع الاكسل ولكن هذا هو كود الاكسل Dim xlApp, xlBook dim fso dim curDir set fso = CreateObject("Scripting.FileSystemObject") curDir = fso.GetAbsolutePathName(".") Set xlapp = CreateObject("Excel.Application") xlapp.Visible = false Set xlBook = xlApp.Workbooks.Open(curDir & "\Projram.xlsb")

أخي و أستاذي الحبيب @ابو ياسين المشولي هل قمت بعملية استثناء للمجلد الذي وضعت به الملف التنفيذي ؟ و هل يمكن لهذا البرنامج تحويل البرامج المنفذة على إكسل إلى ملفات تنفيذية ؟

تفضل اخى الكريم لك ما طلبت قائمة منسدلة مطاطية على اليوزرفورم.xlsm

بارك الله فيك استاذ سليم رائع

هذه المعادلة في F9 و اسحب نزولاً =MID(C9,1,FIND("/",C9)-1) أو هذه =REPLACE(C9,FIND("/",C9),50,"")

يكفى فعلا ولكن ماذا لو كنت تريد اصلاح الخلل لنفس المستخدم القديم دون وجود مستخدم جديد

شكرا اخي لكن قمت بكتابه هذا الكود في الشاشه =DCount("*";"tblName") وتظهر لي هذه الرساله

هل ينفع هذا

واليك هذا الرابط لعله تستفيد منه في المستقبل مثال يعمل على اكسس 32 بت و 64-بت

جرب ادرج الكلمة PtrSafe بين الكلمتين Declare PtrSafe Function كما في المثال

اخي عبدالله المجرب جرب هذا الكود واعمل في txt وحول صيغته الى vbsبدلtxt واجعله جنب البرنامج واجعل البرنامج يشتغل منه مباشرة dim fso: set fso = CreateObject("Scripting.FileSystemObject") dim CurrentDirectory CurrentDirectory = fso.GetAbsolutePathName(".") dim Directory Directory = CurrentDirectory & "\name.accdb" dim o set o=createobject ("Access.Application") o.automationsecurity=1 ' set macro security LOW. o.opencurrentdatabase Directory o.usercontrol=true o.runcommand 10 set o=nothing غير هذا باسم برنامجك Directory = CurrentDirectory & "\name.accdb"

تفضل اخى الكريم والطباعة مضبوطة على الصفحة بدون اية اكواد أجندة محامى.xlsm

هل خطر على بالك ان تنشأ قائمة منسدلة متناقصة و مطاطة في نفس الوقت متناقصة: بمعنى انه اذا اخترت منها اي اسم يخرج هذا الاسم من محتوياتها وتتم كتابته في العامود المجاور في أول صف فارغ مطاطة: بمعنى انها تستجيب لاي تعديل في البيانات مع تجاهل الفراغات والتكرار الملف مرفق special_drop_down.xlsm

تابع الشرح في الفيديو ...... شرح صنع فاتورة بالاكسس

بسم الله الرحمن الرحيم أليكم الآن الأصدار الأول من برنامج المستودعات ( النسخة للتعامل باللغة الأنجليزية ) فكرة البرنامج وكيفية الأستخدام ستبدأ أولاً بتسجيل الأصناف الموجودة لديك في صفحة ( Items ) لا تقم بإدخال رقم متسلسل لكل صنف . فقط أدخل الموديل وكذلك وصف المنتج وسيتم ترقيمة تلقائياً الرقم المتسلسل هام وستحتاجه عند إضافة صنف أو أخراجه من المستودع الآن وبعد تسجيل المنتجات التي لديك . توجه الي صفحة ( To Store ) والتي تعني أدخال الصنف للمستودع في خانة ( NO ) أدخل الرقم المتسلسل للصنف كما هو مسجل في صفحة ( Items ) وستلاحظ أن بياناته تظهر أمامك ويبقى تسجيل العدد وتاريخ الأدخال عندما تريد إخراج صنف من المستودع ستذهب الي صفحة Out Of Store وستقوم أيضاً بإدخال رقم الصنف وستلاحظ أنه تظهر أمامك الآن الموديل والوصف والكميه المدخله من البدايه والرصيد الباقي لديك قم بأدخال الكميه المراد إخراجها وستظهر لك رساله توضيحيه بالرصيد الباقي . ولا تقلق إن أخطأت في كتابة الكميه بزياده عن الموجود في المستودع فالبرنامج لن يقبل ذلك وستظهر رساله أيضاً بذلك يمكنك طباعة تقرير مستقل لصنف بكميته وعدد مرات الأدخال والأخراج من المستودع يمكنك طباعة ورقه برصيد المستودع لكامل الأصناف ولكن عليك الضغط على زر الطباعه المخصص لذلك في الصفحه لتجنب طباعة البيانات الفارغه . يوجد زر بحث في صفحة الأصناف لكي يسهل عليك الوصول الي رقم أي صنف تريد نعرفته سريعاً ملحوظه : إذا أدخلت عدد معين لصنف ما ... وتريد أضافة عدد آخر فأنت لست بحاجه للذهاب لرصيدك السابق وتعديله ولكن يمكن تسجيل العدد الجديد برقم الصنف وسيتم أضافته للسابق قريباً النسخة العربيه ولا تنسونا من صالح الدعاء مقترحاتكم تهمنا فلا تبخلوا بها علينا بالتوفيق تحية حب وتقدير للأستاذ الكبير محمد طاهر Store.zip