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

هذا الماكرو Option Explicit Sub copy_by_choise() Dim sh As Worksheet Dim Rg As Range Dim f_rg As Range Dim x%, n% Set sh = Sheets("Sheet1") sh.Range("E4").CurrentRegion.ClearContents Set Rg = sh.Range("N1").CurrentRegion x = Rg.Rows.Count If x = 1 Then Exit Sub Set f_rg = Rg.Rows(1).Find(sh.Range("F2"), lookat:=1) If f_rg Is Nothing Then Exit Sub Set Rg = Rg.Offset(1).Resize(x - 1) n = f_rg.Column - 12 sh.Range("E4").Resize(Rg.Rows.Count).Value = _ Rg.Columns(n).Value End Sub

السلام عليكم اقدم لكم هذا النموذج البسيط لكنه يحتوي على عدة افكار وهي : 1- حقل البحث بجزء من الاسم ويمكن البحث اما في حقل الاسم او حقل المدرسة 2- زر امر يسمح بتعديل الاسم او تجميده وزر امر آخر لحقل المدرسة . زر اضافة سجل جديد الى النموذج الفرعي . ارجو ان ينال اعجابكم Database1.mdb

أنشئت هذا البرنامج للأستعمال الشخصى فانا من قام بجلب الكلمات من احدى المواقع وقمت بترجمتها بجوجل واعرضه هنا ربما 😀يفيد احد صغير او كبير هذا البرنامج ناطق يضم اكثر 3000 كلمة انجليزية مستخدمة فى المحادثات ومترجمة ( اى من يعرفهم يفهم 90% من محادثات اللغة الانجليزية ) With 2,500 to 3,000 words, you can understand 90% of everyday English conversations, English newspaper and magazine articles, and English used in the workplace وهو يصلح ان يضع فيه اى اسئلة واجوبة للاختبار واخفاء الاجوبة او الاسئلة كما يقوم البرنامج بقراءة اللغة الانجليزية فى الخانة الاولى عند ضبط الاعدادات وهو يصلح للكبار والصغار ومراجعة المناهج يسمح ويفضل نشره او جزء منه للمنفعه العامة يحتاج البرنامج مكتبة microsoft speech object library والتى تحتوى على ملف sapi.dll واختيارها وتوجد هذه المكتبة فى الويندوز Text-to-Speech (TTS) ويجب تفعيلها وضبطها وهذا مثال بسيط فى التعامل مع مكتبة نطق النص تبديل نص الزر أخفار واظهار العناصر تمكين وعدم تمكين العناصر(السماح بالكتابة و والتعديل) التعامل مع السجلات الرسائل النصية واختيار الزر الافتراضى انشاء فلتر وتنشيطه اخفاء شاشة الاكسيس والقوائم اغلاق نموذج اخر فتح نموذج اخر طرق منع تحذيرات النظام واستعادتها التعامل مع دالة Select Case استعلام الحذف استعلام الاضافة استعلام التحديث اخفاء النماذج من التعديل اخفاء الجداول من التعديل النموذج المنقسم عمل ميكرو متعدد استخدام دالة DCount استخدام نص يعتمد على قسمة حقلين تنسيق الحقل للحصول على نسبة مئوية استخدام نص التلميح control tip text التعامل مع زر الاختيار استخدام الدالة العشوائية مع تحديد مجالها الانتقال الى سجل عشوائى تنسيق العنصر على حسب قيمته استخدام وسائل تصدير البيانات معظم الاحداث انشئت ميكرو وتم تحويلها الى vba ملحوظة يمكن استيراد البيانات الى الجدول لمن يعرف وننوه ان البرنامج يصلح للدراسة سواء كان كبير او صغير يمكن الاستفاده منه وانوه ان الترجمة حرفية يمكنك تغييرها للأفضل ان رأيت ذلك البرنامج انشئ على اكسيس 2019 64 بت وويندوز 10 نفعكم الله به للتنزيل من هنا https://gofile.io/d/7UWmB7 اضغط هنا للتنزيل من موقع خارجى او التنزيل من المرفقات 3000Words.zip

تم معالجة الأمر 1- لبس المرة الأولى التي أقول فيها: تسمية الشيتات باللغة الأجنبية و فصل الجدول عن باقي الخلايا بصفوف فارغة و عدم ادراج خلايا مدمجة داخل الجدول / ولا حياة لمن تنادي / (تم اضافة صفوف فارغة لهذا الأمر لآخر مرّة لن امد يد المساعدة بعد الآن بدون هذه الأشياء) 2- اذا كات الخلية B2 فارغة تحصل على كل البيانات Option Explicit Sub FInd_Please() Dim S As Worksheet, T As Worksheet Dim LR As Long, Nam As String Dim F_rg As Range, d% Dim Find_wath Dim Search_rg As Range Dim x%, y%, n% With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Set S = Sheets("Source") Set T = Sheets("Target") T.Range("C8").CurrentRegion.ClearContents x = S.Range("A8").CurrentRegion.Rows.Count y = S.Range("A8").CurrentRegion.Columns.Count If T.Range("c2") = vbNullString Then GoTo Exit_Sub Select Case T.Range("C2") Case "مسلسل": n = 1 Case "اسم التلميذ": n = 2 Case "الرقم القومي": n = 3 Case "المحافظة": n = 4 Case "تاريخ الميلاد": n = 5 Case Else: GoTo Exit_Sub End Select Select Case T.Range("B2") Case Is <> "" Find_wath = T.Range("B2") Case Else Find_wath = "*" End Select If Find_wath = "*" Then T.Range("A9").Resize(x, y).Value = _ S.Range("A8").Resize(x, y).Value Else Set F_rg = S.Range("A7").CurrentRegion.Columns(n) Set Search_rg = F_rg.Find(Find_wath, lookat:=1) If Search_rg Is Nothing Then MsgBox "Check Up the Cell B2" GoTo Exit_Sub End If T.Range("A9").Resize(, y).Value = _ S.Range("A" & Search_rg.Row).Resize(, y).Value End If Exit_Sub: With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub fuzy_data.xlsm

لوحة مفاتيح OfficenaKeyboardUtility {V. 2 64 Bit}.mdb

السلام عليكم اخواني الكرام يسرني ان أقدم لكم هدية متواضعة وهي عبارة عن برنامج صغير لطباعة بطاقات العمل البلاستيكية مفتوح المصدر أقدمت على عمل هذا البرنامج بطلب من أحد الاخوة واهدي منه نسخة الى اخواني في المنتدى البرنامج شغال وقمت بتجربته على طابعة البطاقات يعمل 100% والحمد لله .. انت فقط اضبط اعدادات الطابعة جيداً يمكنك تغيير خلفيات البطاقات على راحتك لان صور خلفيات البطاقات معمولة بالفوتوشوب وجميع المعلومات هي افتراضية وغير حقيقية اسم المستخدم : اوفيسنا رمز المرور : 1234 حمل البرنامج من الرابط المباشر ادناه https://www.mediafire.com/file/yz3abye3mekko8z/234.rar/file الشكر موصول للأستاذ الخبير ابا جودي المحترم لأبداء المساعدة لنا اخواني ذا كانت هناك أخطاء لا تبخلوا علينا بالتنبيه ومنكم نستفيد لا تنسونا بالدعاء ولوالدي بالرحمة والمغفرة -------------------------------------------------------------------------------- 30-11-2020 النسخة المعدلة ، بصيغتي mdb و accdb 🙂 1289.اوفيسنا.zip

طيب بص دالة CEILING اولا هى دالة من دوال الاكسل وليس الاكسس ولكن ممكن تحقيقها برمجيا لتناسب الاكسس من خلال الاكواد والمرفق يوضح ذلك الشــــــــــــرح الوصف تُرجع رقماً تم تقريبه للأعلى، بعيداً عن الصفر، إلى أقرب مضاعف للوسيطة significance. على سبيل المثال، إذا كنت تريد تجنب استخدام السنت في الأسعار وكان سعر المنتج 4,42 ر.س.، فاستخدم الصيغة ‎=CEILING(4,42,0,05)‎ لتقريب السعر للأعلى إلى أقرب مبلغ صحيح. بناء الجملة CEILING(number, significance)‎ يحتوي بناء جملة الدالة CEILING على الوسيطتين التاليتين: Number مطلوبة. وهي القيمة التي تريد تقريبها. Significance مطلوبة. وهي المضاعف الذي تريد التقريب إليه. ملاحظات إذا كانت قيمة أي الوسيطتين غير رقمية، فستُرجع الدالة CEILING قيمة الخطأ ‎#VALUE!‎. يتم تقريب القيمة للأعلى عند تعديلها بعيداً عن الصفر، وذلك بغض النظر عن علامة الوسيطة number. أما إذا كانت number عبارة عن مضاعف صحيح للوسيطة significance، فلن يحدث أي تقريب. إذا كانت قيمة الوسيطتين number وsignificance سالبتين، فيتم تقريب القيمة للأدنى، بعيداً عن الصفر. إذا كانت قيمة number سالبة وكانت قيمة significance موجبة، فيتم تقريب القيمة للأعلى باتجاه الصفر. مثال انسخ البيانات النموذج في الجدول التالي، والصقها في الخلية A1 في ورقة عمل Excel جديدة. لعرض نتائج الصيغ، حدد هذه الأخيرة، ثم اضغط على F2، ثم اضغط على Enter. عند الحاجة، يمكنك ضبط عرض العمود لرؤية البيانات كافة. الصيغة الوصف ‎=CEILING(2.5, 1)‎ تقريب 2,5 للأعلى إلى أقرب مضاعف لـ 1 3 ‎=CEILING(-2.5, -2)‎ تقريب ‎-2,5 للأعلى إلى أقرب مضاعف لـ ‎-2 ‎-4 ‎=CEILING(-2.5, 2)‎ تقريب ‎-2.5 للأعلى إلى أقرب مضاعف لـ ‎-2 ‎-2 ‎=CEILING(1.5, 0.1)‎ تقريب 1,5 إلى أقرب مضاعف من لـ 0,1 1,5 ‎=CEILING(0.234, 0.01)‎ تقريب 0,234 إلى أقرب مضاعف من لـ 0,01 0,24 امثلة Ceiling(2.5, 1) equals 3 Ceiling(2.5) equals 3 Ceiling(-2.5, -2) equals -4 Ceiling(-2.5, 2) equals -2 Ceiling(1.5, 0.1) equals 1.5 Ceiling(0.234, 0.01) equals 0.24 وهذا المرفق الذي يخص تحقيقها بالاكسس برمجيا لانها غير موجودة بالاكسس Ceiling function.mdb وهذا المثال بالحلين الدالة round , الشرح السابق Asum.accdb وانظر هنا

بس الرقم الصحيح ده 2 مش 20

اتفضل فى الاستعلام DyCout: DateDiff("d",[AGAM1],[AGAM2]) وفى النماذج ان اردتها txtBoxName= DateDiff("d",[AGAM1],[AGAM2])

تأكد من المرفق

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

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

شوف كدا ... ممكن ... اذا هو ما تريد اكمل الاخير .... Users.accdb

جرب هذا الشيء Fuzi_class.xlsx

حبيبي استاذ الكريم الله يعطيك الف عافيه

السلام عليكم ورحمة الله وبركاته إلى : الأخوة الزملاء ..................... وفقكم الله أقدم لكم هدية متواضعة عبارة عن ( سند قبض وصرف ) اقتطعتهما من أحد برامجي . ولا تنسو أن تدعو لأبي بالشفاء العاجل ولجميع المسلمين ،،، السندات 2.1.rar

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

حبيبي استاذ الكريم الله يعطيك الف عافيه

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

اتفضل الكود على زر الامر ترجيل On Error GoTo Err_CmdMove_Click If IsNull([FBarcod]) Then MsgBox (ChrW("1581") & ChrW("1602") & ChrW("1604") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1575") & ChrW("1585") & ChrW("1603") & ChrW("1608") & ChrW("1583") & ChrW("32") & ChrW("1605") & ChrW("1591") & ChrW("1604") & ChrW("1608") & ChrW("1576")) Me.FBarcod.SetFocus Else Dim db As DAO.Database Dim rs As DAO.Recordset Dim i As Integer Dim intQty As Integer Set db = CurrentDb Set rs = db.OpenRecordset("TableBarcodeBrExh") intQty = [Nom] For i = i To intQty rs.AddNew rs("ID") = Me![id] rs("itmCode") = Me![CodeItem] rs("NameItem") = Me![ItemNam] rs("NoBarcode") = Me![FBarcod] + i + 1 rs("Unets") = Me![Unet] rs("NoMat") = 1 rs("Praice") = Me![PrIce] rs("Qty") = 1 rs("Totals") = 1 rs.Update Next i rs.Close Me![Form_BarcodeBrExhSubform].Requery MsgBox "done" End If Exit_CmdMove_Click: Exit Sub Err_CmdMove_Click: MsgBox Err.Description Resume Exit_CmdMove_Click

رائع ، بارك الله فيك هذا يؤدى المطلوب تماما لكن هل من السهل إظهار شريط التقدم ذو نسبة مئوية كالذى يظهر في برنامج داونلود مانجر مثلا ؟

1- من رقم بار كود : انت ياللى بتكتبه ؟ 2- والعدد : انت ياللى بتكتبه ؟ عدد الكرتونه الواحدة ام عدد الزجاجات بداخلها 3- الكمية التى يحتوى عليها الوحدة : انت ياللى بتكتبه ؟ عدد الكرتونه الواحدة ام عدد الزجاجات بداخلها

اخي محمد 🙂 لوسمحت اعمل مثال بالنتائج بالاكسل ، علشان ممكن نترجمه الى الاكسس 🙂 جعفر

هذا المرفق يحتوى على نموذج بدون مصدر بيانات وحقول غير منضمه ومن خلاله يتم الحاق البيانات بالجدول الشرح Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("اسم الجدول") rs.AddNew rs("اسم الحقل فى الجدول") = Me![اسم الكائن فى النموذج] rs.Update rs.Close 606969672_Unboundform.mdb

شوف كده رقم الباركود.accdb

أين تجد البند 3 في هذه الصزرة؟؟؟

لا والله الا مبدع وكذلك غير الكثير من المبدعين في هذا الصرح الشامخ وكلمة الحق تقال ونحن لا نزال ننهل من علمكم وابداعاتكم فجراكم الله خير الجزاء

كلمة مبدع قليله في حقك كلمة مبدع قليله في حقك

ادة مهمة لا غنى عنها تحويل الحروف والارقام الى الترميز العالمى UNICODE وذلك لكتابة الرسائل داخل المحرر منعا لمشاكل اللغة العربية نهائيا والعكس طبعا لقرائتها كرة أخرى Converter Arabic and Unicode (v. 2).mdb

انا بكل صدق مش فاهم شئ

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

حياالله الهاوي 🙂 هو نفس الحل في مشاركتي اعلاه (تجنب رقم الخطأ ، الى ان يتم الحفظ) : ولكن بطريقة مختلفه 🙂 جعفر

مرحبا لم أقرأ كل الردود فقد يكون هناك حلا نموذجيا لم أنتبه له ، فالمعذرة. هذا حل أستخدمه دائما وهو حل ناجح 100% Public Const Duplicate = 3022 With rst Do Err.Clear .AddNew !ID = Nz(DMax("ID", "MyTable"), 0) + 1 !Date = Date .Update Loop Until Err.Number <> Duplicate End With

اخي الفاضل ahsnko عنوانك مخالف : اصحاب الخبره : ( ترحيل بيانات حقل غير منضم الى جدول خاص به ) قسم الأكسيس Access Access هذا المنتدى مخصص لمشاركات الأكسيس قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف رجاء مراعاة هذه القوانين في المستقبل 🙂 جعفر

Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("اسم الجدول") rs.AddNew rs("اسم الحقل فى الجدول") = Me![اسم الكائن فى النموذج] rs.Update rs.Close

هذا يحتاج إلى قاعدة بيانات ضخمة مربوطة بالبرنامج.

حيث انك عضو جديد يمكن تجربة هذا الملف لكن في المرة القادمة الملف ضروري monney.xlsm

كل الشكر والتقدير نحتاج لمثل هذه الافكار حبذا لو تمت مشاركة نموذج يجمع أفكار كثيره برمجية ليستفيد الجميع أبدأ برفع نموذج به أفكار للمعادلات المحاسبية معادلات حسابية.mdb وهذا نموذج آخر من تصميمى لمهندسى الالكترونيات لقراءة المقاومة قراءة المقاومة.mdb

بعد اذنك استاذي القدير محمد استخدم هذا مع تعديل مايلزم ... Select Case TabCtl0 Case Is = 0 If InputBox("أدخل كلمة المرور للتعديل ", "حماية التعديل ") <> "1" Then MsgBox " كلمة المرور غير صحيحة ", vbInformation, " تنبيه " Else MsgBox "كلمة المرور صحيحة ", vbInformation, " تنبية" 'Form.AllowEdits = True End If Case Is = 1 If InputBox("أدخل كلمة المرور للتعديل ", "حماية التعديل ") <> "2" Then MsgBox " كلمة المرور غير صحيحة ", vbInformation, " تنبيه " Else MsgBox "كلمة المرور صحيحة ", vbInformation, " تنبية" 'Form.AllowEdits = True End If Case Is = 2 If InputBox("أدخل كلمة المرور للتعديل ", "حماية التعديل ") <> "3" Then MsgBox " كلمة المرور غير صحيحة ", vbInformation, " تنبيه " Else MsgBox "كلمة المرور صحيحة ", vbInformation, " تنبية" 'Form.AllowEdits = True End If End Select

تفضل النسختين ، accdb و mdb 🙂 جعفر 1289.اوفيسنا.zip

السلام عليكم ورحمة الله وبركاته أخي الكريم أبو أدهم🌺 أحسنتم أحسن الله إليكم وجزاكم الله خيراً.🙂👍

وعليكم السلام 🙂 هذا الكلام كله لا علاقة له بنسخة الاكسس التي قمت بتنصيبها على جهازك ، وانما له علاقة بصيغة قاعدة بياناتك ، accdb او mdb . نسخ الاكسس سابقا (الى النسخة 2003) كانت تستخدم نظام JET ، كانت تستخدم DAO بإصداراته ، برنامج منفصل عن النظام ، ولكن الاكسس من النسخة 2007 فأعلى ، يستخدم نظام ACE ، وقد دمج DAO في نظامه ، فبدلا عن اختيار DAO ، اختار Microsoft Office xx.x Access database engine Object Library كما هو موضح في الصورة (xx.x يعتمد على نسختك ، انا نسختي 2010 اي 14.0) ، اذا كانت قاعدة بياناتك بصيغة accdb : . بينما اذا كانت قاعدة بياناتك بصيغة mdb ، فـ DAO لا يزال موجود : . جعفر

تفضل جنيه مصري.accdb

السلام عليكم ورحمه الله وبركاته يوجد قاعدة بيانات بها جدولين الاول للمعلومات والاخر لترصيد الاجازات المرضية فعند عمل استعلام لفترة معينه لاستخراج مجموع ايام الاجازات المرضية يحدث انه يأخذ السجل المرتبط بالسنة .... المطلوب هو انه عندما اريد ان اعرف عدد ايام الاجازات المرضية التى حصل عليها الشخص فى عام 2020 ياخذ من اول التاريخ يعنى لو عندى شخص اخذ اجازة مرضية من تاريخ 12/12/2019 حتى 25/2/2020 فالمطلوب انه ياخد عدد الايام شهر يناير وهما 31 يوم + 25 يوم من شهر فبراير من المدة السابق ذكرها ويضيف باقى السجلات عليها فهل دة ممكن بالاكسس ولا لا مع جزيل الشكر مقدما لجميع الاخوة الاعضاء والمشرفين مرفق مثال للمطلوب عمله New Microsoft Access قاعدة بيانات (3) (1) (3).accdb

هههههههههه رزقك الله السعادة الدائمة في الدنياء والاخرة .. كما ترسم البسمة في وجوهنا هذا ما اخاف منه ههههههه