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

السلام عليكم و رحمة الله جرب هذا الكود Sub ConTxtNum() Dim ws As Worksheet, C As Range Dim i As Long, j As Long Dim Arr, Tmp, Txt As String Set ws = Sheets("Sheet1") Application.ScreenUpdating = False For Each C In ws.Range("K6:K" & ws.Range("K" & Rows.Count).End(3).Row) For i = 1 To Len(C) Txt = Mid(C, i, 1) If Txt Like "[0-9]" Or Txt = "0" Then Arr = Arr & Txt Else Arr = Arr & " " End If Next Arr = Application.WorksheetFunction.Trim(Arr) Tmp = Split(Arr, " ") For j = 0 To UBound(Tmp) C.Offset(0, j + 2) = Tmp(j) Arr = "" Next Next Application.ScreenUpdating = True End Sub

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

اظن انك لم تعمل على sql server لان الاكواد هي اصلا مسحوبة من قاعدة اكسيس وانتهى الامر وكذلك بالنسبة لمعلمات الاستعلام فلا تعديل على هاتان النقطتين اما بالنسبة للحصول على نسخة احتياطية فهي عبارة عم عملية لا تستغرق 30 ثانية وامن من الاكسيس -كان عندي استعلام sql server لاظهار ميزان المراجعة بنفس ترتيب شجرة الحسابات قمت بالاستعانة ببعض الخبراء بتحويله الى كود اكسيس وانتهى الامر فالاصل انت لست بحاجة الى استعلامات من sql server الا اذا كان لديك استعلام من sql server ,ولا تستطيع عمل مثله في اكسيس فهناك خيار في اكسيس يسحب هذا الاتسعلام من sql server ان شاء الله ساقوم بعمل فيديو باسهل الطرق لنحويل قاعدة البيانات الى sql server واخذ النسخ الاحتياطية حسب وقت فراغي

جرب الان محاولة لتصحيح الاستعلام مصدر الجمع واعتذر عن المراجعة لانشغالي جملة الاستعلام ⬇️ SELECT ras.itm, ras.ch, ras.com, ras.dat, nas.wared, nas.sader, nas.omla, nas.amil, ras.[not], nas.nott FROM ras INNER JOIN nas ON ras.ch = nas.ch; الملف مرفق hawalat(2).accdb

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

استخدام مربعات القوائم المنسدلة في الجداول يسبب مثل هذه المشاكل مثلا انت تكتب المعيار دولار بينما بسبب استخدام القوام في الجدول اكسس يتعامل مع المعرف وهو هنا رقم 1 لذا ينتج الخطأ وكذلك اسم الشركة المعييار لا يطابق البحث ويتطلب اضافة معرفة الشركة للنموذج لتكون كتابة الدالة ⬇️ =Nz(DSum("[wared]";"all";"[omla]=1 " & " And [com]=" & [cco] & "");0) الملف مرفق مع عدم الاقتناع hawalat(2).accdb

تفضل اخي لاكن الترتيب حسب اوراق العمل تم اضافة الاكواد التالية كود لترتيب التاريخ من الاصغر للاكبر يتم تفعيله تلقائيا عند الدخول على اليوزفورم. Sub MH_sort() Dim ws As Worksheet Application.ScreenUpdating = False Dim LR As Long For Each ws In ThisWorkbook.Worksheets LR = ws.Range("b" & ws.Rows.Count).End(xlUp).Row If (ws.Name <> "Database") Then With ws.Sort .SortFields.Clear .SortFields.Add2 Key:=ws.Range("e5"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .SetRange ws.Range("b4:L" & LR) .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End If Next ws Sheets("المبيعات").Activate Range("A1").Select وهدا لالغاء الفراغ الموجود في ComboBox1 Private Sub UserForm_Initialize() Dim I As Integer With Sheets("Database") For r = 2 To .Range("c" & .Rows.Count).End(xlUp).Row If .Range("c" & r) <> "" Then ComboBox1.AddItem .Range("c" & r) End If Next r End With End Sub AAAAA.xlsm

وعليكم السلام تفضل أخي أبو عبدالله بالتوفيق Dcount.accdb

السلام عليكم استغرب كثيرا عندما يكون الشخص لديه اكثر من كمبيوتر يشبك على البرنامج لا يقوم بالتحويل الى sql server صدقوني العملية سهلة جدا ومجانية وافضل الف مرة من الشبك على مشاركة قاعدة البيانات اظن ان عدم التحويل يعود لسبب نفسي وهو عدم الرغبة في خوض تجربة جديدة او الخوف من الفشل او عدم الرغبة في مواجهة المشاكل

تفضل اخي مع اضافة كود زر الخروج AAAAA(1).xlsm

ننتظرك بلهفة 👍🏼🙂 وحبذا لو تتطرق لموضوع كيفية نقل قاعدة البيانات وتنصيبها على السيرفر في جهاز العميل أو المستخدم والاتصال بها .. وكذلك قضية كيفية التعامل مع المرفقات والملفات التي يتم تخزينها في نفس مجلد قاعدة البيانات .. كيف يتم تحديد المسار وكيف يتم نسخ الملفات الى مسار القاعدة ؟ وهل هناك طريقة لتخزين الملفات داخل قاعدة ال SQL ؟

مشاركه معا اخى واستاذى ووالدى العزيز خالد جزاه الله عنا كل خير ارى ان هذه المشاركه هى الصحيحه من واقع البيانات والناتج مظبوط ولا يوجد تكرار والرصيد 3000 لزمرد لان هناك عمليتان وارد بتاريخ 24 و 27 /9 بنفس المبلغ 1500 هذا والله اعلى واعلم

وعليكم السلام ورحمه الله وبركاته مشتركه مع اخى @سامي الحداد جزاه الله عنا كل خير وانا ايضا تظهر عندى من غير ريفرش ومرفق تعديل ع تعديل اخى سامى لعله يكون ما يريد @ابو عبد الله العراقي بالتوفيق Dcount(1).accdb

السلام عليكم ورحمة الله وبركاته ..جرب أخي هل هذا هو المطلوب AAAAA(1).xlsm

وعليكم السلام يمكنك الاطلاع على الموضوع التالي لعلك تستفيد منه من هنا برجاء أن تستفيد أو من هنا بالتوفيق

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

هل هذا هو المطلوب .................. __شئون الطلبة_Barna (1).rar

وعليكم السلام الباركود يجب ان يعتمد على رقم فريد للموظف مثلا ( رقم هوية أو رقم وظيفي أو ...... ) لم اجد في الجدول لديك رقم فريد ؟؟؟؟؟

جزيت خيراً اخ محمد حسن ..جعلها الله في ميزان حسناتك

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

جرب هذه WhatsappMessageSender.accdb

جزاك الله عنا كل خير

تفضل اخي جرب 'Option Explicit Private Sub ComboBox1_Change() Sheet2.Range("s1") = ComboBox1.Text TextBox1.Value = Sheets("المبيعات").Range("R1").Value Dim a Dim i As Long Me.ComboBox1.Text = StrConv(Me.ComboBox1.Text, vbProperCase) Me.ListBox1.Clear For Each ws In ActiveWorkbook.Sheets With ws For i = 5 To Application.WorksheetFunction.CountA(.Range("b:b")) a = Len(Me.ComboBox1.Text) If Left(.Cells(i, 8).Value, a) = Left(Me.ComboBox1.Text, a) Then Me.ListBox1.AddItem .Cells(i, 1).Value Me.ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(i, 2).Value Me.ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(i, 3).Value Me.ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(i, 5).Value Me.ListBox1.List(ListBox1.ListCount - 1, 4) = .Cells(i, 6).Value Me.ListBox1.List(ListBox1.ListCount - 1, 5) = .Cells(i, 8).Value Me.ListBox1.List(ListBox1.ListCount - 1, 6) = .Cells(i, 9).Value End If Next i End With Next ws End Sub '''''''''''''''''''' Private Sub CommandButton1_Click() Dim z As Control For Each z In UserForm1.Controls If TypeName(z) = "TextBox" Then z.Value = "" ListBox1.Clear End If Next z End Sub '''''''''''''''''''' Private Sub CommandButton2_Click() Dim ctl As Control For Each ctl In Me.Controls Select Case TypeName(ctl) Case "ComboBox", "TextBox" ctl.Text = "" End Select Next ctl End Sub '''''''''''''''''''' Private Sub Exitbutton_Click() UserForm1.Hide End Sub AAAAA.xlsm

الطريقة السريعة وهي جعل جدول حفظ الطابعات في قاعدة النماذج .....

=IF(IF(NB.SI($B$1:B2;B2)=1;MAX($A1:A$1)+1;"")<>"";SI(NB.SI($B$1:B2;B2)=1;MAX($A1:A$1)+1;"");INDEX($A$1:A1;EQUIV(B2;$B$1:B2;0))) تفضل جرب اخي OfficinaExample(3).xlsx

طيب تفضل ... التعديلات ::::::: 1- اضفنا حق ch في الجدول 2- عملنا استعلام بالسجلات المختارة 3- ادرجنا زر وبه الامر التالي ::::: 4- جرب المرفق .. Dim DTPath As String DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\salim07- " & Format(Date, "dd-mm-yyyy") & ".xlsx" DoCmd.OutputTo acOutputQuery, "استعلام1", acFormatXLSX, DTPath, False MsgBox "لقد تم تصدير البيانات بنجاح" TEST 12.accdb

ممكن تشوف التعديل التالى TEST 12.rar

تفضل بسيطة يمكنك التواصل مع الأستاذ خالد صابر .مصمم البرنامج المشروح بالفيديو وسينفذ لك طلبك ان شاء الله بمقابل مادى وللتواصل معه عبر الإميل :khaledsaber2030@gmail.com واتس : 00201007630611

تفضل بسيطة يمكنك التواصل مع الأستاذ خالد صابر .مصمم البرنامج المشروح بالفيديو وسينفذ لك طلبك ان شاء الله وللتواصل معه عبر الإميل :khaledsaber2030@gmail.com واتس : 00201007630611

وعليكم السلام-تفضل لك ما طلبت trait office1.xlsm

قمت بتجربة الملف بشكل بشكل سريع أخي أحمد @احمد الفلاحجي ,, ماذا عساي أن أقول لك ؟ سوى أن أدعوا لك (( أسأل الله أن يبشرك ويبشر والديك وذريتك بالجنة الفردوس الأعلى ,, وأن يرزقك السعادة الذي ترجوها من الله يوم أن تلقاه .. وأن يسعدك في الدنياء والأخرة )) .. كما أسعدتني بارك الله فيك .. وشكرا على مجهودك الرائع

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

amarhowari ..انتبه من فضلك فالكود يعمل بكل كفاءة ..بارك الله فيك استاذ ابراهيم ..بعد اذن أستاذنا ابراهيم هذا هو الكود بعد وضعه بالملف وشوف النتيجة بنفسك فهذا يكفى !!!! شيتات.xlsm

يمكنك ذلك بهذه المعادلة =INDEX($C$17:$R$24,MATCH($F$5,$B$17:$B$24,0),MATCH($J$5,$C$15:$R$15,0)) 1اسعار العملات.xlsx

جزاك الله خسر الثواب وأكرمك الله وأحسن الله اليك

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

بارك الله فيك استاذ ماجد وزادك الله من فضله

هذا ملفك بعد التطبيق New Microsoft Excel Worksheet.xlsb

اهلا وسهلا بك اخ كريم فى منتدانا تفضل هذان ملفان اختر منهما ما تريد برنامج مبيعات للحوفي.xlsx مخازن (1).xlsx

تفضل اخى الكريم لمعرفة المخزون المتبقي.xlsx مخازن (1).xlsx

وعليكم السلام-أهلا وسهلا بك بين اخوانك فى منتدانا الكريم وكل عام وانتم بخير ..تفضل استاذى الكريم لك ما طلبت بطريقتين-اختر منهما ما تريد my work-1.xlsx

تمام جرب هذا Book1-2.xls.xlsx

تفضل اخى الكريم Book1-1.xls.xlsx

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

بعد اذن الأستاذ شريف MAXIF-1.xlsx

تفضل استاذى الفاضل تحيل_النتيجة_تيرم_ثان_-_العبور_الابتدائية_بخفرع___2018.xls

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

تفضل استاذى الكريم تحيل_النتيجة_تيرم_ثان_-_العبور_الابتدائية_بخفرع___2018.xls