ابوخليل

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

السلام عليكم تفضلوا اساتذتي هذا المثال _من سنين مضت _ كان عمله لي استاذنا القدير عبدالله باقشير اتمنى تجدوا فيه الفائدة استيراد وتصدير اكسل اكسس.rar

الدرس الأول : ارفقت لك جزء من الجداول بعد اعادة صياغتها .. وهي الجداول الفرعية الخدمية 1- ادرس طريقة التصميم جيدا ( تسميات الجداول / وصف الجداول / تسميات الحقول / وصف الحقول / التسمية التوضيحية للحقول / خصائص الحقول ) بالنسبة الى وصف الحقول يمكنك الإسهاب في الوصف بحيث يعطي وصفا كاملا لوظيفة الحقل وعلاقاته ان وجدت 2- قم بتعبئة جميع البيانات كاملة في هذه الجداول 3- اعد رفع المرفق بالصيغة نفسها mdb .. بمعنى لا تتعبني في نقل الملف الى جهاز آخر لاني اعمل على اكسس 2003 فقط . 4- اللي عنده شغف حب التعلم يسأل عن كل صغيرة وكبيرة لم يفهمها .. وباب السؤال مفتوح في ما يخص الدرس لجميع اخواني الاعضاء المبتدئين . copy02.mdb

تفضل الحل الافضل وهو كون الحدث يخص كل حقل لوحده في حدث بعد التحديث لاي حقل يتم الفحص والاجراء هو : اما انشاء مجلد جديد او تغيير اسم المجلد ان كان موجودا Dim i1 Private Sub Text1_GotFocus() i1 = Text1 End Sub Private Sub Text1_AfterUpdate() Dim fs, cf strFolder1 = CurrentProject.Path & "\" & Me.Text1.Value strFolder11 = CurrentProject.Path & "\" & i1 If MsgBox("سيتم ( إنشاء / تغيير ) اسم المجلد حسب القيمة الجديدة", _ vbQuestion + vbOKCancel, _ "تنبيه") = vbOK Then Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder11) = False Then Set cf = fs.createFolder(strFolder1) Else Name strFolder11 As strFolder1 End If Else Undo Exit Sub End If End Sub تغير اسم المجلد حسب قيمة الحقل.mdb

خذ نسخة من قاعدة البيانات ثم اعمل على هذه النسخة : 1- احذف جميع النماذج والتقارير والاستعلامات 2- احذف بيانات جدول الاسماء 3- اعمل ضغط واصلاح لقاعدة البيانات

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

ضع الكود في حدث النقر على زر فتح التقرير DoCmd.OpenReport "RepName", acViewPreview Reports("RepName").Printer.Orientation = acPRORLandscape 'أفقي 'Reports("RepName").Printer.Orientation = acPRORPortrait 'عمودي

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

عليكم السلام ورحمة الله وبركاته اخي الكريم .. هذا المنتدى تعليمي مجاني حسب توفر اوقات الخبراء والاعضاء . فقط ارفق آخر ما وصلت اليه هنا ، والافضل لك ان تبدأ من اول درجات السلم ، بمعنى ان تكتفي بارفاق الجداول فقط وانصحك بالتحلي بالصبر . فالجداول هي الأساسات وانا اعتبرها نصف عمل المشروع اذا اجدت فهم تأسيس الجداول بالطريقة العلمية الصحيحة فاعتبر نفسك قد تجاوزت 50% من فهم عمل قواعد البيانات ...................... يوجد قسم لإعلانات الأعضاء بمقابل مالي يمكنك الإعلان هناك ان اردت ، وخذ باعتبارك ان الموقع غير مسؤول عن التبعات .

نعم هو فقط لإدراج الرقم التلقائي المحذوف . ........ ايضا تجد أدناه مثالا لإظهار الأرقام المحذوفة من عمل الأستاذة زهرة .. اتمنى ان تجد فيه الفائدة . ارقام التسلسل المفقودة.rar

المهم من خصائص الحقل يكون لا يقبل التكرار Set rs = CurrentDb.OpenRecordset("tbl1") i = text1 rs.AddNew rs!id = i rs.Update وادناه تطبيق لادراج رقمك المحذوف مع بعض الضوابط اعادة رقم محذوف في الترقيم التلقائي .mdb

تفضل التقرير يومي2.mdb

nmtext: IIf([time1]>=#06:00:00 ص# And [time1]<=#11:59:59 ص#;"صباح";IIf([time1]>=#12:00:00 م# And [time1]<#06:31:00 م#;"مساء";IIf([time1]>=#06:31:00 م# And [time1]<=#11:59:59 م#;"ليلا";IIf([time1]>=#12:00:01 ص# And [time1]<#06:00:00 ص#;"ليلا";"")))) في الكود اعلاه لان الاوفيس عندي عربي اختل ترتيب السطر يمكنك استبدال حرف الصاد المفرد بـــ Am وحرف الميم المفردة بـــ Pm تفضل تطبيق على العملية انظر في الاستعلام qry1 db4.mdb

يمكنك تحقيق ذلك باستخدام if او iif وتجعل شرطين اكبر ( < ) من الوقت الفلاني And اصغر (>) من الوقت الفلاني مثلا : if datetext > 05:59:59 And datetext < 12:00:00 then nmtext = "صباحا" الدالة الأخرى: nmtext : IIf (datetext > 05:59:59 And < 12:00:00 ; "صباحا")

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

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

انظر في هذا الموضوع وهذا الموضوع كيف تعرض طابعاتك في قائمة وتختار منها الطابعة الافتراضية

المنتدى مليء بالمواضيع التي تتحدث عن هذا فقط ابحث وهذا واحد منها

اذا نظامك 32 الصق في اعلى الصفحة في محرر الفيجوال هذا السطر : Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long واذا نظامك 64 الصق السطر هذا : Private Declare PtrSafe Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long ثم استبدل كودك بهذا : Private Sub Command34_Click() On Error GoTo Err_Command34_Click Dim stDocName As String DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 '======================================== SetDefaultPrinter ("اكتب اسم الطابعة هنا") '=========================================== stDocName = "stool" DoCmd.OpenReport stDocName, acNormal Exit_Command34_Click: Exit Sub Err_Command34_Click: MsgBox Err.Description Resume Exit_Command34_Click End Sub

عليكم السلام ما نظام التشغيل لديك ؟ 32 ام 64

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

نعم تستطيع ولكن حاول في عملك القادم ان تجعل الترقيم التلقائي هو مفتاح الجدول بمعنى انه يكون ملك لأكسس لا يظهر للمستخدم . وتدرج في الجدول ترقيما تلقائيا مصنوعا

حسب الاحتياج الطريقة الثانية بلا وسيط تتجاوز النموذج الى الجدول مباشرة

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

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