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

استخدم هذا الكود للحصول على امتداد الصورة الأصلية .. ثم انقله للمسار الجديد ... 🙂 Function GetFileExt(strPath As String) As String ' دالة للحصول على إمتداد الملفات مع النقطة Dim strFile As String strFile = Right(strPath, Len(strPath) - InStrRev(strPath, "\")) GetFileExt = Right(strFile, Len(strFile) - InStrRev(strFile, ".") + 1) End Function

طيب بعد اذن الاستاذ @Foksh اتفضل يا استاذ @بونس الخطابي ان كنت قد استطعت فهمك عياده طبيب3.rar

العام معادلته =INT(B2/365) الشهر معادلته =INT((B2-B5*365)/30) اليوم معادلته =B2-SUM(B5*365,C5*30) مع العلم خطأ هذه الطريقة في الحسابات حيث 12 في 30 يساوي 360 فقط وليس 365 بالتوفيق

تفضل استاذي محاولتي وما أعمل به : 1-تقرير ورقة A4 . 2- تقرير رول الكاشير . report (1).accdb

استاذ @kkhalifa1960 اجر وعافيه وطهور ان شاء الله بالنسبة لموضوع انشاء زر برمجيا سوف يكون فيه معوقات وسوف تكون كالتالى مكان الزر والابعاد ؟ # تشفير قواعد البيانات الى mde , accde هو لحفظ الاكواد من السرقة طيب كيف نضيف الكود مع التشفير ؟! الاستاذ @AbuuAhmed مشكورا اوضح هذه الجزئية طيب اثراء للموضوع كان هناك فكرة مشابهة ويجب الانتباه لرد الاستاذ @jjafferr بخصوص انشاء زر الامر برمجيا بارك الله لنا الله فيه وكل اساتذتنا الكرام

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

طيب منا عارف انا سيبتك تجرب علشان تحاول تقدر تعرف المشكلة من فين المشكلة طبعا ان حضرتك ثبت الامتداد على المسار oldpathANDname = CurrentProject.Path & "\download\" & [id] & ".jpg" طبعا كده لن يتغير لانه دايما سوف يكون jpg وعلى قاعدة انسف حمامك القديم دعنا نبدأ من البداية انت تريد زر امر يحدد لك صورة الموظف ثم ينقلها الى المجلد الذى تريده صح واللا غلط ؟َ

استخدم الكود كالاتى If Dir(CurrentProject.Path & "\download\" & [id] & ".*", vbDirectory) <> "" Then If Dir(CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\", vbDirectory) <> "" Then Else MkDir CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" End If Dim oldpathANDname As String, newpathANDname As String 'oldpathANDname = CurrentProject.Path & "\download\" & [id] & ".jpg" 'newpathANDname = CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" & Me.id & ".jpg" oldpathANDname = CurrentProject.Path & "\download\" & [id] & ".jpg" newpathANDname = CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" & Me.id & GetFileExt(oldpathANDname) Name oldpathANDname As newpathANDname Me!imgPicture.Requery End If

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

أخي الكريم أنا بالنسبة لي فأنا اعتمد طريقتين :- الأولى عن طريق استعلام حذف للسجل الرئيسي اذا كان Null = فارغ فإنه النموذج يقوم بتشغيل هذا الإستعلام عند الاغلاق أو الزر المسؤول عن الإغلاق فقط . والثانية هي كالآتي :- في النموذج الذي لا أرغب فيه أن يتم حفظ التلقائي عند الخروج من النموذج فإني أقوم بإنشاء مربع نص ( واسمه مثلاً Drty ) ؛ وأجعل قيمته الإفتراضية = 0 في خصائص النموذج استعمل الحدث عند وجود شوائب ( On Dirty ) وأضع به هذا الكود البسيط , [Drty] = 0 وفي حدث عند الإغلاق للنموذج أو الزر المسؤول عن الإغلاق أقوم بوضع هذا الكود الخفيف أيضاً , If Me.Drty = 0 Then Me.Undo DoCmd.CancelEvent End If

واذا ردت كود برمجي للاجبار على الادخال استخدم الآتي If Is Null (Me.x) Then msgbox "يجب ادخال المعلومات", vbCritical, "حقل مطلوب" Me.x.FetFocus Else Docmd.GotoRecord , , acNext End If طبعا X اسم الحقل

افتح الصورة من خلال برنامج ال paint ثم قم بعمل حفظ باسم واختر النوع JPG

اكيد واحد عنده ما يزيد عن 8000 ثانيه من عمره يريد اضاعتهم هباءً فلا أهمية للوفت مطلقاً بالنسبة له

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي Private Sub CommandButton1_Click() With Sheets("main") LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row For J = 2 To LastRow If TextBox1.Text = .Cells(J, 1) Then Me.ListBox1.AddItem Cells(J, 2) 'Me.TextBox1 = Empty End If Next End With End Sub '******************************* Private Sub CommandButton2_Click() ligne = Me.ListBox1.ListIndex If ligne <> -1 Then Me.ListBox1.RemoveItem ligne End Sub 20231013 test.xlsm

من تجربتي مع التطوير : اولا يجب فصل الجداول عن الواجهات الجداول يمكنني زيادة جداول او حقول او تغيير مسميات عن بعد .. واذا كانت الجهة حساسة يمكن ارسال ملف تنفيذي يقوم بالمهمة بالنسبة للازرار وغيرها من نماذج واستعلامات وتقارير .. يكفي ارسال نسخة محدثة من الواجهات الى الجهة التي تعمل على البرنامج القصد اني ابتعد عن وجع الرأس في مثل هذه الجزئيات

جرب هذا 🙂 : قائمة قابلة للزيادة حسب عدد السجلات.accdb

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

هههههههههههه ، نسيت ازالتها ، ومع ذلك فكان هدفي انه الأخ السائل لعله يخرج بفكرة من الملف 😉

اى شخص لم يقم بإعداد برنامج Adobe Acrobat Reader على حاسبه سوف يواجه مشكلة بفقد المكتبة التى تخصه ولن تهمل مهخ القاعدة زى كده ممكن تقول يعنى ايه التبديل بين الثلاث امتدادت ياريت توضيح اكثر

جرب محاولتي Days2yymmdd_01.xlsx

استاذ @Ahmed_J انا لو مكانك اعمل سطل شاى واراجع الكود اولا كل التقدير لصاحب المرفق جزاه الله خيـرا بس على سبيل المثال وليس الحصر كان ممكن اختصار اسطر الكود لسهولة التعديل للتطوير مستقبلا طيب جرب السطر ده FDName = "My Archive\Import\My pdf"

@Ahmed_J استاذ احمد اعتذر ع المداخلة ولكن هل يقوم بالسحب المتعدد من السكنر

طيب يا سيدى انت زعلان وبتزعق ليه اتفضل FDName = "\My Archive\Import\My pdf"

هلا والله جزاكم الله خيرا طبعا ممكن جدا جدا بس امتى يكون ممكن لما سيادتك تعمل موضوع جديد يخص السؤال ده ده لازم ضرورى ومهم وانا وكل الاساتذة الكرام فى انتظارك

بسيطه ان شاء الله غير السطر الاتى فى الكود FDName = [Fname] & "_" & [id] & "_" & Format([ADate], "dd-mm-yyyy") الى FDName = CurrentProject.Path & "\My Archive\Import\My pdf"

أيضاً كفكرة ، وهي إضافة متصفح Chrome كمستعرض في النموذج ، فهو قادر على عرض هذا النوع من امتدادات الصور ، ولكن برأيي لربما لنوع واحد من الإمتدادات هو غير مجدي هذا ما يسمى السؤال وبه الجواب

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

أستاذى @ابو جودي جزالك الله خيرا ً و للعلم هناك اضافة فى جوجل لتحميل الصورة الى اى امتداد Save image as Type

وعليكم السلام كود الغاء الحفظ التلقائي في الاكسس في حدث قبل التحديث Private Sub Form_BeforeUpdate(Cancel As Integer) m = MsgBox("Do you want to Save", vbYesNo + vbInformation, "Save") If m = vbYes Then DoCmd.Save DoCmd.GoToRecord , , acNext MsgBox("Saving done ", vbOk + vbInformation, "Save") ElseIf m = vbNo Then Me.Undo DoCmd.CancelEvent End If وهذه صورة اجبار تعبئة خانات معينة بالترتيب .

السلام عليكم ورحمة الله وبركاته شكرا جزيلا لك اخي العزيز foksh واقدر عاليا الوقت الثمين الي استقطعته من وقتك الثمين للتكرم والرد على استفساري . رحم الله والديك وادعو الله ان يجعل ذلك في ميزان حسناتك سيدي الفاضل /سوف اسهب بالشرح لكي تكون الصوره واضحه امامك قبل سنوات قرات قليلا عن الاكسس لان اختصاصي لاعلاقه له بالبرمجه اليوم اصبح في عائلتنا طبيب وهو وزميلين له من نفس الاختصاص فتحوا عياده طبيه وطلب مني برنامج بسيط لادارة العياده وفق المعطيات التاليه · لو افترضنا اليوم نحن في اليوم الاول من الشهر وبامكاننا استقبال 40 مريض في اليوم الواحد . ووصلتنا عدة اتصالات تريد الحجز على يوم 10 من الشهر مثلا . · نحن نقوم بتسجيل الاسماء . لكن لانعطي اسبقيه بالدخول للطبيب الى حين الحضور للعياده لان نصفهم تقريبا لايحضرون في الموعد وهو 10 بالشهر لظروف خاصه بهم . والفائده من تسجيل الاسماء لكي نلزم انفسنا بمعالجة من حجزنا له حتى لو تاخرنا عن موعد غلق العياده حفاظا على سمعتنا. · ماذا نفعل يوم 10 بالشهر / نحن نتوقع بان من ال40 الذين حجزوا سيحضرون منهم 25 فقط . لذلك من يتصل بنا صباح يوم 10 نقل له احضر اليوم وبمعدل 20 تقريبا · لذلك تجد ان اسبقية الحجز بالدخول على الطبيب المفروض يترك فارغ , لكن من اجل ترتيب الاسبقيات في قائمة البحث وضعت قيمه افتراضيه 88 وتعني بدون اسبقيه الفائده من ذلك حتى يبقى اسم الحاجز اسفل قائمة البحث ونعطيه اسبقيه الدخول للطبيب عند حضوره فعلا · عملنا قائمه باسماء الامراض الشائعه وعلاجها تظهر في نموذج(f_altchkessfree) . المفروض عند وضع علامة صح على العلاج الذي يناسب المريض ينتقل الى نموذج (f_alagtmossfhofrae) تلقائيا . لكي يبقى كمرجع للطبيب بحيث عند المراجعه اللاحقه يعرف الطبيب ماذا وصف له في الجلسه السابقه وماذا كانت النتائج وعلى ضوء ذلك يصف له العلاج الجديد · هذا الاسهاب لكي يعرف جنابكم الكريم الى اين اريد ان اصل · نرجع الى ملاحظاتك · الفقره الاولى / غيرت كل التسميات الى اللغه الانكليزيه لكن في النموذج لازالت الحقول تزحف من اماكنها عند العرض · الفقره الثانيه / · (1) لا اعرف عمل تاسيس وهيكلة الجداول · (2) لكن وضح لي نقطة واحدة ( النموذج الفرعي العلاج المصروف فعلا ) على أي اساس ترغب بنقل الأدوية منه للنموذج الفرعي العلاج المصروف فعلا ( انا طلبت نقل الادويه من (نموذج الوصفه المقترحه) الى نموذج (العلاج المصروف فعلا( والان بعد تغيير التسميات الى اللغه الانكليزيه نريد نقلها من نموذج(f_altchkessfree) الى نموذج(f_alagtmossfhofrae ) (وإن خرجت بنتيجة لك غداً سأرفق لك ملف التعديل) ارجع واقول انا اقدرعاليا الجزء الذي ستستقطعه من وقتك الثمين لمعالجة مشكلتي . جزاك الله خير وجعل ذلك في ميزان حسناتك((واللهُ في عَونِ العَبْدِ ما كان العَبْدُ في عَونِ أخيهِ)) . عياده طبيب2.rar

السؤال المهم انت عملت اعادة تسمية للامتداد ام قمت بتغيير الامتداد فعلا لانك على اغلب الظن وبنسبة 100.01% لم تقم بتغير الامتداد بل قمت باعادة تسمية الامتداد افتح الصورة من خلال برنامج ال paint ثم قم بعمل حفظ باسم واختر النوع JPG

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

انت حطيت الرابط وانا فتحته وشوفت التعليقات فقولت اضيف تعليق ^_^

هههههه انت لسه فاكر انا نسيت الموضوع من 6 years later...

تفضل أستاذي ..........افتح الملف واذهب الى (File) ثم اضغط على (Save & publish) ثم بيفتح صفحة (Database File Type) اختار التنسيق (Access Database (*accdb)) ثم (Save As) .

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

يا استاذ @Foksh نظرا لوجود بعض المشاكل التقنية رد الاستاذ الفاضل @AbuuAhmed جزاه الله خيرا هو

أخونا @Eng.Qassim بصوت أفكارك العالي ، ما الذي يخطر في بالك في التصميم لتقرير الفاتورة ؟ البنود والعناصر الأساسية للفاتورة كلها موجودة ما شاء الله وأجمل من تصميمي للفاتورة في برنامجي 😅 فأفصح عما يجول بخاطرك

اتذكر موضوعك هذا منذ مدة طويلة ..وعملت لك نموذج بالبطاقات المنتهية طبعا عمل الاساتذه شيء رائع لكنه غير عملي مع 4000 موظف ...المستخدم سيتعب كثيرا مع شريط التمرير في رأيي ...الافضل عمل تقرير بذلك

تفضل أخي حل ثاني بفورم2 . أنا لا أخشى الصدمات .......... متعود . DD226-1.accdb

هذه محاولتي . DD226.accdb

بعد اذن الأخوة المشاركين في الوصول للحل المطلوب محالف للمرفق أعتقد المطلوب البحث في جدول 2 عن الرقم القومي الموجود في جدول 1 وكتابة المرتب من العمود L إلى العمود E في نفس الشيت الأول وإذا كان هذا المطلوب فعلا فيكطم استخدام معادلة بحث عادية vlookup أبسطها =IFERROR(VLOOKUP(B3,$I$3:$L$15,4,0),0) بالتوفيق البحث.xlsx

بعد اذن استاذ محمد هشام.حبيت اشارك بشي بسيط طبعا مجهودك كبير لان عملت معادلة صغير تقرا من sheet 1 وتعطى النتائج فى Sheet2 وكلنا نجتهد لارسال المعلومة وشكرا البحث.xlsx

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي Sub Recher_des_valeurs() Dim MyRng As Range, MyCell As Range Set WSdata = Sheets("Sheet1") Application.ScreenUpdating = False With WSdata .Range("E3", Range("E" & Rows.Count).End(4)).ClearContents For Each MyRng In .Range("B3:B" & .Cells(Application.Rows.Count, 2).End(xlUp).Row) Set MyCell = .Columns(9).Find(MyRng.Value, , xlValues, xlPart) If Not MyCell Is Nothing Then MyRng.Offset(, 3).Value = MyCell.Offset(, 3).Value Else MyRng.Offset(, 3).Value = 0 Next MyRng End With Application.ScreenUpdating = True End Sub البحث 2.xlsb

اعتقد مر علي مثال شبيه لما تطلب في المنتدى كان المثال لطلبات مطعم ... والله اعلم

اتفضل اتنمي ده ما تريده ما تم عمله كود جبل البيانات من الجدول او الاستعلام ووضع جميع السجلات فى سطر واحد للعرض وتخزينها فى المتغير xTEXT Dim db As DAO.Database Dim rst As DAO.Recordset Dim xTEXT As String Dim delimiter As String Set db = CurrentDb Set rst = db.OpenRecordset("TablTest", dbOpenDynaset) xTEXT = "" delimiter = " - " With rst Do While Not .EOF xTEXT = xTEXT & ![ID] & " " & ![TextName1] & " " & ![TextName2] & " " & ![TextName3] & delimiter .MoveNext Loop .Close End With Set rst = Nothing db.Close Set db = Nothing If Right(xTEXT, Len(delimiter)) = delimiter Then xTEXT = Left(xTEXT, Len(xTEXT) - Len(delimiter)) End If AutoText.Caption = xTEXT وهذا الكود يتم وضعه فى حدث عند التحميل ثم نأتي لكود التحريك لمربع التسميه فى حدث عند عداد الوقت Private Sub Form_Timer() AutoText.Caption = Mid(AutoText.Caption, 2) & Left(AutoText.Caption, 1) End Sub وخلاص كده ^_^ واتفضل ملف للمراجعه شريط اخبار مصدره جدول.rar

عزيزى الفاضل ارسلت لك صورة ادرجت عائلة جديدة برقم 55 محمود راس العائلة وانجب محمد وحسن فى النموذج 2 محمد انجب خالد وعلى فى نموذج 3 وهكذا

تظهر هذه المشكلة

أتصور أنه من الصعب أن تحد اجابة متفق عليها رأيي الشخصي اذا تتكلم عن تطبيق مؤسسي ضخم فأرشح الجافا ، و يرجع ذلك لمعايير الامان العالية. اما اذا تطبيق بسيط بعدد مستخدمين محدود فالأكسيس يأتي فى المقدمة للسهولة والملائمة من وجهة نظري ، مع امكانية الاستخدامنات المتقدمة بمجالات كبيرة باستخدام VBA اذا تطبيق لمؤسستك فهو الاكسيس ، و اذا ترغب فى تطبيق تجاري فربما نكون الجافا و الله أعلم

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