بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 10/14/23 in مشاركات
-
استخدم هذا الكود للحصول على امتداد الصورة الأصلية .. ثم انقله للمسار الجديد ... 🙂 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 Function3 points
-
طيب بعد اذن الاستاذ @Foksh اتفضل يا استاذ @بونس الخطابي ان كنت قد استطعت فهمك عياده طبيب3.rar3 points
-
العام معادلته =INT(B2/365) الشهر معادلته =INT((B2-B5*365)/30) اليوم معادلته =B2-SUM(B5*365,C5*30) مع العلم خطأ هذه الطريقة في الحسابات حيث 12 في 30 يساوي 360 فقط وليس 365 بالتوفيق3 points
-
تفضل استاذي محاولتي وما أعمل به : 1-تقرير ورقة A4 . 2- تقرير رول الكاشير . report (1).accdb3 points
-
استاذ @kkhalifa1960 اجر وعافيه وطهور ان شاء الله بالنسبة لموضوع انشاء زر برمجيا سوف يكون فيه معوقات وسوف تكون كالتالى مكان الزر والابعاد ؟ # تشفير قواعد البيانات الى mde , accde هو لحفظ الاكواد من السرقة طيب كيف نضيف الكود مع التشفير ؟! الاستاذ @AbuuAhmed مشكورا اوضح هذه الجزئية طيب اثراء للموضوع كان هناك فكرة مشابهة ويجب الانتباه لرد الاستاذ @jjafferr بخصوص انشاء زر الامر برمجيا بارك الله لنا الله فيه وكل اساتذتنا الكرام3 points
-
شوف الموضوع ليس اثقالا على رواد المنتىدى بطلب عمل موضوع واحد لكل سؤال ذلك للمصلحة العامة فى الموضوع الحالى انت كنت تريد نقل بيانات الدواء والموجودة سلفا وطبقا لنوع التشخيص الى جدول اخر تركت لكم فخ صغير بكل صراحة ولذلك طلبت منكم التجربة جيدا الفخ هو تكرار البيانات للعلاج كلما تم الضغط على زر الامر تركته متعمدا حتى تحاول تفادي ذلك وان لم تستطيع تسأل عن السبب هذا ان اردت التعلم فشتان بين سؤالك للتعلم و سؤالك لتلبية رغبتك فقط بحل مشكلة ما الان وقد تم وضع الاجابة للشق الاول عنوان الموضوع سوف لن أجيب ولن اناقش أى مشكلة غير التى تخص السؤال رأس الموضوع حتى نسير فى سياق واحد ويكون منتدانا جميلا ومرتبا ونحافظ جميعا على قواعد وقوانين المشاركات بالنسبة لاى مشكلة أخرى غير تلك التى هى مناط الموضوع فضلا وكرما فتح موضوع جديد بوضع عنوان مناسب ليسهل مستقبلا لمن يبحث فى المنتدى عن سؤال لمشكلة شبيهه الوصول بسهولة2 points
-
طيب منا عارف انا سيبتك تجرب علشان تحاول تقدر تعرف المشكلة من فين المشكلة طبعا ان حضرتك ثبت الامتداد على المسار oldpathANDname = CurrentProject.Path & "\download\" & [id] & ".jpg" طبعا كده لن يتغير لانه دايما سوف يكون jpg وعلى قاعدة انسف حمامك القديم دعنا نبدأ من البداية انت تريد زر امر يحدد لك صورة الموظف ثم ينقلها الى المجلد الذى تريده صح واللا غلط ؟َ2 points
-
استخدم الكود كالاتى 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 If2 points
-
طبعا لو ان الحل يعتمد على مكتبة الاكسل سوف يكون مرتبطا بأصدار الاوفيس الذى تم انشاء التصميم والكود به اثناء اضافة المكتبة المشكلة انه لو تم مجاولة فتح القاعدة بإصدار اوفيس اقدم مين فاكر موضوع المكتبات الىى تحدثنا عنه2 points
-
أخي الكريم أنا بالنسبة لي فأنا اعتمد طريقتين :- الأولى عن طريق استعلام حذف للسجل الرئيسي اذا كان Null = فارغ فإنه النموذج يقوم بتشغيل هذا الإستعلام عند الاغلاق أو الزر المسؤول عن الإغلاق فقط . والثانية هي كالآتي :- في النموذج الذي لا أرغب فيه أن يتم حفظ التلقائي عند الخروج من النموذج فإني أقوم بإنشاء مربع نص ( واسمه مثلاً Drty ) ؛ وأجعل قيمته الإفتراضية = 0 في خصائص النموذج استعمل الحدث عند وجود شوائب ( On Dirty ) وأضع به هذا الكود البسيط , [Drty] = 0 وفي حدث عند الإغلاق للنموذج أو الزر المسؤول عن الإغلاق أقوم بوضع هذا الكود الخفيف أيضاً , If Me.Drty = 0 Then Me.Undo DoCmd.CancelEvent End If2 points
-
واذا ردت كود برمجي للاجبار على الادخال استخدم الآتي If Is Null (Me.x) Then msgbox "يجب ادخال المعلومات", vbCritical, "حقل مطلوب" Me.x.FetFocus Else Docmd.GotoRecord , , acNext End If طبعا X اسم الحقل2 points
-
2 points
-
اكيد واحد عنده ما يزيد عن 8000 ثانيه من عمره يريد اضاعتهم هباءً فلا أهمية للوفت مطلقاً بالنسبة له2 points
-
وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي 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.xlsm2 points
-
من تجربتي مع التطوير : اولا يجب فصل الجداول عن الواجهات الجداول يمكنني زيادة جداول او حقول او تغيير مسميات عن بعد .. واذا كانت الجهة حساسة يمكن ارسال ملف تنفيذي يقوم بالمهمة بالنسبة للازرار وغيرها من نماذج واستعلامات وتقارير .. يكفي ارسال نسخة محدثة من الواجهات الى الجهة التي تعمل على البرنامج القصد اني ابتعد عن وجع الرأس في مثل هذه الجزئيات2 points
-
2 points
-
السلام عليكم اخوانى ندخل فى الموضوع على طول قمت بتصميم هذا البرنامج بطلب من عدة اشخاص واحببت ان يكون اول مكان انشره فيه هو هذا المنتدى الغالى برنامج متابعة الابقار والجاموس والعجول متابعة مخزون العلف والادويه متابعة مصاريف حسابات عملاء حسابات موردين متابعة انساب البقر والحفاظ على السلالات تقارير كاملة عن كل ما سبق النسخة الجاية ان شاء رب العالمين فقط اضافة امكانية عمل الميزانية العمومية صور خاصة بالمرفق شاشة الدخول كلمة سر الدخول هى mared الباسورد هو 123 الشاشة الرئيسية تقاريرالعملاء والموردين1 point
-
واحهتنى مشكلة وهى أن البرنامج لا يعرض الصورة من نوع WEBP حتى و لو تم تغيير الامتداد الى JPG لم تعمل هل يمكن حل المشكله تم وضع صور موظف (محمد) بامتداد WEBP وجزاكم الله خيراً PhotoWEBP.rar1 point
-
هههههههههههه ، نسيت ازالتها ، ومع ذلك فكان هدفي انه الأخ السائل لعله يخرج بفكرة من الملف 😉1 point
-
1 point
-
1 point
-
استاذ @Ahmed_J انا لو مكانك اعمل سطل شاى واراجع الكود اولا كل التقدير لصاحب المرفق جزاه الله خيـرا بس على سبيل المثال وليس الحصر كان ممكن اختصار اسطر الكود لسهولة التعديل للتطوير مستقبلا طيب جرب السطر ده FDName = "My Archive\Import\My pdf"1 point
-
@Ahmed_J استاذ احمد اعتذر ع المداخلة ولكن هل يقوم بالسحب المتعدد من السكنر1 point
-
طيب يا سيدى انت زعلان وبتزعق ليه اتفضل FDName = "\My Archive\Import\My pdf"1 point
-
هلا والله جزاكم الله خيرا طبعا ممكن جدا جدا بس امتى يكون ممكن لما سيادتك تعمل موضوع جديد يخص السؤال ده ده لازم ضرورى ومهم وانا وكل الاساتذة الكرام فى انتظارك1 point
-
بسيطه ان شاء الله غير السطر الاتى فى الكود FDName = [Fname] & "_" & [id] & "_" & Format([ADate], "dd-mm-yyyy") الى FDName = CurrentProject.Path & "\My Archive\Import\My pdf"1 point
-
أيضاً كفكرة ، وهي إضافة متصفح Chrome كمستعرض في النموذج ، فهو قادر على عرض هذا النوع من امتدادات الصور ، ولكن برأيي لربما لنوع واحد من الإمتدادات هو غير مجدي هذا ما يسمى السؤال وبه الجواب1 point
-
أستاذى @ابو جودي جزالك الله خيرا ً و للعلم هناك اضافة فى جوجل لتحميل الصورة الى اى امتداد Save image as Type1 point
-
وعليكم السلام كود الغاء الحفظ التلقائي في الاكسس في حدث قبل التحديث 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 وهذه صورة اجبار تعبئة خانات معينة بالترتيب .1 point
-
السلام عليكم ورحمة الله وبركاته شكرا جزيلا لك اخي العزيز foksh واقدر عاليا الوقت الثمين الي استقطعته من وقتك الثمين للتكرم والرد على استفساري . رحم الله والديك وادعو الله ان يجعل ذلك في ميزان حسناتك سيدي الفاضل /سوف اسهب بالشرح لكي تكون الصوره واضحه امامك قبل سنوات قرات قليلا عن الاكسس لان اختصاصي لاعلاقه له بالبرمجه اليوم اصبح في عائلتنا طبيب وهو وزميلين له من نفس الاختصاص فتحوا عياده طبيه وطلب مني برنامج بسيط لادارة العياده وفق المعطيات التاليه · لو افترضنا اليوم نحن في اليوم الاول من الشهر وبامكاننا استقبال 40 مريض في اليوم الواحد . ووصلتنا عدة اتصالات تريد الحجز على يوم 10 من الشهر مثلا . · نحن نقوم بتسجيل الاسماء . لكن لانعطي اسبقيه بالدخول للطبيب الى حين الحضور للعياده لان نصفهم تقريبا لايحضرون في الموعد وهو 10 بالشهر لظروف خاصه بهم . والفائده من تسجيل الاسماء لكي نلزم انفسنا بمعالجة من حجزنا له حتى لو تاخرنا عن موعد غلق العياده حفاظا على سمعتنا. · ماذا نفعل يوم 10 بالشهر / نحن نتوقع بان من ال40 الذين حجزوا سيحضرون منهم 25 فقط . لذلك من يتصل بنا صباح يوم 10 نقل له احضر اليوم وبمعدل 20 تقريبا · لذلك تجد ان اسبقية الحجز بالدخول على الطبيب المفروض يترك فارغ , لكن من اجل ترتيب الاسبقيات في قائمة البحث وضعت قيمه افتراضيه 88 وتعني بدون اسبقيه الفائده من ذلك حتى يبقى اسم الحاجز اسفل قائمة البحث ونعطيه اسبقيه الدخول للطبيب عند حضوره فعلا · عملنا قائمه باسماء الامراض الشائعه وعلاجها تظهر في نموذج(f_altchkessfree) . المفروض عند وضع علامة صح على العلاج الذي يناسب المريض ينتقل الى نموذج (f_alagtmossfhofrae) تلقائيا . لكي يبقى كمرجع للطبيب بحيث عند المراجعه اللاحقه يعرف الطبيب ماذا وصف له في الجلسه السابقه وماذا كانت النتائج وعلى ضوء ذلك يصف له العلاج الجديد · هذا الاسهاب لكي يعرف جنابكم الكريم الى اين اريد ان اصل · نرجع الى ملاحظاتك · الفقره الاولى / غيرت كل التسميات الى اللغه الانكليزيه لكن في النموذج لازالت الحقول تزحف من اماكنها عند العرض · الفقره الثانيه / · (1) لا اعرف عمل تاسيس وهيكلة الجداول · (2) لكن وضح لي نقطة واحدة ( النموذج الفرعي العلاج المصروف فعلا ) على أي اساس ترغب بنقل الأدوية منه للنموذج الفرعي العلاج المصروف فعلا ( انا طلبت نقل الادويه من (نموذج الوصفه المقترحه) الى نموذج (العلاج المصروف فعلا( والان بعد تغيير التسميات الى اللغه الانكليزيه نريد نقلها من نموذج(f_altchkessfree) الى نموذج(f_alagtmossfhofrae ) (وإن خرجت بنتيجة لك غداً سأرفق لك ملف التعديل) ارجع واقول انا اقدرعاليا الجزء الذي ستستقطعه من وقتك الثمين لمعالجة مشكلتي . جزاك الله خير وجعل ذلك في ميزان حسناتك((واللهُ في عَونِ العَبْدِ ما كان العَبْدُ في عَونِ أخيهِ)) . عياده طبيب2.rar1 point
-
استذي الفاضل (الف شكر) جزاك الله خير على ردك الجميل انا عارف ان الحسبة كده غلط بس كل شركة بيكون ليها نظام في الحسبة وانا ملتزم بحسبة الشركة1 point
-
1 point
-
انت حطيت الرابط وانا فتحته وشوفت التعليقات فقولت اضيف تعليق ^_^1 point
-
هههههه انت لسه فاكر انا نسيت الموضوع من 6 years later...1 point
-
ممكن اضافة كود تسجيل عدد النقرات على الزر اذا كانت النقرات 1 يفعل الكود اذا زاد عن 1 لا يفعل شئ اخر وينتظر ظهور النموذج 😅 مثلا1 point
-
يا استاذ @Foksh نظرا لوجود بعض المشاكل التقنية رد الاستاذ الفاضل @AbuuAhmed جزاه الله خيرا هو1 point
-
أخونا @Eng.Qassim بصوت أفكارك العالي ، ما الذي يخطر في بالك في التصميم لتقرير الفاتورة ؟ البنود والعناصر الأساسية للفاتورة كلها موجودة ما شاء الله وأجمل من تصميمي للفاتورة في برنامجي 😅 فأفصح عما يجول بخاطرك1 point
-
بعد اذنك أخي الفاضل @ابو البشر جرب التصدير الى الاكسل كما فهمت منك واعلمنا بالنتيجة .... علما ان التصدير من النموذج لسجل واحد وهو المعروض لديك واذا صدرت سجل اخر يضاف الى قائمة السجلات في الاكسل وهكذا ..... Desktop.rar1 point
-
اتذكر موضوعك هذا منذ مدة طويلة ..وعملت لك نموذج بالبطاقات المنتهية طبعا عمل الاساتذه شيء رائع لكنه غير عملي مع 4000 موظف ...المستخدم سيتعب كثيرا مع شريط التمرير في رأيي ...الافضل عمل تقرير بذلك1 point
-
1 point
-
1 point
-
بعد اذن الأخوة المشاركين في الوصول للحل المطلوب محالف للمرفق أعتقد المطلوب البحث في جدول 2 عن الرقم القومي الموجود في جدول 1 وكتابة المرتب من العمود L إلى العمود E في نفس الشيت الأول وإذا كان هذا المطلوب فعلا فيكطم استخدام معادلة بحث عادية vlookup أبسطها =IFERROR(VLOOKUP(B3,$I$3:$L$15,4,0),0) بالتوفيق البحث.xlsx1 point
-
وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي 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.xlsb1 point
-
اعتقد مر علي مثال شبيه لما تطلب في المنتدى كان المثال لطلبات مطعم ... والله اعلم1 point
-
1 point
-
اتفضل اتنمي ده ما تريده ما تم عمله كود جبل البيانات من الجدول او الاستعلام ووضع جميع السجلات فى سطر واحد للعرض وتخزينها فى المتغير 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 وخلاص كده ^_^ واتفضل ملف للمراجعه شريط اخبار مصدره جدول.rar1 point
-
1 point
-
1 point
-
أتصور أنه من الصعب أن تحد اجابة متفق عليها رأيي الشخصي اذا تتكلم عن تطبيق مؤسسي ضخم فأرشح الجافا ، و يرجع ذلك لمعايير الامان العالية. اما اذا تطبيق بسيط بعدد مستخدمين محدود فالأكسيس يأتي فى المقدمة للسهولة والملائمة من وجهة نظري ، مع امكانية الاستخدامنات المتقدمة بمجالات كبيرة باستخدام VBA اذا تطبيق لمؤسستك فهو الاكسيس ، و اذا ترغب فى تطبيق تجاري فربما نكون الجافا و الله أعلم1 point
-
زيادة الخير خيرين يا بشمهندس محمد وعلى كل حال هو جزء مما تعلمته منك ومن بقية الاساتذة الكرام1 point