بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 18 ينا, 2020 in all areas
-
تأكد من اسم المربع النصي اللي فيھا قيمة حقل price_masrof ھل اسمە نفسە ، لان الاكواد مضبوطة وما بھا شيء3 points
-
ولم حذفته اخى لعلنا لم نراه من قبل فنستفيد منه باى معلومه وارجو منادتى باخى فلا تناسبنى استاذ فاننى طالب علم واحاول ان اتعلم من اسئلتكم ومشاركتكم وجزاكم الله خيرا بالسماح لى على مشاركتكم المحاوله معكم وتمنياتى لكم وللجميع بالتوفيق ارجو منك وضعه وجزاك الله خيرا تقبل تحياتى3 points
-
جرب هذا ووافنا بالنتائج يفضل حفظ الصور بالـ ID الخاص بالموظف فبعض الحروف لا تضبط عند استدعائها بالكود Photo.rar3 points
-
ممكن نجربة هذا الكود اذا لم يكن هناك صفحة بأي اسم يقوم الماكرو باضافة صفحة جديدة بهذا الاسم و ينقل البيانات اليها Option Explicit Sub Add_sheet() Dim myname As Worksheet Dim P As Worksheet Dim sh_n%, k%, i% Set P = Sheets("اليوميه") sh_n = Application.CountA(P.Range("B:B")) - 1 Dim x%, t%: t = 2 Dim mn$ Application.ScreenUpdating = False ''''''''''''''''''''''''''''''''''''''''' For i = 2 To sh_n On Error Resume Next mn = Sheets(P.Range("b" & i) & "").Name x = Len(mn) If x = 0 Then P.Copy after:=Sheets(Sheets.Count) With ActiveSheet .Name = P.Range("b" & i) .Range("G14") = P.Range("F" & i) .Range("a1").CurrentRegion.Offset(1).ClearContents .Range("A:A").NumberFormat = ("dd- mm-yyy") For k = 2 To sh_n + 1 If P.Range("b" & k) = ActiveSheet.Name Then ActiveSheet.Cells(t, 1).Resize(, 4).Value = _ P.Range("A" & k).Resize(, 4).Value t = t + 1 End If Next End With '========================================= Else Set myname = Sheets(P.Range("b" & i) & "") myname.Range("a1").CurrentRegion.Offset(1).ClearContents For k = 2 To sh_n + 1 If P.Range("b" & k) = myname.Name Then myname.Cells(t, 1).Resize(, 4).Value = _ P.Range("A" & k).Resize(, 4).Value t = t + 1 End If Next '''''''''''''''''''''''''''''''''''' End If mn = "" Err.Number = 0 t = 2 Next i P.Select Application.ScreenUpdating = True End Sub الملف مرفق tarhil_by_names.xlsm3 points
-
جرب هذا الماكرو ( اذا كان هناك تكرار تصدر رسالة بمكان التكرار و يقوم الماكرو بمسح ما كتبته) Option Explicit Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range) Dim x%, First As Range, y%, My_address$ Application.EnableEvents = False If Not Intersect(sh.Columns(1), Target) Is Nothing Then Set First = Cells(Target.Row, 1) y = Application.CountIf(ActiveSheet.Columns(1), First) If y > 1 Then MsgBox "Error!" & Chr(10) & "This Record is Allready Exits in" & Chr(10) & _ ActiveSheet.Name Target = vbNullString GoTo Exit_me End If For Each sh In Sheets If sh.Name = ActiveSheet.Name Then GoTo My_next: x = Application.CountIf(sh.Columns(1), First) If x > 0 Then My_address = sh.Columns(1).Find(First, lookat:=1).Address MsgBox "Error!" & Chr(10) & "This Record Is Already Exits in" & Chr(10) & _ sh.Name & ":" & My_address Target = vbNullString GoTo Exit_me End If My_next: Next End If Exit_me: Application.EnableEvents = True End Sub الملف مرفق No Repeat In All Sheets.xlsm3 points
-
2 points
-
2 points
-
2 points
-
شكرا استاذ خالد على المداخلة في الاكسس نتاعمل مع النماذج والتقارير كشكل الظاھري والجداول والاستعلامات و الماكرو والاكواد نتعاملە بشكل خلفي من شان جمالية البرامج واسف ما نظرت للاسم المشتركين2 points
-
2 points
-
لقد عرفت اين الخطا الدالة هذه صحيحة .. ولكن اتضح ان المشكلة ان النموذج مغلق الاضافة والتعديل وعندما عدلتهم نجحت الطريقة =Nz(Sum([price_masrof]);0) جزاكم الله خيرا جميعا وبارك الله فيكم2 points
-
السلام عليكم بعد اذن الاساتذه الكرام ممكن تعمل اخقاء للنموذج عند فتح الجدول بالكود التالي DoCmd.OpenTable "Table1", acViewNormal DoCmd.OpenForm "FORM1", , , , , acHidden2 points
-
السلام عليكم "...";Iif( isnull([Price_masrof]);0) لعل هذا ما تحتاج. أعتذر لعدم تنسيق الأمر كوني أكتب من الهاتف الجوال.2 points
-
2 points
-
اخي العزيز هذه الدالة تعمل لدي بصورة صحيحة 100% 1- هل جربت ان تجعل القيمة الافتراضية للحقل = صفر 2- جرب الدالة iif isnull ارفق مثال لو احبب لكي نرى المشكلة تحياتي2 points
-
نعم ممكن ، لكن لماذا تريد فتح الجدول ؟ لماذا لا تعمل نموذج اخر على ذلك الجول وتفتحە ؟ اتفضل اليك كود لفتحە Docmd.openTable “NameTable”,acViewNormal2 points
-
السلام عليكم انظر هل هذه النتيجة مرضية لك ووافنا بالنتائج تمنياتي بالتوفيق ادارة محل1.rar ملاحظة هامة صافي المبيعات = اجمالي المبيعات - مرتجع المبيعات (وليس + مرتجع المبيعات) فالكمية التي قام العملاء بارجاعها الينا يجب خصمها وليس اضافتها الي المبيعات وكذلك بالنسبة للمشتريات2 points
-
تفضل اخي العزيز ملف لاحد الاخوة في الموقع اتمنى ان يكون المطلوب Access Import_ up.rar2 points
-
العامود D اجعله فارغاً من كل شيء نفذذ هذا الماكرو Sub tarheel22() Dim myrange1 As Range Set myrange1 = Sheets("Sheet1").Range("E3:G4") Sheets("Sheet1").Range("a3").CurrentRegion.Clear Sheets("Mydata").Range("A3:C500").AdvancedFilter _ xlFilterCopy, myrange1, Sheets("Sheet1").[a3] End Sub الملف مرفق Salim_222.xlsb2 points
-
1 point
-
واياكم اخى الفاضل فلم اقم بشىء يذكر والشكر لله ثم لاخواننا واساتذتنا الافاضل بارك الله فيهم بالنسبه للمراجعه فى نهايه الدوام وبعد مراجعه العميل والاتفاق يمكن عمل تعديل على السند بدل الحذف ويتم التعديل من قبل المراجع وليس مدخل البيان ويكون فى خانه للملاحظات ويتم كتابه جميع التعديلات التى تمت للايضاح وطباعه نسخ اخرى للحفظ والعميل وحتى بدون اظهار الملاحظات فيها هذا راى والافضل اذا كان ولابد من الحذف فلا يتم الحذ فعليا وانما يمكن ذياده نوع اخر فى نوع الحركه ملغى ولا يتم اظهاره لمدخل البيانات والمراجع يقوم بعمل الغاء لهذا السند و تعديل نوع الحركه لملغى مع تصفير القيم وتفريغ البيانات النصيه واضافه الملاحظات كذلك وارى ان الالغاء افضل والامر عائد لك تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق اجعلها بموضوع منفرد على ما اعتقد يمكن سحب البيانات آليا راجع الموضوع المثبت لاخى واستاذى الفاضل @صالح حمادي وان شاء الله تجد ما تريد بالتوفيق1 point
-
السلام عليكم ورحمة الله استخدم الكود التالى بعد وضعه فى حدث ThisWorkBook دبل كليك على الخلية A1 فى كل مرة Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Target.Address <> "$A$1" Then Exit Sub On Error GoTo 1: For i = 1 To Sheets.Count If ActiveSheet.CodeName = Sheets(i).CodeName Then Sheets(i + 1).Activate Exit For End If Next 1: Exit Sub End Sub1 point
-
اخى الفاضل امير كيف يتم حذف رقم 2 وتمت عليه نفس العمليات والعملاء معهم نسخ مطبوعه الحذف يتم للسجل الحالى واللذى تم الترجع عن تنفيذه اما ما تم فلا والله اعلى واعلم اما بالنسبه لداله DMax فكما تتقول معى 1,3,4 فهنا الداله ستاخذ اعلى رقم وهو 4 وتضيف 1 سيكون السند رقم 5 هنا لم نقم بعمليه اعاده الترقيم بتاتا وجرب احذف السجل رقم 1 بالمثال المعدل من الجدول ثم افتح النموذج وشوف ماذا سيعطيك هل سيعطيق رقم 1 ام 3 وقد قمت بالتجربه قبل رفع مشاركتى هذه والله اعلى واعلم وفى انتظار مشاركه اخوانى واساتذتنا الافاضل للمزيد من المعلومات والايضاح تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق1 point
-
اخي مهند لا شيء مستحيل مع برنامج اكسل هذه المعادلة في C5 واسحب نزولاً (يمكن تغير الرقم 7 الى ما تريد والنقطة الى ما تريد ايضاً مثلا * داخل الدالة REPT) =REPT(".",7)&VLOOKUP($I$1,ورقة1!$B$6:$E$27,ROWS($C$5:C5)+1,0)&REPT(".",7) الملف مرفق New_Book.xlsx1 point
-
وعليكم السلام اخى الفاضل امير سؤال واحد فى كل موضوع حفاظا على قوانين الموقع بالنسبه للسؤال الاول تم ظبط رقم السند تلقائى على قد ما عرفت عند الفتح وعند الاضافه عند الخروج ونوع الحركه خالى يتم حذف رقم السند الموجود بالنموذج لانه لم يتم حفظه لاعاده استخدامه مره اخرى اعذرنى لم افهم ماذا تقصد بحجز ارقام وحذف ارقام محجوزه احاول ما استطعت المساعده بما لدى من معرفه وما تعلمته من اخوانى واساتذتى جزاهم الله كل خير شوف المرفق ووافنا بالنتيجه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق boox.rar1 point
-
1 point
-
1 point
-
تفضل أخي Shell "mspaint.exe " & CurrentProject.Path & "\worker\" & [Worker] & ".jpg""", vbMaximizedFocus1 point
-
الحمدلله الذى بنعمته تتم الصالحات والشكر لله سبحانه وتعالى ثم لاخواننا واساتذتنا الذين تعلمنا ونتعلم منهم سوف امر على الموضوع الاخر باذن الله بالتوفيق ان شاء الله1 point
-
نعم أخي صدقت وصدق أستاذنا ومعلمنا أبوخليل قمت بالتعديل علي مرفق الأخ السائل وفقا لمراده رغم تحفظي علي طريقة العمل لعل لديه وجهة نظر لا نعلمها أما عن المرتجعات فبلغة المحاسبين هي قيد عكسي لعملية البيع أو الشراء بمعني: حساب المبيعات دائن بطبيعته (دائما يكون في الجانب الدائن) - فإن المرتجع المتعلق بالمبيعات لا بد أن يكون مدين وكذلك حساب المشتريات مدين بطبيعته (دائما يكون في الجانب المدين) - لذا لا بد أن تكون مرتجع المشتريات دائن وبلغة الأرقام فإن المعادلة لصافي المبيعات وصافي المشتريات تكون كالتالي: صافي المبيعات = اجمالي المبيعات - مرتجع المبيعات صافي المشتريات = اجمالي المشتريات - مرتجع المشتريات وهنا صورة لنموذج حـ/ المتاجرة الذي يوضح الفكرة بالأعلي1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
اشكرك استاذ خالد نعم جربت ان اجعل القيمة الافتراضية صفر ولا تعطى اي شئ بالحقل وجربت ايضا = iif IsNull(Sum([price_masrof];0) ولكنها تعطى ان ناقص اقواص1 point
-
اذا كنت تريد الاستيراد يتم من خلال الأكواد فلابد من اتباع الخطوتين الأوليين بالمشاركة السابقة ثم استخدم الكود التالي DoCmd.TransferSpreadsheet acImport, _ acSpreadsheetTypeExcel12, _ ' هنا تحدد رقم نسخة الاوفس لديك وفي الغالب ستجد النسخة تظهر لديك اتمتك عند كتابة الكود "StUpdatInfo", _ ' هنا تحدد اسم الجدول المراد الاستيراد اليه Me.txtPath, _ 'هنا تحدد مسار ملف الاكسل المراد استيراده True, _ 'هذا الخيار تحدد فيه ان كان ملف الاكسل لديك يحتوي علي أسماء للأعمدة أم لا "A1:Z10000" 'هنا تحدد نطاق البيانات داخل ملف الاكسل وهو اختياري ولكن أفضل تحديده بشكل شخصي حتي لا يتم استيراد حقول فارغة غير مرغوب بها ولا تنسي الخطوتين الأوليين تمنياتي بالتوفيق1 point
-
اخوانى الافاضل تعلمت من شيخنا الجليل / @ابوخليل ان المرتجعات ( ويلزم ان نحدد انها مرتجعات بيع ) تعتبر بمثابة مشتريات اى انها تضاف الى المشتريات وكانها شراء جديد ولذلك اعتقد انها تضاف الى المشتريات وليست المبيعات ، ممكن اكون مخطئ فلست بمتخصص بالمحاسبة وان مرتجعات الشراء تعتبر بمثابة مبيعات اى انها تطرح من المبيعات وكانها بيع جديد لذلك اعتقدت ان الموضوع يحتاج الى متخصصين محاسبة حتى تعم الفائدة1 point
-
السلام عليكم هناك عدة طرق لتحقيق ما تطلب هذه إحداها بناء على رغبتكم باستخدام الاستعلامات ملاحظة حولت حقل SAR من نص إلى رقم حولت حقل Date من نص إلى تاريخ R&R 2.accdb1 point
-
1 point
-
الاخ ميلاد طارق يجب اختيار الرقم من القائمة في الخلية( N1 ) شاهد المرفق Test_1.xls1 point
-
وعليكم السلام ورحمة الله وبركاته في حدث عند الخروج حدد الحقل الذي يريد الانتقال اليه Private Sub aa_Exit(Cancel As Integer) DoCmd.GoToControl "d" End Sub او الانتقال الى سجل جديد Private Sub aa_Exit(Cancel As Integer) DoCmd.GoToRecord , , acNewRec End Sub تحياتي1 point
-
أخي RAGABFAROUK لطالما نصحنا أساتذتا بهذا المنتدي الكريم بتقسيم البرنامج الي واجهات وجداول أي تكون النماذج والاستعلامان والتقارير بقاعدة بيانات مستقلة وتكون الجداول بقاعدة أخري ويتم الربط بينهما -- تفاديا لمثل هذه المشكلات وكذلك الاحتفاظ بالنسخة الأصل قبل الحفظ بصيغة الــ ACCDE وكذلك أخذ نسخة أحتياطية من البرنامج كل فترة زمنية قريبة يخفف كثيرا من الاضرار الناجمة عن هذا العطل وفي النهاية أسأل الله أن يجيرك في مصابك ويخلف عليك خيرا منه وأرجو أن يكون المرفق به شئ مما ترجو الحصول عليه فهذا كل ما استطعت انقاظه لك DR_ELLABBAD_fixed.rar1 point
-
انت استعملت الكود الذي يذكر لك المكرر في نفس الصفحة مرة واحدة كات يجب استعمال الكود الثاني اي الكود الموجود في الرد على الأخ (ابا يوسف) التي تحمل عنوان : في هذاه الحالة يلزم هذا الكود1 point
-
1 point
-
1 point
-
نعم يرجى توضيح الاسم المطلوب ، علما بانه فور التعديل ستحتاج الي الدخول بالاسم الجديد1 point
-
طريقتي في عمل الاستعلام الخاص بالنموذج الفرعي المخصص لعرض نتائج البحث وكلها تؤدي الغرض طريقة البحث في النموذج الفرعي2.rar1 point
-
حياكم الله أجمعين وأعتذر لانقطاعي والحمد لله ... مرفق المطلوب طريقة البحث في النموذج الفرعي.rar1 point