بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 15 سبت, 2019 in all areas
-
أخي @محمد صلاح1 أسمع مني رعاك الله اعتقد اني كنت مثلك هكذا سابقاً هذه نصيحة لتستفيد عن تجربة قد يكون كل كلامك صحيح .. المشكلة ليس في طلبك ... بل في أستخدام العبارات الذي توحي للقارء السطور أنك عنيف في كلامك .. قبل أن ترد قم بشكرة على عملة ومحاولته وجهدة ..لأنه فرغ من وقته وقد يكون لدية أعمال فأجل أعمالة أبتغاء وجه الله في حل مشاكل الاعضاء وأنت منهم .. أخفض من أسلوب كلامك واجعل فيه التواضع والرحمة فنحن مسلمون .. وفي الأخير أنت طالب علم يكفي أن غيرهم لا يعطيك معلومة ألا بمقابل .. أما هم فقد أبتغو الاجر عند الله وللعلم يسؤني جداً أني أرى من طلاب العلم أنه لا يحسن ألفاضه مع معلمة في أي نواحي الحياة أعلم أنك مهما عملت لن تفي في حق أساتذتنا الأجلاء الذي ننظر لهم كالجبال الرواسي .. في هذا المنتدى الشامخ ومنهم الذي بلغ علمة الافاق تجد عبارات متواضعة يوضع نفسة كأنه طالب علم كأستاذي الغلي @ابا جودى5 points
-
3 points
-
3 points
-
السلام عليكم ورحمة الله وبركاته هذا الموضوع أنشأته من أجل الأخ @Mahmoud.Abdou واسهاما لايصاله لمراده في هذا الموضوع فقد قمت بوضع اللبنة الأولي في البرنامج المطلوب - ونظرا لانشغالي وضيق الوقت لدي لن أستطيع الاكمال في الوقت الحالي - أرجو من الأحبة أن يجود كل بما لديه من وقت لاتمام البرنامج قمت بتصميم الجداول علي غرار شكل البرنامج بالموضوع السابق الاشارة اليه. مع اضافة والاستغناء عن أشياء - وكذلك وضعت توضيحا بسيطا لكل حقل داخل تصميم الجداول. والآن هذا هو المرفق أسأل الله أن يوفق الجميع لما يحب ويرضي - وجزاكم الله عنا خيرا. Examination.accdb2 points
-
وهذه مرفقات من مكتبتى قد تجدون منها الافكار التى تساعد ان شاء الله فى اتمام العمل 2003سين وجيم مفتوح .mdb اختبر معلوماتك في الاكسس.mdb2 points
-
اخي الكريم لدي برنامج شبيه بالمطلوب و لكن غير مكتمل ارجوا الاطلاع عليه اذا كانت الفكرة مناسبة سيتم استكماله بناء على طلبك و تقريبا لوجهات النظر هذا من ناحية التصميم اما من ناحية قاعدة البيانات فأرشح القاعدة المرفقة من أخي @أبو عبدالله الحلوانى فتصميمها محكم جداً كذلك جودة العلاقات بين الجداول ممتازة جدا Database2003.mdb2 points
-
2 points
-
2 points
-
جرب المرفق Vehicles Board - Copy.accdb واذا ترغب في بقاء التقرير مفتوح بعد الحفظ جرب المرفق Vehicles Board - Copy.accdb2 points
-
لكل عشاق الحديث في برمجة الأوفيس المتقدمة VBA يسعدني أن أقدم لكم شرح كود ترجمة جوجل 2019 في فيجوال بيسك للتطبيقات vba الموجودة ضمن حزمة ميكروسوفت أوفيس وسيكون الشرح على الأكسس microsoft access 2019 ومعالجة خطأ عدم ظهور الترجمة التعرف على أكواد لغات العالم world languages codes الموجودة في ترجمة جوجل وعددها 105 لغة التعرف على أسماء لغات العالم بالإنجليزية وباللغة العربية وباللغة المحلية لكل لغة دالة معرفة لإيقاف تنفيذ الكود فترة من الثواني wait مثل application.wait الموجودة في إكسل كتابة سطرين كود في سطر واحد نطق النصوص من خلال vba بجميع لغات العالم text to speech ترجمة سجلات الجداول أو الاستعلامات من خلال ADO وغيرها الكثيييييير اكتشفها بنفسك رابط القناة لمن لم يشترك معنا حتى الآن https://www.youtube.com/ostazmas2 #ostazmas ************ فتابعونا وقوموا بتفعيل زر الجرس للتنبيه وقت صدور الفيديو وعلق ولو بحرف لكي تدعمنا للاستمرار من أجلكم ********************* وفي هذه المرة لن أضع لكم الملف المستخدم في الشرح ولكن سأطلب ممن فهم الشرح أن يقوم بتطبيقه ويرفع لنا هنا ما تعلمه فعلا كنتيجة الفيديو ///////////////// وتذكر معي الحكمة القائلة: لا تعطني سمكة ولكن علمني كيف أصطاد1 point
-
1 point
-
1 point
-
أسأل الله العظيم رب العرش العظيم أن يشفيك ويعافيك شفاءا لا يغادر سقما - وأجري الخير علي يديك وبين يديك أينما حللت - استرح أخي فعافيتك أهم عندنا.1 point
-
أولا - هل تابعت الرابط الخاص بالاعدادات وقمت بها ثانيا- يوجد بعض أجهزة قارئ البار كود لا تحتاج لاعدات يدوية بل يتم توصيفها من خلال الوندوز كما يتم توصيف أي جهاز يتم توصيله تلقائيا - هل جربت نوع آخر من جهاز البار كود - جرب بدون شراء جديد 😷 وانظر هل ستتم القراءة بشكل صحيح أم لا. ثالثا - هل كل الكود الذي تم قرائته صحيح ما عدا ال (-) أم ماذا - هل جربت قراءة كود ليس به شرطة؟ آسف علي الاطالة1 point
-
1 point
-
السلام عليكم اولا احبابى فى الله الاستاذ @qathi ما الذى تنسبه الى هذا كل ما تنسبه الى باطل اخى الحبيب اولا انا لا اوضع نفسي موضع طالب العلم لاننى بالفعل طالب علم بل اقل من اقل طالب علم وعن اى اعمال تتحدث وتنسبها الى بالباطل اولا هذا فضل الله تعالى وعلم الله فسبحان الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل ثانيا كل ذلك ثمار اساتذتنا الافاضل العظماء الذين تعلم على ايديهم فلهم كل الفضل بعد رب العزة سبحانه ثالثا انا قررت ان اسير على درب اساتذتى اقدم كل ما املك لكل من يطلب لوجه الله كما فعلوا فهذا اقل شكر فمن سن سنة طيبه فله اجرها واجر من عمل بها وهم قدموا العلم ولم يخفوه فأسال الله تعالى ان يتقبل منى ومنهم فيكون علم ينتفع بها حتى بعد الممات أما انت يا استاذى الكريم @محمد صلاح1 قد اخبرتك شيئين اولهما عدم قدرتى على المتابعة ولله الحمد على كل حال والامر الثانى ان مرفقكم يحتاج للوقت والجهد الكثيرين لانكل اخذت من كل مثال يخص الصلاحيات ما يعجبك وحاولت دمجه وحدث تضارب بالاكواد ونقض بها احيانا ووجود منها ما لا قيمة له اصلا واخبرتك ان وضعى لا يسعنى بتقديم المساعدة التى تطلبها منى كان طلبك العلاقة العلاقة بين CUsers & UserDefs وكود فتح النماذج التي سيكون لها صلاحيات وقطعا لا استطيع التعديل على مرفقكم فقمت بتقديم المثال الذى يوضح ذلك بأبسط صورة له مع اضافة صغيرة لتقليص العدد الهائل الذى سيكتب فى كل نموذج وكان ذلك ايضا بناء على طلبك وصدقنى ان التعديل على اكواد الاخرين ليست بالامر الهين لانك لابد ان تفكر اولا مثلهم لتستطيع التحليل والتفنيد وفهم الاكواد ليسعك التعديل بما يناسبك انت انت اتيت باكثر من شكل وباكثر من نموذج ولاكثر من شخص وتحاول دمجهم قطعا لم تحلل كل منها جيدا ولم تفهم الاكواد من اين بدات وكيف انتهت لذلك العمل منقوص والاكواد والافكار متضاربة لذلك للمرة الاخرى اقدن اليم اعتذارى الشديد عن سوء فهمى وقلة حيلتى كما ان فعلا والله وضهى الحالى يعوقنى كثيرا واتمنى لك اخيرا التوفيق من الله عزوجل فى الوصول الى مبتغاك1 point
-
1 point
-
تفضل الكود اولاً Option Explicit Sub find_Please() If ActiveSheet.Name <> "بنزين" Then Exit Sub Dim B As Worksheet: Set B = Sheets("بنزين") Dim M As Worksheet: Set M = Sheets("الموقف1") Dim r%, k% Dim M_R As Range Dim dic As Object Set M_R = M.Range("A2", M.Cells(Rows.Count, 1).End(3)).Resize(, 6) Set dic = CreateObject("Scripting.Dictionary") Dim My_word: My_word = B.Range("O1") Dim x%: x = M_R.Rows.Count: Dim i% Dim arr(1 To 4) arr(1) = "B": arr(2) = "F": arr(3) = "G": arr(4) = "H" B.Range("b2").Resize(1000, 8).ClearContents For i = 1 To x dic(M_R.Cells(i, 5).Value) = "" Next With B.Range("O1").Validation .Delete .Add xlValidateList, Formula1:=Join((dic.keys), ",") End With r = 2 For i = 1 To x If r - 1 > Application.CountIf(M_R, My_word) Then Exit For If M_R.Cells(i, 5) = My_word Then B.Cells(r, arr(1)) = M_R.Cells(i, 5) B.Cells(r, arr(2)) = M_R.Cells(i, 1) B.Cells(r, arr(3)) = M_R.Cells(i, 2) B.Cells(r, arr(4)) = M_R.Cells(i, 6) r = r + 1 End If Next Erase arr: dic.RemoveAll: Set M_R = Nothing: Set dic = Nothing Set M = Nothing: Set B = Nothing End Sub ثم الملف ثانياً (اختيار الاسم من القائمة المنسدلة المطاطة (لعدم الوقوع في خطأ الكتابة مسافة زائدة /مسافة ناقصة /خطأ املائي /أخطاء الهمزة / الخ... و لتوفير الوقت) استفسار .xlsm1 point
-
العفو اخي العزيز بخصوص اي طلب اضافي يسعدنا التعاون معك مع الالتزام بانظمة الموقع والتي تنص على اي امر خارج نطاق الموضوع الاساسي يكون في موضوع جديد قواعد المشاركة في الموقع وتقبل مني كل الود والتقدير1 point
-
1 point
-
1 point
-
الملف هذا يحدد نوزيع عدد المؤظفين على نسب على حسب جدول مسرود مسبقا على حقل ما ، مثل جدول في أول مرفق مسرود على حقل id و هذا تطبيق نفس طريفة على جدول الاكسس test 2.accdb1 point
-
السلام عليكم أكيد يمكن طباعة جميع التقارير من القائمة المنسدلة بدلًا من طباعتها بشكل مفرد، ويمكن أيضا طباعة جميع التقارير باستعمال خاصية "من.... إلى...." (من الاسم1 إلى الاسم2)... بن علية حاجي تجربة - طباعة.xlsm1 point
-
طريقة اخرى بدون الحاجة الى جدول رقم2 عن طريق منشئ التعبير ودالة Switch الضريبة2.accdb1 point
-
1 point
-
بارك الله فيك استاذى الكريم بن علية-معادلة ممتازة لطلب كان صعب ولكنى ارى ان الأستاذ alaaaltwel لم يتم الضغط منه على الإعجاب على هذه المعادلة الممتازة على الرغم من ان الإجابة اعجبته وتم حل مشكلته فأعتقد ان هذا اقل ما يقدم لأستاذنا الكريم بن علية على حل هذه المشكلة-بارك الله فيه وزاده الله من فضله وجعله دائما وابدا زخرا لنا جميعا1 point
-
على اعتبار ان حقل المجموع اسمه = txtQuantity ضع هذا الكود على زر الامر جديد Select Case Nz(txtQuantity, "") Case "" MsgBox "Quantity is empty, include the Quantity please" Case Is <= 0 MsgBox "Quantity is zero or less, include the Quantity please" Case Is > 0 DoCmd.GoToRecord , , acNewRec End Select1 point
-
في مربع نص الكمية وفي حدث عند الخروج ضع هذا الكود ... مع تعديل ما يلزم If IsNull(Me.Namex) Then ' Namex هو اسم مربع نص الكمية MsgBox "ادخل بيانات", vbCritical, "dATA" DoCmd.CancelEvent End If1 point
-
تفضل التعديل اخي الكريم ==>> بالماكرو Database2.accdb1 point
-
1 point
-
تحياتي الخالصة تفضل المطلوب في الملف المرفق... بن علية حاجي تقرير (1).xlsx1 point
-
تفضل اخي الكريم ما الذي تم عمله ؟؟؟ - تم اخفاء جميع التقارير - تم وضع شرط ظهور التقارير في حالة وجود بيانات في اي جدول بحيث ان الجدول الخالي البيانات لن يظهر التقرير التابع له Exam.accdb1 point
-
السلام عليكم أولا- المرفق الذي ارفقته بمشاركتي الأولي كان به خطأ فني وقد قمت بعديله في هذا المرفق ثانيا- قد وجدت بهذا الرابط أن جهاز قارئ الباركود الذي تستخدمه بحاجة لاعدادات قبل تشغيله وهنا تجد التفاصيل https://pzik.ru/ar/connecting-and-setting-up-a-barcode-scanner-keyboard-scanner/ باركود.rar1 point
-
الله المستعان ولكن أود توقيع كتابي من ولي المريض بكون الطبيب والمستشفي غير مسئولين تمام المسئولية عن أي ضرر ناتج عن الجراحة وبعد الاقرار سيتم تحديد موعد الجراحة غدا ان شاء الله - وتقبلوا تمنياتنا بالشفاء العاجل ان شاء الله 😁1 point
-
1 point
-
أخى الكريم ابو زاهر قم بمتابعة هذا الرابط مع إنه موضوعك وهذا الباقى فى المرفق قراءه الباركود.accdb1 point
-
وعليكم السلام تفضل هذه الفاتورة أتمنى ان تنال اعجابك وهذه أيضا فاتورة مصممة على الإكسيل وكمان هذه فاتورة خبورية مصممة على الإكسيل فاتورة احترافية.rar فاتورة مبيعات اوفيسنا.xls فاتورة خبورية.xls1 point
-
السلام عليكم فورم اختيار لون معين ومزجه واستخراج الاكواد الخاصة به اذا اردنا لون معين نقوم بالبحث العشوائي عن هذا اللون اوما يقاربه ثم نقوم بالتغيير عليه من الارقام الخاصة RGB حتى نوصل الى ما نريده تماما الناتج: كود RGB كود HEX كود MSA ويمكنك الاحتفاظ بهذه المعلومات في الشيت من زر اضافة معمول بالاكسل وبالفيجول بيسك الاكسل 2003-2010 فورم تكوين الوان مع المعلومات.rar بالفيجوال بيسك: RGB TO HEX.rar في امان الله1 point