ابوخليل

فهم السؤال نصف الإجابة تفضل Dim i i = Nz(DLookup("TENDER_NO", "main", "TENDER_NO='" & T30 & "'"), 0) If i = 0 Then MsgBox "رقم الطلب غير موجود ولا يوجد عملية بهذا الرقم ", , "تنبيه" DoCmd.CancelEvent Exit Sub Else DoCmd.OpenForm "fmain", acNormal End If fmain3.rar

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

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

طلبك هذا غير مفهوم انظر لهذه الطريقة لطلبك الأول اذا تصلح لك fmain2.rar

حسب علمي .. حقل المرفقات يختلف عن الحقل النصي لأن الوصول الى خصائص الصورة داخل حقل المرفقات مختلف بمعنى الصورة التي يحتويها ليس لها خصيصة : picture فأمامك حل من اثنين : اما يكون الجدول مصدر للتقرير واما ان يتم اخراج المرفق كصورة خارج قاعدة البيانات وهنا يمكننا اظهار الصورة في التقرير وبما انك ذكرت ان مصدر التقرير ليس الجدول فإليك الحل الآخر . Sub SaveAttach() On Error Resume Next Dim rs As dao.Recordset Dim strobj As dao.Recordset Dim strPic As String strPic = CurrentProject.Path & "\pic.JPG" Set rs = CurrentDb.OpenRecordset("Table1") Set strobj = rs.Fields("logo").Value strobj.Fields("FileData").SaveToFile strPic Me.Image0.Picture = strPic End Sub Private Sub Report_Load() Call SaveAttach End Sub 220.rar

بما ان نوع الحقل نصي فلا يمكن تطبيق تنسيق التاريخ عليه داخل الجدول لو ان نوع الحقل (تاريخ/وقت) لأمكن عرض المطلوب داخل الجدول انظر الاستعلام .. ويمكن استخراج النتيجة ايضا في النموذج او التقرير مثال2.rar

لفصل التاريخ vdate=format([textDate];"yyyy/mm/dd") لفصل الوقت vtime=format([textDate];"hh:ss")

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

كمشروع مشتريات ومبيعات .. التصميم خطأ من الأساس امامك مشوار طويل اعد تصميم جداولك على اسس علمية صحيحة ( اقرأ .. ثم اقرأ .. ثم اقرأ .. ثم طبق ) المنتدى مليء بالدروس التعليمية للمبتدئين . ابحث وتعلم

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

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

هذه مشكلتكم كمحاسبين .. وليس طبيعي الطبيعي ان البيانات تدخل اول بأول .. ولو حدث سقط .. يتم ادراج البيانات بتاريخ اليوم الحالي ويشار الى التاريخ الحقيقي في البيان او الملاحظات --------------------------------- لا يخطر على بالي الآن فكرة ترتيب وترقيم حسب منهجكم .. غير التاريخ لذا نرجع ونستقر على طريقتنا الأولى . DSUM4.rar

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

ابتداءً نعم كمشتريات .. وفي نهاية المدة يمكننا ترحيل الارصدة الفعلية النهائية لتصبح ارصدة بداية المدة لكن ما دمت ستعمل برنامج مطلوب منك انجازه فأرى ان تعمل على طريقتك .. وفكرتي اجعلها في التجارب مربط الفرس هو البند الثالث من التسلسل وكأنك تميل الى فكرة الجدول الواحد ؟ هنا يلزمنا عمل ثلاث حقول اساسية أو اربعة ( بعيدا عن بقية الحقول المهمة الأخرى مثل معرف الصنف وغير ذلك) المخزن والنقطة يشتركان في واحد من هذه الحقول الثلاثة 1- المشتريات او الوارد : يخص المخزن 2- المبيعات : يخص النقطة 3- المحول : يشترك فيه المخزن والنقطة .. للمخزن = صادر .. وللنقطة= وارد 4- حقل المعرف ---------------- نجري عملية : تم شراء 1000 سلعة واودعت في المخزن وتم تسجيل فاتورة مشتريات وتم رصد العدد في الحقل1 + معرف المخزن في الحقل4 ( لاحظ امكانية العمل مع اكثر من مخزن ) تم تحويل 100 منها الى النقطة1 .. يتم تسجيل فاتورة تحويل ويتم رصد العدد في حقل3 .. + معرف النقطة في الحقل4 ( امكانية العمل مع اكثر من نقطة) تم بيع 50 منها من النقطة1 .. يتم تسجيل فاتورة بيع ويتم رصد العدد في حقل2 .. + معرف النقطة في الحقل4 ___________ الآن يمكننا عمل استعلام عن صنف محدد في مخزن محدد او جميع المخازن عن المشتريات وعن الصادر والأرصدة الناتجة كما يمكننا عمل استعلام عن صنف محدد في نقطة محددة او جميع النقاط عن المحول (الوارد) وعن المبيعات والأرصدة الناتجة كل هذا حسب مخزن واحد او اكثر أو حسب نقطة أو اكثر و حسب صنف او اكثر

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

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

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

تفضل Weekday(Date)=6 Or Weekday(Date)=7 عدلت لك تسميات ... الأيام = d1 , d2 ,d3 وهكذا .. والحقول t1 , t2 , t3 وهكذا ... بحيث تكون سهلة بديهية على غرار الارقام وعملت لك التنسيق الشرطي للعشرة حقول الأولى .. اكمل البقية .. من اجل تستفيد وتتعلم 4schoolالغياب.rar

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

هل ما قدمته لك مناسب ؟ انت عرضت علي في اكسل ثلاث جداول او حالات .. الدائن والمدين والرصيد وانا جعلتها لك في سطر واحد التجميع يتم حسب الحساب والمتجر

اختلف الموضوع .. فضلا .. طلباتك القادمة على هذا التقرير افتح عنوانا جديدا واقول اختلف لأن العمل اساسه اكسل او تم جلب الجدول من اكسل .. لأنه لا يتصور في اكسس ادخال قيم بالسالب على كل حال تم تحقيق الطلب .. باستخدام جدول مؤقت يفرز القيم السالبة عن الموجبة ثم تم التجميع في التقرير حسب اسم الحساب وحسب المتجر ثم استخراج الرصيد وتم وضع المجاميع في الأسفل Data21.rar

تفضل NEW_Hedar4.rar

على الرحب والسعة نعم ممكن تفضل 3schoolالغياب.rar

ينفع ؟؟ تقصد هل يمكن ؟ لأن هل ينفع ؟ توحي بالاستفسار عن الافضلية . ------------------------ طيب شوف التعديل التقرير يفتح على عرض الطباعة .. يعني تمشي الصفحات من الازرار اسفل اطار التقرير ملحوظة : اختر فقط الصف واترك الفصل ( الشعبة ) خالي 2schoolالغياب.rar

تفضل هذه الدالة في وحدة نمطية عامة من اجل تأخذ القيمة من الجدول بناء على المتغير getPrintOrPdf قيمة هذا المتغير تأخذ 1 أو 2 وقت النقر على الازرار .. زر الطباعة =1 وزر البي دي اف =2 Public getPrintOrPdf As Byte Public Function funReportPrintOrPdf() As Byte Dim prntNon, prntWrd, prntPic, pdfNon, pdfWrd, pdfPic prntNon = DLookup("Non", "Reportsettings_tbl") prntWrd = DLookup("Words", "Reportsettings_tbl") prntPic = DLookup("Photo", "Reportsettings_tbl") pdfNon = DLookup("NotHDFot", "Reportsettings_tbl") pdfWrd = DLookup("WORDPDF", "Reportsettings_tbl") pdfPic = DLookup("IMAGEPDF", "Reportsettings_tbl") If getPrintOrPdf = 1 Then If prntNon = True Then funReportPrintOrPdf = 1 If prntWrd = True Then funReportPrintOrPdf = 2 If prntPic = True Then funReportPrintOrPdf = 3 ElseIf getPrintOrPdf = 2 Then If pdfNon = True Then funReportPrintOrPdf = 1 If pdfWrd = True Then funReportPrintOrPdf = 2 If pdfPic = True Then funReportPrintOrPdf = 3 End If End Function وهذه الاكواد في محرر التقرير اخفاء الرأس والذيل في حدث فتح التقرير والتحكم في النص والصورة في حدث الطباعة للرأس والذيل Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer) If funReportPrintOrPdf = 2 Then Me.HRA2.Visible = True Me.HLA2.Visible = True Me.footerimage.Visible = False ElseIf funReportPrintOrPdf = 3 Then Me.HRA2.Visible = False Me.HLA2.Visible = False Me.footerimage.Visible = True End If End Sub Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer) If funReportPrintOrPdf = 2 Then Me.HRA.Visible = True Me.HLA.Visible = True Me.Headerimage.Visible = False ElseIf funReportPrintOrPdf = 3 Then Me.HRA.Visible = False Me.HLA.Visible = False Me.Headerimage.Visible = True End If End Sub Private Sub Report_Open(Cancel As Integer) Call funReportPrintOrPdf If funReportPrintOrPdf = 1 Then Me.PageHeaderSection.Visible = False Me.PageFooterSection.Visible = False Else Me.PageHeaderSection.Visible = True Me.PageFooterSection.Visible = True End If End Sub NEW_Hedar2.rar