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

السلام عليكم ورحمة الله اضافة الى المعادالة الرائعة للاخ سليم اليك الكود التالى .... تأكد من تطابق الاسماء بشيت العملاء مع اسمائهم فى الفواتير Sub LastDate() Dim sh As Worksheet, x As String Dim LR As Long, p As Long, y As Date LR = Sheets("العملاء").Range("C" & Rows.Count).End(xlUp).Row + 5 For p = 6 To LR For Each sh In ThisWorkbook.Worksheets x = sh.Name If x <> "العملاء" Then If Sheets("العملاء").Range("C" & p) <> "" Then If sh.Range("H2").Value = Sheets("العملاء").Range("C" & p) Then y = WorksheetFunction.Max(sh.Range("C9:C1000")) Sheets("العملاء").Range("E" & p) = y End If End If End If Next Next End Sub

انسخ هذه المعادلة الى الخلية D6 استعمل Ctrl+Shift+Enter , وليس Enter ,وحدها ثم اسحب الى باقي الخلايا لا تنس تنسيق الخلايا في العامود D الى تاريخ =IFERROR(INDIRECT("'"&A6&"'!C"&MAX(--(INDIRECT("'"&$A6&"'!$C$1:$C$100")<>"")*(ROW($C$1:$C$100)))),"")

طلب الي في احد المدارس تحويل علامات الطلاب من بيانات عامودية الى جدول قكان هذا الملف (وضعتة يتصرف المنتدى لمن يريد الاستفادة منه) Tanspose_notes.rar

السلام عليكم ورحمة الله تم عمل المطلوب إلا في واحدة من الخلايا (R12) حيث تم التصرف حسب الملاحظة الموضوعة بالصف الأخير بالملف... بن علية حاجي طلب تحويل مدة الى عدد و احتساب الفرق_2.rar

أرجو أن لا يكون الاحباط دخل إلى نفوسكم.. .. من الأمور المهمة التي يجب مراعاتها عند ترجمة الواجهات هو اتجاه القراءة بعد الترجمة، ولهذا يجب مراعات أن تكون عناوين حقول البيانات في أعلى الحقول على الأقل حتى لا يوثر تبديل اللغة على شكل ومحتوى الوجهات. .. في المشاركة السابقة قمت باستهداف حقول البيانات فقط.. لكن ماذا عن بقية العناصر على واجهة المستخدم؟ هل يمكن الوصول إليها وترجمتها؟ وأين يمكن تخزين بيانات الترجمة؟.. .. في المشاركة السابقة كان يتحتم علي تخزين بيانات الترجمة في كل جدول بحسبه.. :: في المشاركة التالية غيرت طريقة الوصول إلى عناصر واجهة المستخدم ومكان تخزين البيانات لتصبح بيانات موسعة... :: أرجو أن يكون بوسعكم فهم طريقة المعالجة، وأين خزنت البيانات... Inventory.zip

السلام عليكم اخى الكريم جرب الملف المرفق تم تعديل الاتى : 1 - بعد الضغط على زر " حفظ الفاتورة " يتم تعديل رقم الفاتورة بالرقم التالى 2 - الغاء عملية نسخ اسم العميل حيت فى الملف المرفق الخلية المحتوية على اسم العميل مازالت مظللة برنامج المحلات التجارية1.rar او الملف مرفق فى الرابط التالى http://kaitect.com/RZW

نعم هو ذاك بارك الله فيك أخي الكريم

السلام عليكم جرب الملف المرفق إذا كنتُ قد فهمت المطلوب جيدا... بن علية حاجي طلب تحويل مدة الى عدد و احتساب الفرق.rar

تسلم - تمام - هو المطلوب

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

السبب یرجع لهذا الكود في حدث قبل تحديث للنموذج Private Sub Form_BeforeUpdate(Cancel As Integer) If [n1] = 1 Then Else DoCmd.RunCommand acCmdUndo End If End Sub اي لا يحقق الشرط و يتم التراجع عن ما عملته امسح هذا الكود وسترتاح

ربما كان المطلوب Salimحسب 4الحالة.rar

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

وعليكم السلام ورحمة الله أنت بحاجة إلى وسيط ثالث يقوم بتحديد هوية المستخدم أولا حتى تتمكن من تطبيق الفكرة. يمكن تحديد هوية المستخدم بأحد الطرق التالية: * الطريقة التقليدية.. وهي عمل نموذج إدخال لهوية المستخدم وبعد ذلك تقوم بمطابقة هوية المستخدم مع الهوية في جدول التوجيه بالطريقة التالية DoCmd.OpenForm Dlookup("[Wanted]","Table1",UserName='" & Me.UserName & "'"), acNormal * الطريقة غير التقليدية.. وهي الاستفادة من هوية مستخدم ووندوز كوسيط للدحول، لكن هذه الطريقة تحتاج إلى أن تكون قاعدة البيانات في مجلد مشترك وفي بيئة متعددة المستخدمين، إما على جهاز واحد، أو أجهزة شبكية متعددة بالطريقة التالية DoCmd.OpenForm Dlookup("[Wanted]","Table1",UserName='" & Environ("UserName") & "'"), acNormal لتطبيق هذا الخيار بشكل أفضل يستحسن عمل وظيفة للقلاع مع الميكرو Autoexec