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

اخي الكريم لما تفتح موضوع لا تكرر الموضوع مرة اخرى .... حتى يتمكن الزملاء من الاجابة تفضل ..... Me.kanory.DefaultValue = "#" & "7 / 11 / 2021" & "#"

يجب ان تتعلم بنفسك هذه اسهل طريقة لكي تجلب البيانات من الجدول الى الحقول داخل النموذج ضع هذا الكود مثلا بعد تحديث حقل رقم الموظف Dim db As DAO.Database Dim rs As DAO.Recordset ]Dim MyTabol As String MyTabol="ضع هنا اسم الجدول" Set rs = CurrentDb.OpenRecordset("SELECT * FROM " & MyTabol ) If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) if rs.Fields("اسم الحقل في الجدل الذي يحمل رقم الموظف") = [اسم الحقل في النموذج الذي يحمل رقم الموظف] then ' هنا سيتم وضع شروط لتعبئة الحقول فقد اخترنا مثلا رقم الموظف [اسم الحقل1 في النموذج] = rs.Fields("اسم الحقل في الجدل1") [اسم الحقل2 في النموذج] = rs.Fields("اسم الحقل في الجدل2") [اسم الحقل3 في النموذج] = rs.Fields("اسم الحقل في الجدل3") [اسم الحقل4 في النموذج] = rs.Fields("اسم الحقل في الجدل4") end if rs.MoveNext Wend End If rs.Close Set rs = Nothing

تفضل هذا التعديل YasEnEx2021.rar

ربما يكون هذا هو السبب في عدم عمل كود الطباعة كود الطباعة يعتمد على أنه بمجرد تغيير قيمة الخلية v7 يتم جلب البيانات الخاصة بالشهادة وبعدها يعطي أمر طباعة الحالية وللدمج بين الكودين يمكنك اتباع الآتي: * جعل الخلية المرتبطة في spinner1 هي الخلية v7 وليست v1 * تغيير v1 إلى v7 في هذين السطرين في كود الإجراء Shehada x = (Ws.Range("V7") - 1) * 2 + 1 y = Ws.Range("V7") * 2 تغيير كود إجراء طباعة الكل إلى ما يلي: Sub printall() ActiveSheet.Select Range("w7") = Range("w7") / 2 For i = Range("v7") To Range("w7") Range("v7") = i Shehada If i <= Range("v7") Then ActiveWindow.SelectedSheets.PrintOut , Copies:=1, preview:=False, Collate:=True End If Next i ActiveSheet.Select End Sub لطباعة الشهادات من 1 إلى 8 نكتب بصورة طبيعية 1 في الخلية v7 ونكتب 8 في الخلية w7 سيحولها الكود من 1 الى 4 لأن في كل صفحة شهادتين بالتوفيق

طيب أخي الكريم ::::: ملاحظه هامة :::: يجب تذكير العميل قبل البدء بالتحديث باخذ اكثر من نسخة لبرنامجه ..... وممكن زيادة في الحرص برنامج التحديث نجعله يقوم بذلك ايضا للاحتياط اولا : نفترض ان العميل لديه قاعدة بيانات فيه نموذج frm_1 بدون حقل رقم هاتف ويريد اضافة رقم هاتف في برنامجة للعملاء واظهارة في النموذج المذكور علما أن برنامج العميل لدية جدول وليس فيه حقل للهاتف .... ثانيا : نحن ( المبرمج ) يريد تعديل النموذج frm_1 وأيضا اضافة حقل TEL في الجدول لدية ( شرط عدم تأثر البيانات لديه ) ثالثا : قام المبرمج ( نحن ) ببرمجة برنامج صغير لهذا الغرض وارساله للعميل عن طريق البريد او اي طريقة اخرى رابعا : شغل العميل البرنامج بعد وضعه في مجلد البرنامج لديه حيث قام البرنامج تلقائيا بالعمل قبل تجريب البرنامج افتح برنامج العميل المسمى nnn ولاحظ النموذج جيدا وافتح الجدول لترى عدم وجود الحقل ...... ثم اغلق البرنامج وشغل البرنامج Update >>>> افتح برنامج العميل وتأكد من التعديلات ....... ( هذا شرح ومثال مبسط للطريق ) ....... ناقل.rar

كل شيئ ظاهر .... انظر

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

اشكركم جميعا على تفاعلكم لقد توصلت الى الحل بمساعدتكم

انا اعمل على 2010 ولكن هكذا تظهر معي استاذي الفاضل

طبعا اخي ... من Format تذهب الى shape Effect ... وتختار ماتريد من الاشكل هذا طبعا بعد اختيار الزر الذي تريد تغيير شكله

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

عذرا لتطفلي استاذ مصطفى ...ادخال تاريخ افتراضي في الكود يبدوا غريبا فالبرامج تعمل لسنوات وقد نحتاج الى تغيير القيمة الافتراضية كود الاستاذ kanory يبدو منطقيا

ضع هذا الكود .... On Error GoTo err: ' Requires reference to Microsoft Office 15.0 Object Library. Dim fso As Object Set fso = CreateObject("scripting.filesystemobject") Dim fDialog As Office.FileDialog Dim varFile As Variant Dim destpath As Variant ' Clear listbox contents. Me.PicPath2 = "" ' Set up the File Dialog. Set fDialog = Application.FileDialog(msoFileDialogFilePicker) With fDialog ' Allow user to make multiple selections in dialog box .AllowMultiSelect = False ' Set the title of the dialog box. .title = "Please select one image" ' Clear out the current filters, and add our own. .Filters.Clear .Filters.Add "png image", "*.jpg" .Filters.Add "jpg image", "*.bmp" .Filters.Add "jpeg image", "*.png" .Filters.Add "jpg image", "*.jpeg" .Filters.Add "All Files", "*.*" ' Show the dialog box. If the .Show method returns True, the ' user picked at least one file. If the .Show method returns ' False, the user clicked Cancel. If .Show = True Then 'Loop through each file selected and add it to our list box. For Each varFile In .SelectedItems destpath = Application.CurrentProject.Path & "\" & "Pictures" & "\" & Me.Key & "." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) FileCopy varFile, destpath Kill (varFile) Me.PicPath2 = destpath Me.Refresh Next Else MsgBox "لقد قمت بالنقر فوق إلغاء الأمر في مربع حوار الملف." End If End With Exit Sub err: MsgBox err.Description & " " & err.Number تم اضافة هذا الجزء Kill (varFile)

🙂

تفضل .... Me.kanory.DefaultValue = "#" & "7 / 11 / 2021" & "#"

للأن مافهمت هذي العبارة كيف تحتاج تدخل 60 قيد دفعة وحدة بدون ملف الإكسل ؟؟؟ اتضفل هذا التعديل 3333NewData22.zip

هل تريد ادخال القيمة الافتراضية من مربع نص اخر ؟

Me.kan.DefaultValue = "#" & Me.kanory & "#"

وعليكم السلام 🙂 كنت شاطر يوم من الايام ، وعملت هذا : والتكملة على قائمتي ، ان شاء الله يوم من الايام اعملها 🙂 جعفر

أ / محمد صالح يا ريت توضيح لأنى مش فاهم تعليق حضرتك

اخوي @ابو رسول ، انت مررت على الموضوع عدة مرات ، فهل عندك استفسار ؟ جعفر

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

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم test1.rar تحياتي

لقد اختصرت النقاط الموجودة على ملف اكسل ووضعت الملف مره اخرى وشكرا اخي عبدالفتاح في بي اكسل على ملاحظتك test.xlsm

لا أنصح باستخدام Last فهي لا تعني الأكبر حيث Last تعني آخر إدخال هنا يجب أن تضمن أن الإدخالات أدخلت بالترتيب الزمني 100%. عموما عملت لك حل آخر ولا يهون الأساتذة الذين سبقوني بالحل ، وهو تصميم استعلامين بدلا من استعلام واحد فهو أكثر ضمانا لصحة البيانات المطلوبة. كما صممت لك استعلام ثالث يظهر لك الإختلافات بين الأكبر والأخير وقد أظهر اختلافات لـ 105 طالب. الإستعلامات التي صممتها تبدأ بـ qry. test_Hawiii.rar

جميعا بإذن الله تعالى

بارك الله فيك أستاذ محمد وان شاء الله في ميزان حسانتك

يوجد معادلتان في الشيت الأولى تقوم بجمع المبالغ الموجودة في العمود D والثانية تقوم بعد هذه المبالغ وتعملان حتى الصف 1000 ويمكنك زيادة نهاية الصفوف في المعادلة إذا تجاوزت 1000 صف من المبالغ

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

شكر وتقدير واحترام من اخيك

جرب كده ( شغال تمام) الملف بالمرفقات رسالة.accdb

ثمانية مطلوبات !!!!!! ....... وكل واحد منهم يحتاج الكثير من العمل !!!!! الهدف الأساسي للمنتدى هو تبادل الخبرات ومساعدة كل منا للآخر فيما لا يستطيع عمله وليس في أن يصمم أحدنا للآخر برنامجا كاملا (فما مقابل الوقت والجهد المبذول في تصميم وبرمجة الملف؟؟!!) فالأفضل هو قراءة الموضوعات التي يتعلم منها الإنسان تصميم برنامجه بنفسه وإذا عجز عن نقطة أو اثنين على الأكثر يعرضها ساعتها سيجد الجميع يساعده

جرب هذا الكود Private Sub Form_Load() [Forms]![form1]![tDate] = "08/07/2021" End Sub

الصورة المرفقة ليست نفس قاعدة البيانات المرفقة تأكد جدياً من وجود عنصر الصور باسم imgPicture وتأكد من وجود حقل PicFile تحياتي

تفضل اخي الكريم بيانات.accdb تحياتي

جزاكم الله كل خير جميعا. وأحب أن أبشركم بأني في طريقي للانتهاء من برمجة أقصر واسرع كود للتفقيط (54 سطر برمجي) متعدد اللغات ويمكن تخصيصه لجميع العملات. ولكن نظرا لاهتمامي بلغة الويب قمت بعمله أولا في هذه الصفحة أونلاين https://www.mr-mas.com/p/tafqeet.html وجاري تحويله ليعمل على فيجوال بيسك للتطبيقات vba تابعونا

اخواني الاعزاء قمت بتنزيل برنامج اكسس من كمبيوتر عادي الى لاتوب للتجربة على جميع البيئات ولما احاول اشغل البرنامج بيطلع لي هذا الخطأ وهو نقص في المراجع missing or broken reference to file dao2535.tlb version 3.50 سؤالي من اين اقدر ان احصل عى هذا المرجع لاضعه في برنامج التنصيب حيث انى كنت منزل الفيجوال بيسك على الجهاز العادي يعني ما اريد اروح لكل زبون واقول له نزل الفيجوال بيسك قبل ان تشتغل على برنامجي والف شكر لكم محمود

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

السلام عليكم ورحمة الله وبركاته اريد ان اربط قاعدة بيانات اكسس بالانترنت، هل يمكن؟افيدوني جزاكم الله خيراً... بعض الاخوان قالوا يجب عليك تحويل قاعدة البيانات الى ASP هل هذا صيحيح ؟ واذا كان صحيح ؟ افيدوني عن الطريقة جزاكم الله خيرا ... والسلام عليك ورحمة الله وبركاته. :lol:

كيف يمكنني اظهار صورة اليد عن الإشارة الى زر امر

السلام عليكم ياجماعة عندي جدولين جدول به الحقول التالية كود الدواء الكمية الواردة 1 15 2 20 3 30 وجدول آخر به الأعمدة التالية كود الدواء الكمية المنصرفة 1 5 2 15 سؤالي هو عملت استعلام لكي يحسب مايلي كود الدواء الكمية المتبقية النتائج ستظهر عندي كالتالي 1 10 2 5 3 طبعا السبب عدم وجود بيانات مسجلة في جدول الكميات المصروفة للدواء رقم 3 لاحظ المشكلة هنا الدواء صاحب الكود 3 لاتظهر كميته المتبقية طبعا لاأريد أدخل و اسجل في جدول الكميات المنصرفة صفر للدواء الذي كوده 3 هل من حل ؟

السلام عليكم ورحمة الله وبركاته اخواني الاعزاء :h اقدم لكم هذا الشرح المفصل عن كيفية ربط الاكسس بالفيجوال بيسك راجيا من الله تعالى ان يحوز على رضاكم تفضلوا-------> :d :d [move]لاتنسى ذكر الله وانت تتصفح فتكسب خيري الدنيا والاخرة[move] تفضل هنـــــا

السلام عليكم ورحمة الله وبركاته اخواني الاحبه مرفق معكم فى هذا النموذج الموضوع الذي ساقوم بشرحه عندي فى الاستعلام فترتين الفتره من والفترة الى وكل ما اريد عمل استعلام تاتي لى البيانات من بداية التاريخ و نهايته فقط بالرغم انه يوجد بيانات كثيره فيما بين التاريخين فانا اقوم باستعلام من فتره 1/1/2004 الى 30/6/2004 فياتي الى الاستعلام بكل ما يحتويه على هذا التاريخ فقط فتاتي النتيجه بهذه التوتريخ فقط فيوجد تواريخ كثيره بداخل البرنامج وايضا ستاتي فتره اخرى لادخال بيانات وهى من 1/7 الى اخر السنه اذن عندي فترتين اخواني الاحبه اريد الكود على هذا المثال المرفق وجزاكم الله كل الخير

السلام عليكم ورحمة الله وبركاته أساتذتي الكرام وجدت هذين البرنامجين Access 2 MySQL Visual SQL designer هنا http://www.arabsgate.com/edu/vb/showthread...threadid=406483 فلعل أحدأ من روّاد المنتدى يبحث عنهما 0 وهذا مشابه لوظيفة الأوّل من المطوّرين العرب (صقر العنزي) http://www.4alarb.com/down/mysql.zip

بسم الله الرحمن الرحيم المثال موجه لمن يريد التخلص من إدخال التواريخ بالطريقة المعتادة وللذين يريدون إضافة لمسة إحترافيه إلى برامجهم ،،، يتميز المثال المرفق بالأتي : 1- سهولة إختيار التاريخ بواسطة تقويم مرئي (كلندر) . 2- إمكانية إدخال التاريخ بالأيام أو الأسابيع أو الأشهر أو السنوات. 3- إمكانية إدخال الوقت بجانب التاريخ (حسب ما تفضل). ملاحظة: الفكرة منقولة من أحد المنتديات الإجنبية وقمت بالتعديل عليها لتصبح مفهومة وعملية لإستخدامها في برامجكم. أترك لكم الآن فرصة إنزاله وتجربته ولا أطمع سوى من دعائكم الطيب. ________________________________________.rar

انا هاوي في الاكسس وليست عندي الخبرة الكافية وارغب في حساب المتوسط للدرجات بحيث انه يمكن ان لا يكون هناك درجة في احد الحقول مثال درجات احمد عربي1 =10 عربي2= 8 عربي3= 7 عربي4= لم يتقدم للامتحان متوسط العربي = عربي1+عربي2+عربي3 مقسوما على 3 ويهمل عربي4 لانه لم يتقدم للامتحان