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

تفضل المستودع التقني.xlsm

راديو احترافى لن تجده الا بمنتديات اوفيسنا الاصدار الاول : JU_Radio v1.zip

تفضل TestDBv.mdb

تفضل أستاذ عبد جرب وللاسترجاع اعكس الأوامر مع عمل نموذج ارجاع مصدره الجدول TargetTbl Private Sub Command1_Click() Dim db As DAO.Database Dim StrSQLADD As String Dim StrSQLDEL As String ' تعريف القاعدة الحالية Set db = CurrentDb ' ادراج السجل الحالي في جدول التخزين StrSQLADD = "INSERT INTO TargetTbl SELECT * FROM [SourceTbl] WHERE IDREC = " & Me!IDREC db.Execute StrSQLADD 'حذف السجل الحالي بعد حفظه في الجدول السابق StrSQLDEL = "DELETE * FROM SourceTbl WHERE IDREC = " & Me!IDREC db.Execute StrSQLDEL ' تحديث النموذج للتخلص من السجل المحذوف Me.Requery End Sub TestDB.mdb

ما اقصده هو اخفاء السجل وليس حذفة الخاصية False لاظهار السجلات في النموذج الرئيسي والخاصية true لاظهار السجلات المخفية ( بالنموذج الاخر ) بالنموذج الاول عند رغبتك بحذف سجل ضع زر أمر يقوم بتحديث حقل Deletrecord الى القيمة true فيتم حذفه ( اخفاء) وبالنموذج الاخر ضع زر أمر يقوم بتحديث الحقل Deletrecord ويعطية القيمة False وفي نفس النموذج ضع زر أمر حذف يقوم بحذف السجل إذا اردت حذفه نهائياً ان شاء الله قدرت اوصلك الفكرة

بعد إذن استاذي جعفر لست بحاجة لعمل جدول وترحيل السجل اليه فقط تحتاج الى خانة نعم لا باسم Deletrecord في منشأ الاستعلام للمنوذج اجعل قيمة الحقل false والاسترجاع السجل للظهور اعمل نموذج اخر وفي منشئ الاستعلام اجعل الخاصية True ::بالتوفيق::

اهلا بك اخى اشرف في المنتدى تفضل لك ما طلبت معادلة عد2.xlsx

وعليكم السلام 🙂 في الحدث بعد تحديث الحقل "الحالة الزوجية" ضع هذا الكود (ما يهمك ، الكود هنا مقلوب ، بس في VBE بيطلع صح 🙂 ) : if me.[الحالة الزوجية]="اعزب" then me.[عدد الاطفال].visible=false else me.[عدد الاطفال].visible=true end if جعفر

وهذا أيضا برنامج متكامل للمبيعات والعملاء على هذا الرابط https://www.officena.net/ib/topic/91701-برنامج-ادارة-المبيعات-و-العملاء/?tab=comments#comment-575051

بارك الله فيكى وجزاكى الله خير الثواب-والحمد لله الذى بنعمته تتم الصالحات

تفضلى المستودع التقني.xlsm

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

بالطبع استلمت الملف وبحاول فيه ولكن أيضا اريد قائمة بالرمز الخاص بجميع الأصول وأسماء جميع الأصول مع وصفهم , لعمل قوائم منسدلة أيضا بهم كما تم عمله في هذا الملف المستودع التقني.xlsm

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

شكرا لحضرتك وذوقك واهتمامك وان شاء الله نوصل لحل

يعني زى الصورة كدة يكمل لغاية 119 اللى هو عدد السجلات بس

حضرتك اختار من القوائم المنسدله فوق والنموذج راح يتملى

وضح السؤال ؟؟ مشان نعرف نساعدك ؟؟ النموذج فارغ

بيظهر معى صفحة فاضية بيضاء

لا يقال لمثلك سوى شكراً و جزاك الله بما صنعت خيراً

بالاكسس لا اعتقد على حد علمي ::بالتوفيق::

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

تم التعديل على الماكرو ليتناسب مع المطلوب Option Explicit Sub give_data() Dim N As Worksheet: Set N = Sheets("names") Dim S As Worksheet: Set S = Sheets("Salim") Dim lrN%: lrN = N.Cells(Rows.Count, 3).End(3).Row Dim lrS%: lrS = S.Cells(Rows.Count, 3).End(3).Row Dim t%, i%: i = 6 Dim m%: m = 9 S.Cells(m, 3).Resize(lrS + 10, 8).Clear Do Until i = lrN + 1 If N.Cells(i, "Y") Like "*" & S.Range("m3") & "*" Then With S.Cells(m, 3) t = t + 1 .Value = N.Cells(i, 1) .Offset(, 1) = N.Cells(i, 3) .Offset(, 2) = N.Cells(i, 2) .Offset(, 3) = N.Cells(i, 5) .Offset(, 4) = N.Cells(i, 10) .Offset(, 5) = N.Cells(i, 8) m = m + 1 End With End If i = i + 1 Loop Cells(1, 4) = t If t = 0 Then MsgBox "No Studiant for this category" Exit Sub End If lrS = S.Cells(Rows.Count, 3).End(3).Row With Range("c9").Resize(lrS - 8, 7) .Font.Size = 22 .Borders.LineStyle = 1 .Interior.ColorIndex = 35 .InsertIndent 1 End With Range("RG_TO_COPY").Copy Cells(lrS + 2, 5) With Cells(lrS + 3, "g") .Formula = "=COUNTIF(F9:F" & lrS & "," & """فرنسي""" & ")" .Offset(1).Formula = "=COUNTIF(G9:G" & lrS & "," & """مسلم""" & ")" .Offset(2).Formula = "=COUNTIF(H9:H" & lrS & "," & """نظامي""" & ")" .Offset(, 2).Formula = "=COUNTIF(F9:F" & lrS & "," & """الماني""" & ")" .Offset(1, 2).Formula = "=COUNTIF(G9:G" & lrS & "," & """مسيحي""" & ")" .Offset(2, 2).Formula = "=COUNTIF(H9:H" & lrS & "," & """منازل""" & ")" End With End Sub الملف من جديد Legan _salim _new.xlsm

آسف لعطل في الانترنت https://up.top4top.net/downloadf-1271dfz0l1-rar.html

محاولة بسيطةtst1.rar

شكرا ابا جودى تم فتح الملف بنجاح وعاشت الايادي

استاذي واخي عبد اللطيف سلوم هذا الكود للتحديد لو جعلته للحذف لحذف السجلات جميعها بعد التحديد استخدم زر حذف أو كما فعل الأخ الوزير بإبدال العنوان واستخدام الجملة الشرطية

هل يصير نضيف على الجملة ونخليها : الاستاذ محمد عصام مروض الأكسس ونص جعفر

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

جرب هذا الملف Order_Me.xlsm

شكرا استاذ علي اسفة عذتك كتير..الله يعطيك الف عافية

أحسنت استاذ سليم كود ممتاز جعله الله فى ميزان حسناتك

Dim f As String Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount f = rst!Delchk For i = 1 To RC If f = "true" Then rst.Edit rst!Delchk = False rst.Update Else rst.Edit rst!Delchk = True rst.Update End If rst.MoveNext Next i rst.Close: Set rst = Nothing غير فقط Delchk= الحقل في الجدول هذا مسمى الحقل في الكود واترك الباقي كما هو طبقه على القاعدة كما هو ولن يحدث معك خطأ بإذن الله هذا في كود التحديد أما كود الإلغاء أعمل العكس true أجعلها false

السلام عليكم ورحمه الله وبركاته اقدم لكم برنامج كامل لمتابعة حركة المبيعات و ارصدة العملاء فيديو شرح استخدام البرنامج

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

تفضل New_Microsoft_Excel_Worksheet.xlsx

بارك الله فيك وجزاك الله كل خير

لو الخطأ مع معادلتى انا فلابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات لكى تعمل المعادلة بكل دقة لأنها معادلة مصفوفة وليست معادلة عادية بارك الله فيك

بعد اذن الأستاذ شريف ولإثراء الموضوع هذه معادلة مجموع الكميات السالبة =-SUMIF($C$2:$C$9956,"<0") وهذه معادلة الكميات الموجبة =SUMIF($C$2:$C$9956,">0") بارك الله فيكم جميعا

أحسنت استاذ ابراهيم كود ممتاز جعله الله فى ميزان حسناتك

أحسنت بارك الله فيك استاذى الكريم عمل رائع

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

بارك الله فيك وزادك من فضله ولك بمثل ما دعوت لى وزيادة

يمكنك بذلك استخدام ملف الأستاذ عماد بارك الله فيه

وده امر سهل ان شاء الله -انظر الى الصور . .

تفضل تعديل على الكود - الترحيل على اساس شروط ثلاث -استثناء بعض الارقام2.xlsm

تفضل لتحليل الاختبارات للمرحلة المتوسطة والثانوية.xls

اشرح ما تريده بالضبط على الملف مع الإستعانة بالصور للتوضيح

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

يمكنك فعل هذا أولا بدون اكواد بتتبع الشرح فى هذا الرابط : https://academy.hsoub.com/apps/productivity/office/microsoft-excel/حماية-ملفات-microsoft-excel-من-التعديل-بكلمات-سر-r62/ او بوضع هذا الكود لحماية كل اوراق العمل Sub Protect() Dim ws As Worksheet Dim pwd As String pwd = "" ' Put your password here For Each ws In Worksheets ws.Protect Password:=123, UserInterfaceOnly:=True Next ws End Sub وكود اخر لفك الحماية Sub UnProtect() Dim ws As Worksheet Dim pwd As String pwd = "" ' Put your password here For Each ws In Worksheets ws.UnProtect Password:=123 Next ws End Sub بارك الله فيك