ابوخليل

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

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

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

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

ولا اجمل .. فكرة جميلة مختصرة رائعة .. سعدت بمشاركتك جربت الكود فوجدته يدرج حتى تاريخ الغد واخونا محمد سعيد يريده ان يتوقف عند تاريخ أمس لذا اضفت اليه سطرا لتقييده Dim dt As Date Do While dt < Format(Date, "DD/MM/YYYY") If dt = (Date) - 1 Then Exit Sub DoCmd.GoToRecord , , acNewRec dt = Nz(DMax("dater1", "table1"), Format(Date, "DD/MM/YYYY")) dater1 = dt + 1 Loop

انت ذكرت المدة يومين او ثلاثة فأعطيتك الاجابة حسب الطلب اما من سنة فهذا يعني ان عدد الايام سيزيد كثيرا لذا غير السطر التالي : Dim i, ii As Byte الى : Dim i, ii As Integer

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

غريب طيب جرب تعمل تجزئة للسطر هذا : Dim i, ii As Byte بحيث يصبح Dim i As Byte Dim ii As Byte

تفضل Private Sub Form_Load() Dim i, ii As Byte Dim dt1, dt2 As Date dt1 = DMax("dater1", "table1") dt2 = (Date) - 1 i = dt2 - dt1 For ii = 1 To i DoCmd.GoToRecord , , acNewRec dt1 = dt1 + 1 Me.dater1 = dt1 Next Me.Requery End Sub وهذا تطبيق : db4.mdb

تفضل وكما ذكرت لك الحل في خصائص العلاقة اتمنى ان يكون هو مطلوبك Sample.rar

الآن اتضحت الرؤية قيد النظر ...

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

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

عظم الله اجركم وجبر مصابكم وغفر لوالدكم اللهم اغفر له وارحمه وأكرم نزله وأبدله دارا خيرا من داره وأسكنه الفردوس الأعلى من الجنة إنا لله وإنا اليه راجعون

السلام عليكم المشكلة عندك اخوي عبدالرحمن في خصائص العلاقة بين الجدولين طبق كما في الصورة ادناه بين اي جدولين توجد مشكلة بينهما ( اختفاء بعض السجلات) لاحظ انه يمكنك عكس الخصيصة من الخيار الثالث انصحك بالقراءة حول العلاقات وخصائصها

شكرا اخونا وحبيبنا وأستاذنا ابا جودي على المداخلة المفيدة وكلماتك الرقيقة وشعورك النبيل

عليكم السلام هذا الأمر لإظهار مربع خصائص الطابعة الافتراضية Shell "rundll32 printui.dll,PrintUIEntry /p /n""" & Printer.DeviceName & """", vbNormalFocus وهذا لإظهار مربع حوار الطباعة DoCmd.RunCommand acCmdPrint

تم التعديل خطوات التعديل : 1- التعديل على السطر : Me.DayZero = -1 * Weekday(MyGrDate) ليصبح : Me.DayZero = -1 * Weekday(MyGrDate) + 1 2- التعديل على مسميات الايام : احد /اثنين / ثلاثاء ... الخ ( تعديل الارقام داخل التسمية ) UmAlQuraUp.rar

العنوان مخالف .. المنتدى عربي فاكتب بالعربية

السلام عليكم نعم هو ما ذكرت ، حاول التخلص من النماذج الفرعية واستخدم الاستعلامات مصدر لبناء التقرير

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

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

سبق وأن وجهتك الى المطلوب هنا ايضا الاخوة هنا طلبوا شرح وافي للبرنامج بمعنى انك تشرح عمل البرنامج وكأنك تعمل على الورق والدفاتر 1- البيانات التي يتم ادخالها على كافة العمليات .. 2- والنتائج المنتظرة يجب ان تنسى اكسل كليا ، اكسس سيتم عمله من الصفر

عليكم السلام لا يمكنني التعديل على المرفق هذه الدالة تستخرج مسار سطح المكتب لديك Function GetDesktop() As String Dim oWSHShell As Object Set oWSHShell = CreateObject("WScript.Shell") GetDesktop = oWSHShell.SpecialFolders("Desktop") Set oWSHShell = Nothing End Function

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