نجوم المشاركات
Popular Content
Showing content with the highest reputation on 16 نوف, 2020 in all areas
-
السلام عليكم 🙂 قمت بدمج دالة اخوي ابوخليل الى برنامجك 🙂 Private Sub Command44_Click() Dim reportName As String Dim fileName As String Dim criteria As String reportName = "r_buy" fileName = GetDesktop & "\" & "r_buy" & ".pdf" criteria = "masterid='" & masterid & "'" DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName DoCmd.Close acReport, reportName, acSaveNo End Sub Function GetDesktop() As String Dim oWSHShell As Object Set oWSHShell = CreateObject("WScript.Shell") GetDesktop = oWSHShell.SpecialFolders("Desktop") Set oWSHShell = Nothing End Function . جعفر3 points
-
تفضل لك ما تريد ... هذا فيديو تعليمى لطلبك مقدم من الأستاذة ساجدة العزاوى لها منا كل المحبة والإحترام ج89 زر امر على اليوزرفورم لفتح ملف اكسل ملف ورد ملف pdf ساجدة العزاوي open word excel userform vba3 points
-
جرب هذا الملف Company_Repprt.xlsm2 points
-
عليكم السلام لا يمكنني التعديل على المرفق هذه الدالة تستخرج مسار سطح المكتب لديك Function GetDesktop() As String Dim oWSHShell As Object Set oWSHShell = CreateObject("WScript.Shell") GetDesktop = oWSHShell.SpecialFolders("Desktop") Set oWSHShell = Nothing End Function2 points
-
بارك الله بك اخي علي ولاثراء الموضوع هذا الكود (بعمل في حال وجود فواصل عشرية "." ولا يتعاطى مع ما يوجد بين الارفام / +/ - /نصوص الخ....) Option Explicit Sub Extract_Number() Dim rgx As Object Dim My_Number As Object Dim ws As Worksheet Dim i%, x%, Ro%, My_Sum# Set rgx = CreateObject("VBScript.RegExp") Set ws = Worksheets("Sheet1") Ro = ws.Cells(Rows.Count, "F").End(3).Row ws.Range("D4").Resize(15, 2).ClearContents With rgx .Global = True: .Pattern = "(\d+\.?\d+)" For i = 4 To Ro My_Sum = 0 If .test(ws.Cells(i, "F")) Then Set My_Number = .Execute(ws.Cells(i, "F")) ws.Cells(i, 5) = My_Number.Count For x = 0 To My_Number.Count - 1 My_Sum = My_Sum + Val(My_Number.Item(x)) Next x End If Cells(i, 4) = My_Sum Next i End With End Sub الملف مرفق Taswiyat.xlsm2 points
-
وعليكم السلام تفضل انظر التعديل ملاحظة: تم تنزيل نموذج فرعي من رأس نموذج رئيسئ الى تفصيل نموذج رئيسي Documents.rar2 points
-
السلام عليكم 🙂 هذا المنتدى للتبادل العلمي ، حتى يستفيد منه الجميع ، وليس صاحب الموضوع / السؤال فقط 🙂 فيا ريت ان نضع الاجابة بالتفصيل في الرد (سواء الخطوات او الكود او صور من شاشة البرنامج) ، ولا نتوقف عند ارفاق المرفق الذي به الرد / الجواب ، والسبب هو ، حتى يستطيع الجميع رؤية الرد ومعرفته مباشرة ، دون اللجوء الى انزال المرفق وفهمه 🙂 نعم ، هذا عبء إضافي ، ولكن نتائجه ستكون مثمرة ان شاء الله 🙂 وتذكروا ، هذا مجرد طلب ورجاء ، وليس اجباري 🙂 شكرا جزيلا 🙂 جعفر1 point
-
السلام عليكم ورحمه الله وبركاته أقدم لكم هذا البرنامج وأرجو ان يحوذ أعجابكم ويساعد العاملين فى تكاليف المطاعم ..تحياتى للاستاذ هانى بدر ومن ساعدنى عليه اسم المستخدم /admin الباسورد / 27102003 Raspi Food Cost 1.xlsm1 point
-
انت هنا تجدد: اول 3 صفوف للتاريخ من 1/7/2020 الى 31/7/2020 وما ادراك ان العدد سيكون 3 شركات؟؟؟ ومن الصف 5 الى الصف 10 للتاريخ من 1/8/2020 الى 31/8/2020 وما ادراك ان العدد سيكون 6 شركات؟؟؟ ربما ينفع احد هذين الملفين (الرجاء ابلاغي ايهما تريد لا تقل الاول او الثّاني اريد تسمية الملف) Company_Repprt_ExPlicit.xlsm Hani.xlsm1 point
-
السلام عليكم 🙂 . ايش رايك في هذا النموذج ، بس النموذج الفرعي يأخذ وقت عند فتج النموذج !! . جعفر 1281.1.FRm_Refresh.accdb.zip
1 point -
كان يجب الأخذ بنصيحة الاستاذ مهند (ولكن حيث ان السؤال محدد ولا يستهلك وقتاً لارفاق مثال نموذج) جرب هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("E4:E5")) Is Nothing _ And Target.Count = 1 Then With Target Select Case True Case .Row = 4 .Offset(1) = vbNullString Case .Row = 5 .Offset(-1) = vbNullString End Select End With End If Application.EnableEvents = True End Sub الملف مرفق On_OFF.xlsm1 point
-
سبق وأن وجهتك الى المطلوب هنا ايضا الاخوة هنا طلبوا شرح وافي للبرنامج بمعنى انك تشرح عمل البرنامج وكأنك تعمل على الورق والدفاتر 1- البيانات التي يتم ادخالها على كافة العمليات .. 2- والنتائج المنتظرة يجب ان تنسى اكسل كليا ، اكسس سيتم عمله من الصفر1 point
-
اشكرك جدا استاذ على ربنا يرضى عنك يارب بارك الله فيك الف شكر لحضرتك جداااا1 point
-
السلام عليكم مستعد لعمل هذا البرنامج بشكل احترافى جدا1 point
-
فتحت الملف و للأسف ما فهمت شي ياليت تشرحي يكون افضل1 point
-
تفضل goto the page with pass1.xls1 point
-
طلب اخ cckills2010 ارجو عمل مشاركة جديدة لتجنب مخالفة قوانين المنتدى1 point
-
مشاركه مع اخى واستاذى العزيز @husamwahab جزاه الله خيرا حاجه بسيطه على قدى ع حسب ما فهمت قمت بعمل استعلام تحديث وتصفيه القيم على حسب التسلسل الذى تكتبه بالنموذج ثم نقوم باضافه 1 لهذه القيم المصفاه بعد كتابه القيمه بالتسلسل قم بالضغط على زر تحديث لتشغيل الاستعلام UPDATE Home SET Home.تسلسل = [تسلسل]+1 WHERE (((Home.تسلسل)>=[Forms]![نموذج1]![تسلسل])); قمت بالتجربه على جعل جرب ووافنا بالنتيجه بالتوفيق تجربه(2).accdb1 point
-
لا يوجد اي تعب استاذ ٌRayan Zakho واعتذر لكثرة تساؤلاتي لكن السبب هو للوصول لافضل حل يرضيك1 point
-
على حسب ما تراه في التقرير لما يكون في وضع "معاينة الطباعة" ، بعدد صفحاته 🙂 جعفر1 point
-
كان عليك تنفيذ نصيحة استاذنا الكبير سليم .. ولكن بعد اذن استاذ سليم طبعاً يمكنك استخدام هذه الدالة المعرفة لذلك لعد الأرقام داخل الخلية الواحدة Function Mylen(Z As Range) Dim C As Long, Y As Long, A As Long, B As Variant A = 0 For C = 1 To Len(Z) B = Mid(Z, C, 1) For Y = 0 To 9 If Y = B Then A = A + 1 End If Next Next Mylen = A End Function ووضع هذه المعادلة بداية من الخلية D4 سحباً للأسفل =Mylen(F4) أو يمكنك بهذه المعادلة العادية .. وتلك الطريقتين موجودة بالملف =SUM(LEN(F4)-LEN(SUBSTITUTE(F4,{1,2,3,4,5,6,7,8,9,0},))) تسويات - 1.xlsm1 point
-
ماذا تريد من الجدول الفارغ الذي رفعته رجاء املأه بيانات والتنائج التي تتوقعها (يمكن يدوياً ريثما نجد ما تريد ان يقوم به البرنامج اوتوماتيكياً)1 point
-
1-لقد تم تنبيهك الى وجوب رفع ملف فيه الشرح الكافي 2- حبث انك عضو جدبد في المنتدى فأهلاً وسهلاً بك 3-لكن في المرة المقبلة سوف تحذف اي مشاركة بدون ملف مرفق جرب هذا الكود Option Explicit Rem code for Extact Number_From_Text Rem Created By Salim Hasbaya On 14/11/2020 Sub Extract_Number_From_Text() Dim rgx As Object Dim My_Number As Object Dim ws As Worksheet Dim i%, m%, k%, x%, Ro% Set rgx = CreateObject("VBScript.RegExp") Set ws = Worksheets("Salim") Ro = ws.Cells(Rows.Count, 1).End(3).Row With ws.Range("C1").Resize(Ro, 20) .ClearContents .Interior.ColorIndex = xlNone End With m = 1: k = 4 With rgx .Global = True: .Pattern = "(\d+)" For i = 1 To Ro If .test(ws.Cells(i, 1)) Then Set My_Number = .Execute(ws.Cells(i, 1)) ws.Cells(m, 3) = My_Number.Count & " Numbers" ws.Cells(m, 3).Interior.ColorIndex = 6 For x = 0 To My_Number.Count - 1 ws.Cells(m, k).Offset(, x) = Val(My_Number.Item(x)) Next x End If m = m + 1 Next i End With End Sub الملف مرفق فقط اضغط الزر Run Please Extract_Number_From_Text.xlsm1 point
-
1. كيف تقوم بربط الاكسس بعدة محافظات ؟ في حال ان جميع هذه المحافظات تخزن البيانات في نفس قاعدة البيانات "الاكسس" ، اي انها مشتركة بينهم بطريقة ما ، فنعم الافضل لك الانتقال الى SQL Server ، لأن الاكسس معمول لشبكة صغيرة متصلة بأسلاك الشبكة ، ولا يكون الاتصال عن طريق wifi ولا الانترنت ، ولكن وقبل الانتقال الى SQL Server ، قم بتغيير القرص الصلب الى SSD سريع وشوف اذا السرعة اصبحت معقولة ، فهذا الخيار هو الاسرع والاقل تكلفة (وقتا وقيمةً) ، وانا اقول لك هذا من تجربة ، في عمل مثل العمل الذي تقوم به شركتك ، بحوالي 10-15 مستخدم ، ولم يكن هنا اي بطئ في البرنامج ، 2. اذا لم تغير الاستعلامات الى stored procedures ، فلن تستفيد من سرعة الـ SQL Server ، وقد يكون البرنامج ابطأ ، 3. هذا صحيح ، حتى ولو تم وضع الاكسس على السيرفر ، فسيكون في مجلد مشاركة كذلك ، ولكن السيرفر الحقيقي فيه قوة في اجهزته وطريقة عمل التخزين Raid ويكون المعالج CPU بطاقة كبيرة وبه يتفرغ اكثر للبرامج ، والمستخدمين. لا تفهم من كلامي اني احاول احباطك من الانتقال الى SQL Server ، ولكني لا اريدك ان تعتقد بأنك ممكن تنتقل بسهوله وكل شيء سيكون مثل ما حلمت به !! نصيحتي هو ان يواصل المستخدمين العمل على الاكسس (بعد تغيير قرص الجداول الى SSD) ، وتبدأ العمل على برنامجك على SQL Server ، وتحل المشاكل اللي تظهر لك ، الى ان تصل الى مرحلة تكون راضي عنها ، وخلالها تكون قد تعرفت على طريقة عمل SQL Server والسيرفر 🙂 جعفر1 point
-
أرجو المساعده والشرح كيفيه العمل على برنامج اكسيس الذي يعمل بالباركود لانى أول مره اعمل عليه وهل لو أتاني منتج أو صنف بدون استيكر باركود كيف يتم اضافه ف المخزن1 point
-
بارك الله فيك اخ Shivan Rekany شكرا لك انت معلم1 point
-
مشكور1 point
-
مثال رائع1 point
-
عندى قاعدة بيانات access وأريد العمل بها على جهاز الباركود بحيث ان الجهاز يقرأ باركود المنتج ويتم تسجيله فى الحقل وتظهر لى بيانات هذا المنتج ممكن المساعدة1 point
-
جزاك الله كل خير اخي ابو خليل ولكن لي سؤال اخير عند تعدد الحقول هل يتم طباعة الرقم في الحقل المركز عليه ؟1 point
-
1,064 تنزيل
هذا المثال يوضح طريقتين لاستخراج بيانات مختارة من ملف اكسيل الي ملف نص و فتحه لعرض البيانات و هنا فى المثال المرفق سنستخرج البيانات من الثلاثة خلاية الملونة باللون الاصفر و هي الخلايا B3,C3,D3 و تم اضافة عدة اسطر كمقدمة توضح كيفية كتابة نص عام و ادراج اسم ملف المصدر ، قبل تسجيل بيانات الخلايا الثلاثة فى الملف النصي و لا تنسي تغيير مسار الملف فى الكود لما يناسب جهازك قبل التشغيل هنا فى الكود و المثال يتم انشاء الملف النصي فى المسار T:\ و قم بتعديله اولا لما يناسبك و المثال فى الملف المرفق الكود الاول باستخدام امر Print Sub PrinttoFile() a1 = Cells(3, 2) a2 = Cells(3, 3) a3 = Cells(3, 4) Dim Filename As String Filename = "T:\testfile.txt" Open Filename For Output As #1 Print #1, "*********** www.officena.net *****************" Print #1, "Example to Write Values from Cells into a text file" Print #1, "Source : " & ActiveWorkbook.FullName & " : " Print #1, "*********** www.officena.net *****************" Print #1, Print #1, "Here are the Values: " Print #1, Print #1, a1 Print #1, a2 Print #1, a3 Close #1 Dim x x = Shell("notepad.exe " & Filename, 1) End Sub الكود الثاني باستخدام طريقة WriteLine Sub WriteLine() Dim fs, S, A, Filename Filename = "T:\testfile.txt" Set fs = CreateObject("Scripting.FileSystemObject") Set A = fs.CreateTextFile(Filename, True) A.WriteLine "*********** www.officena.net *****************" A.WriteLine "Write 3 cells values into a File " A.WriteLine "Source : " & ActiveWorkbook.FullName & " : " A.WriteLine "*********** www.officena.net *****************" A.WriteLine A.WriteLine "Here are the Values: " A.WriteLine A.WriteLine Cells(3, 2) A.WriteLine Cells(3, 3) A.WriteLine Cells(3, 4) A.Close Dim x x = Shell("notepad.exe " & Filename, 1) End Sub1 point -
في المرفات خطوط الباركود والآداة ومثال اكسس ومثال وورد لطباعة الملصقات خارج اكسس ومفكرة تعليمات زيادة على الملاحظات والتعليمات في ثنايا الامثلة الموضوع قد اشبع بحثا وطرحا في المنتديات المتخصصة لمن اراد الاستزادة Barcode.rar1 point
-
هلا بمعلمنا الجليل حياك الله قمت بنسخ الدالة واستدعائها مع الزر الذى به الكود ولكنه يحفظ بجانب قاعدة البيانات ايضا بارك الله فيك وجزاك كل خير0 points
-
ليس هناك اكوادا بل هناك خطوط وأداة يتم اضافتها للبرنامج وقد قرأت هنا لبعض الأخوة طريقة سهلة وجميلة واقتصادية عن طريق الوورد وبالطابعة الافتراضية العادية والورق العادي لطباعة الملصقات ’ فلا بد من الاشارة اليها عند الكتابة عن هذا الموضوع ولعلي استطيع جمع ما لدي من امثلة وملحقات فأسأل الله العون في ذلك . .0 points
