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

كيف يمكن تعبئة جدول مرتيب ابجديا فقط من خلال الكتابة في الصف رقم 2 للمزيد انظر الى هذا الملف WRITE_JUST IN ROW_2.xlsm

صمم الاستغلامات اولا ومن محرر الاكواد انظر اين تريد وضع الحدث الاتى ومتى DoCmd.SetWarnings False DoCmd.OpenQuery "اكتب هنا اسم الاستعلام الاول" DoCmd.OpenQuery "اكتب هنا اسم الاستعلام الثانى" DoCmd.SetWarnings False

وعليكم السلام اخى الفاضل فضلا لا امرا يجب ارفاق ملف بعد ذلك مع اى استفسار لسهوله العمل ده كود من برنامجى للتوضيح DoCmd.SetWarnings False 'الحاق السجل اللى عليه التركيز ثم حذفه AutoNum.SetFocus DoCmd.RunSQL "INSERT INTO TDelASEEDB ( ID, AutoNum, ZCustomerID, [In], Out, Eladafy, ZDate, Tel, Mlahzat ) " & vbCrLf & _ "SELECT RASEEDB.ID, RASEEDB.AutoNum, RASEEDB.ZCustomerID, RASEEDB.[In], RASEEDB.Out, RASEEDB.Eladafy, RASEEDB.ZDate, RASEEDB.Tel, RASEEDB.Mlahzat " & vbCrLf & _ "FROM RASEEDB " & vbCrLf & _ "WHERE (((RASEEDB.AutoNum)=[forms]![FORMB]![AutoNum]) AND ((RASEEDB.ZCustomerID)=[forms]![FORMB]![CusName]));" 'حذف DoCmd.RunSQL "DELETE RASEEDB.ID, RASEEDB.AutoNum, RASEEDB.ZCustomerID, RASEEDB.[In], RASEEDB.Out, RASEEDB.Eladafy, RASEEDB.ZDate, RASEEDB.Tel, RASEEDB.Mlahzat" & vbCrLf & _ "FROM RASEEDB " & vbCrLf & _ "WHERE (((RASEEDB.AutoNum)=[forms]![FORMB]![AutoNum]) AND ((RASEEDB.ZCustomerID)=[forms]![FORMB]![CusName]));" DoCmd.SetWarnings True تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

ومشاركة مع أخي الحبيب الأستاذ @Khalf اضع بين اياديكم هذا العمل المتواضع العمل في صمت بدون حتى فتح تطبيق الإكسل JU_ إستيراد شيت اكسل وتصدير حقل واحد.zip

السلام عليكم و رحمة الله و بركاته المرفق مثال يحتوي على أكواد مهمة / منقول من موقع أجنبي / قد يحتاجها أحد الزملاء أو الاساتذة لتصميم برامجهم أسأل الله لي و لكم التوفيق و السداد MoveForm&Control_v7.3.accdb

و اياكم أستاذي الفاضل @أحمد الفلاحجى ... أحبك في الله

جزاك الله خيرا اخى محمد على المثال

شاهد المرفق تنزيل

بارك الله فيك استاذ حسين وبعد اذن حضرتك ولإثراء الموضوع ,يمكنك ايضا استخدام هذا الكود فى حدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("c4")) Is Nothing Then For Each opb In ActiveSheet.OptionButtons If opb.Caption = [C4].Value Then opb.Value = 1 opb.Interior.Color = RGB(255, 204, 153) Else If opb.Caption <> [C4].Value Then opb.Interior.Color = xlNone End If Next opb End If End Sub ربط القائمة المنسدلة مع زر الاوبشن.xlsm

ALL_data.xlsm

اذا كنت تريدها عبر الماكرو اليك الملف aver_by_choise_new.xlsm

بعد كوب الشاي الرائع والنظر الى الأفكار والتحليل للمرفق مع الاخذ في الاعتبار هذه الملاحظة ومع الاطلاع على الموضوع تم بحمد الله تعالى تم الوصول الى هذه النتيجة اتركم مع التجربة على اى ملف إكسل مع انتظار آرائكم Ju_ Import Frome Excel File.zip

تفضل لك ما طلبت واعلم ان المعادلة ليس بها أخطاء ولكن المشكلة من عندك عند تنفيذ المعادلة .... فهذه معادلة صفيف فلابد من الضغط على Ctrol+Shift+Enter وليس Enter فقط كباقى المعادلات تكاليف عملاء1.xlsx

وعليكم السلام-اهلا بك بالمنتدى تفضل لك ما طلبت بارك الله فيك اخى الكريم بالنسبة لكيفية وضع التاريخ والوقت , تم عمل كود لذلك حتى لا يتغير .... كل ما عليك هو تقوم بعمل كليك يمين على اسم الصفحة VisitDetails ثم بعد ذلك تختار View Code وبعد كده تقوم بلصق هذا الكود فى النافذة التى ظهرت لك Private Sub Worksheet_Change(ByVal Target As Range) n = Now If Target.Column = 1 Then If Target = "" Then Cells(Target.Row, Target.Column + 2) = "" Exit Sub ElseIf Target <> "" Then Cells(Target.Row, Target.Column + 2) = Now End If End If End Sub أما بالنسبة للعمود الثانى B الخاص بالترقيم فتم فقط استعمال ووضع هذه المعادلة بداية من الخلية B11 والسحب للأسفل =IF(A11="","",SUBTOTAL(3,$A$11:A11)) وشكرا لك Date & Timing.xlsm

لمن يعاني من ترتيب المخزن وجرده ويريد برمجه بسيطه تنظم مخزنه هذا هو الحل برنامج إدارة مخازن بسيط جداً معتمد علي الأكسيل وقد جمع كم هائل من المعادلات المعده مسبقاً حتي يكفي الغرض منه فهو يحتوي علي صفحة الأصناف والكميات وصفحة لحركة المخزن ككل .وفواتير المبيعات وكتابة الفواتير وتصديرها لصفحة فواتير المبيعات شرح مبسط للبرنامج 1. بعد تحميل البرنامج وفك الضغط عنه بستخدام أي برنامج فك ضغط نجد ملف به البرنامج وملف به باسورد البرنامج عند فتح البرنامج أول مره بيطلب تفعيل ميزة الماكرو ** تنبيه: الماكرو تفعيله لا يضر الجهاز طالما الملف من مكان موثوق .واذا لم تفعله لاتقلق فسوف يعمل البرنامج بشكل طبيعي غير أنه سوف تجد صعوبه في استخدام بعض مزايا البرنامج صورة توضيحية: 2. بعد تفعيل الماكرو يغلق برنامج الاكسيل ويفتح مره اخرى علي صفحة حماية البرنامج ويتم فيها ادخال كلمة السر المدرجة مع .ملف البرنامج صورة توضيحية: 3. بعد كتابة كلمة السر والدخول علي البرنامج بتظهر الصفحة الرئيسية اللي بتتكون من عده أقسام 1. الأصناف والكميات 2. حركة المخزن 3. المبيعات (فواتير المبيعات بعد ادخالها) 4. كتابة الفواتير 5. الخروج من البرنامج شرح الأقسام القسم الأول: الأصناف والكميات: يتضمن هذا القسم الأصناف حيث يتم تكويد الصنف ووضع اسم الصنف في الخانة التالية ليه وسعر بيع الصنف وباقي الصفحة يعمل اتوماتيك مع عمليات الادخال التي تقوم بها صورة توضيحية: *** نجد في الاعلي ازارا التنقل داخل البرنامج احصائيات حول الاصناف كمية الأصناف من كمية الوارد والمنصرف داخل المخزن تنبيه: هناك فلتر علي الصنف واسم الصنف حتي نتمكن من تحديد صنف معين ومعرفة الوارد والمنصرف من ذلك الصنف وكلمة سر فك الضغط هي f7men Stores_Management_V3.1-برنامج_اكسيل_إدارة_المخازن_الإصدار_3.1.rar

مش فاهم ازاى ظهر عندك كده ولما انا حملته جه سليم كما تريد عموما فيه الملف ثانى 222222.rar

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

السلام عليكم ورحمة الله ضع الكود الاول فى موديول عادى Sub test() Dim sp As Shape Dim SN As String, SR As String SR = Sheet2.Range("B2").Text For Each sp In Sheet2.Shapes If sp.AutoShapeType = msoShapeHeart Then SN = sp.TextFrame.Characters.Text sp.Visible = False If SN Like "*" & SR & "*" Then sp.Visible = True Else sp.Visible = False End If End If 'Exit For Next End Sub وضع الكود الاخر فى حدث الورقة 2 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$B$2" Then Exit Sub Call test End Sub

السلام عليكم اتمنى يكون المطلوب تحياتي

تفضل أخي تم تعديل حتى على زرين Back و مسح، حيث زر Back يمسح آخر رقم المدخل و زر مسح يمسح مربع نص بالكامل number form to form.accdb

السلام عليكم في المرفق وضعت طريقتين باستخدام: 1- الاستعلام 2- باستخدام جدول المجاميع. أرجو أن تجد بهما بغيتك، في حال لم تجد مطلبك بعد. ملاحظة في حال رغبتكم باستخدام جدول المجاميع ينبغي لحظ حالة تعديل الإيصالات - لم يتضمنها مرفقكم -. برنامج القرض مجاميع.accdb

هذا تعدل بسيط على طريقة الأستاذ @صلاح جبر zxc (1).accdb

عسي ان يكون هذا مرادك ومن فضلك مستقبلا ارفق قاعدتك للتعديل عليها اسهل Ju_ فصل المنازل العشرية بشرط.accdb

ربنا يبارك فيكم وعلى والديكم ويبارك فى علمكم هذا هو المطلوب بالضبط

في هذا الملف تتحدث البيانات كلما فتحت صفحة Archive ولا لزوم للضغط على الزر ALL_data_auto.xlsm

مهما تزايد عد الصفحات الماكرو ياخذها كلها وأي زبون زاد او نقص في اي صفحة يتم التعديل على البيان النهائي جرب ان تزيد ععد الصفحات وادراج زبائن جديدة او قديمة (لكن ابتداء من الخلية B3) من كل صفحة مع الاحتفاظ بعنوان للجدول (الصف الأول) ونفذ الماكرو بالمعادلات من سابع المستحيلات فعل ما تريد

تستطيع الغاء زر التكبير والتصغير والإغلاق من خصائص النموذج ( تنسيق _ زر التصغير ( لا ) زر التكبير ( لا ) وكذلك الاغلاق ) ولا يمنع ان يكون هناك كود لعل الاخوة في المنتدى يدلون دلوهم

الحمد لله ... وجزى الله الإخوة كل خير .. بالتوفيق اخي الفاضل

جزاك الله خيرا اخى خلف

اخى الحبيب Khalf اشكرك جدا جدا جدا تم عمل المطلوب بنجاح جزاك الله خيرا ..... سوف يساعدنى الملف جدا جدا فى عملى بجد اشكرك جدا وجعله الله فى ميزان حسناتك

مرزق ياعم 3 اساتذه مره واحده @خالد سيسكو و @ابا جودى و @kha9009lid جزاكم الله خيرا اخوانى واساتذتى الافاضل تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

السلام عليكم يبدو أنكم لم تطلعوا على المرفق لذا أعيد رفعه للتوضيح بعد أن تستورد البيانات من ملف الإكسل الذي اخترته وذلك بالضغط على زر استيراد قم بتعديل بعض البيانات في عمود الرواتب قم اضغط زر تصدير سيقوم البرنامج بفتح ملف الإكسل الذي استوردت منه ويقوم بلصق البيانات فيه ما عليك ثم حفظه و إغلاقه الكود لا يصنع ملفاً جديداً بل يعيد فتح الملف القديم و النسخ على عمود الرواتب ExportImportExcel.accdb

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

وعليكم السلام اخى احمد جربها واخبرنا بالنتيجه Fix(100*[x])/100 X = اسم الحقل تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

حتى هذه اللحظة يظهر عندي 70 تحميل للملف كيف لاتستطيع تحميله لا افهم (ربما المشكلة عندك)

جرب هذا الملف aver_by_choise.xlsx

عن طريق البحث والاستبدال هكذا

السلام عليكم تفضل اخي العزيز / عند وجود بيانات مكررة بالجدول فان الاستعلام لايظهرها على سبيل المثال (حقل الاسم الكامل ) موجود مكرر بالجدول ولايتم اظهاره بالاستعلام المعيار موجود في جملة SQL 'تستخدم العبارة DISTINCT للحصول على قيمٍ فريدةٍ غير مكررة، وغالبًا ما تستخدم في استعلام SELECT للحصول على سجلات لا تتكرر القيم فيما بينها، إذ يصبح الاستعلام بالشكل الآتي: SELECT DISTINCT [الاسم الكامل] FROM table1; اتمنى هذا هو طلبك حسب مافهمت من سؤالك التكرار-2.rar

وعليكم السلام-لا يمكن هذا الا بهذه المعادلة =IF(OR(TRUNC(A60-R60,2)-TRUNC(A60-R60,1)>=0.05,TRUNC(A60-R60,-1)-TRUNC(A60-R60,0)>=0.5),TRUNC(A60-R60,0)+1,TRUNC(A60-R60,0)) abc1.xlsx

السلام عليكم ورحمة الله اخي العزيز حاولت ان اعدل على ملفك وتوجد كثير من رسائل الخطاء ولهذا لم اعدل عليه 🙂 عملت قاعدة بيانات صغيرة عملها كتالي عند الدخول الى جدول الاصناف ستجد ثلاث اصناف كتجربة ويحتوي الجدول على اسم الصنف رقم الصنف السعر الخ.. الفواتير لا ادري لماذا قمت بعملة !! لكن لعله يفيدك في البيانات ثالث جدول وهو معالج الفواتير عند الدخول على نموذج الفواتير وقمت بتعبئة البيانات في النموذج الفرعي رقم الصنف 1 سيقوم بجلب كافة بيانات الصنف من جدول الاصناف عنما تقوم بتغيير السعر في جدول الاصناف الى سعر جديد فلن تتاثر الحركة السابقة وستحتفظ بكافة البيانات السابقة وفي الجديد سيتغير السعر تلقائيا ارجو ان يكون هذا مرادك تحياتي فاتورة.rar

وعليكم السلام-فقط يمكنك استخدام هذا الكود بحدث الصفحة وكلمة السر عند الحاجة هى 123 Private Sub Worksheet_Change(ByVal Target As Range) Dim xRg As Range On Error Resume Next Set xRg = Intersect(Range("C6:G8"), Target) If xRg Is Nothing Then Exit Sub Target.Worksheet.Unprotect Password:="123" xRg.Locked = True Target.Worksheet.Protect Password:="123" End Sub اقتراح موعد لاجتماع شرح التقرير الشهري1.xlsm

وعليكم السلام مشاركه لاخى صلاح جزاه الله خيرا بكود جميل من اكواد اختى العزيزه زهره جزاها الله كل خير تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق zxc.accdb

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

يمكنك الاستعانة بهذا الملف Salim's Order.xlsm

جرب هذا الملف الاوائل على مستوى الفصل والنوع Salim.rar

وهي الطريقة التي استخدمها في اعمالي وحدة نمطية وكود للربط داخل النموذج انسخ الكود التالي والصقه في وحدة نمطية عامة Public Function CheckLinks(ByVal strDBPassword As String) As Boolean On Error GoTo CheckLinksErr Dim tdf As TableDef Dim strNewMDB As String Dim fd As FileDialog For Each tdf In CurrentDb.TableDefs If UCase(Left(tdf.Name, 6)) <> "COMPAS" Then If Len(tdf.Connect) > 0 And tdf.Fields.Count = 0 Then If Len(strNewMDB) = 0 Then Call MsgBox("مطلوب قم بتحديده واختياره (اسم قاعدة الجداول لديك) ملف البيانات", vbCritical) Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .AllowMultiSelect = False .InitialFileName = CurrentDBFolder() .Filters.ADD "Access Database File (*.mdb)", "*.mdb", 1 .TITLE = "Select Back-End Data File" .ButtonName = "Link Tables" If .Show = False Then Exit Function Else strNewMDB = .SelectedItems(1) End If End With End If If (IsNull(strDBPassword) = True) Or (strDBPassword = "") Then tdf.Connect = ";DATABASE=" & strNewMDB Else tdf.Connect = ";DATABASE=" & strNewMDB & ";PWD=" & strDBPassword End If tdf.RefreshLink End If End If Next tdf CheckLinks = True CheckLinksDone: Exit Function CheckLinksErr: MsgBox "Error #" & err.Number & ": " & err.Description, vbCritical Resume CheckLinksDone End Function Public Function CurrentDBFolder() As String Dim strPath As String strPath = CurrentDb.Name Do While Right$(strPath, 1) <> "\" strPath = Left$(strPath, Len(strPath) - 1) Loop CurrentDBFolder = strPath End Function ثم الصق الكود التالي في حدث التحميل لنموذج البداية On Error Resume Next If CheckLinks("") = False Then Call Quit End If Dim tdfs As DAO.TableDefs Dim tdf As TableDef Dim sSourceDB As String Dim sBackupDB As String Dim backDBName As String Set tdfs = CurrentDb.TableDefs Set tdf = tdfs(tdfs.Count - 1) sSourceDB = Right(tdf.Connect, Len(tdf.Connect) - 10) backDBName = Dir(Mid(tdf.Connect, 11)) sBackupDB = Mid(tdf.Connect, 11, Len(tdf.Connect) - (Len(backDBName) + 10)) ' وفي المثال تطبيق للمقال ملحوظة : اذا لم يعمل المثال على الوجه الأكمل انظر في المكتبات link_be.rar

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

السلام عليكم ورحمة الله لست أدري كيف اشتغلت معك؟؟ ولكن الصحيح عند اعتبار عدم إدخال الخلايا والقيم المخفية هو اختيار عددا من 101 إلى 111 حسب الصيغة المراد استعمالها، وإليك أخي الكريم هذا الملف المرفق الذي أعددته (لكن دون أمثلة) عن كيفية استعمال الدالة SUBTOTAL أرجو أن يفيدك... أخوك بن علية Help_SUBTOTAL.rar

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

السلام عليكم ورحمة الله الدالة التي تجمع الخلايا الظاهرة فقط وغير المخفية هي الدالة SUBTOTAL(109;النطاق) وليس بالرقم 9 (هذا الرقم يجمع كل الخلايا مخفية وغير مخفية تقريبا مثل عمل الدالة SUM) والدالة SUBTOTAL تقبل 29 نطاقا والله أعلم