qathi

لا يوجد لدي ألا المثال الذي تم ارفاقة في الاعلى فاتورة بيع

أهلاً بك أخي الكريم @محمدنجار وشكراً على ردك .. أتمنى أن كان بالأمكان أرفاق مثال على ذلك حتى يتضح لي الأمر

للرفع ..

أخي @nogom تفضل وانظر للملف التالي الذي استخدمة قد يفيدك في طلبك Invoice.rar

تفضل هذا ملف PName.rar أنظر للرابط التالي فيه شرح ما تريد ماعدى مايخص الاسكانر

للرفع .. هذا مثال غير مكتمل لفاتورة بيع ملاحظة بسيطة جدول AR ونموذج AR بالمتبقي على العميل .. بعد انشاء فاتورة من نموذج InvoiceHT اذا العميل سدد قسط من الفاتورة يتم تخزين المتبقي في جدول AR مرفق الملف Invoice.rar

بارك الله فيك أخي @غريب طرابلس وسلمك الله وعافاك شكراً لك على جهدك الرائع .. نعم بالفعل هذا هو المطلوب

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

أخواني الأعزاء ممكن كود يتم فرز النتائج بالفورم الفرعي على ماتم اختيار من القائمة List Box وهذه صورة للتوضيح شاكر لكم تعاونكم

أخي الكريم كود الأستاذ @AlwaZeeR سليم قم بتغير فواصل المعيار من (,) الى (;) بحيث يصبح الكود كالتالي =Day(DateSerial(Year([datex]);Month([datex])+1;0)) مرفق الملف بعد التعديل EX.rar

للرفع ..

لا عليك @ابا جودى أعمل مابدى لك .. أمين .. شكراً أخي @حلبي

تفضل سيفيد هذا الملف في عملك... عمل الملف بالتالي: أولاً: يتم ادخال الاسم ثانياً: الضغط على زر أضافة يتم أنشاء مجلد لأول مرة باسم image في نفس مسار ملف الاكسس وبعد أختيار الصورة يتم نسخ الصورة بالمجلد image بنفس الاسم التي تم أضافته ويتم تخزين المسار الجديد للصورة بالجدول وهذ الكود المضاف في زر اضافة On Error Resume Next Dim fs, cf, strFolder strFolder = CurrentProject.Path & "\" & "Image" Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder) = False Then Set cf = fs.CreateFolder(strFolder) If fs.FolderExists(strFolder) = True Then MsgBox "'" & strFolder & "' تم انشاء المجلد في المسار التالي " Else MsgBox "'" & strFolder & "'لم يتم انشاء المجلد" End If End If ' Requires reference to Microsoft Office 14.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.picfile = "" ' 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 = "رجاءً قم بتحديد مكان الصورة" ' Clear out the current filters, and add our own. .Filters.Clear .Filters.add "png image", "*.png" .Filters.add "jpg image", "*.jpg" .Filters.add "jpeg image", "*.jpeg" .Filters.add "All Files", "*.*" If .Show = True Then For Each varFile In .SelectedItems destpath = Application.CurrentProject.Path & "\" & "Image" & "\" & Me.NameS & "f." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) FileCopy varFile, destpath Me.picfile = destpath Me.Refresh Next Else MsgBox "You clicked Cancel in the file dialog box." End If End With Exit Sub err: MsgBox err.Description & " " & err.Number ============= أن أفادك .. فدعوة لي ولوالدي مرفق الملف: PName.rar

تفضل هذا الكود من فورم رئيسي [Total].ColumnHidden = True من فورم فرعي [SershSub].[Form]![Total].ColumnHidden = True حيث أن SershSub اسم الفورم الفرعي و [Total] اسم الحقل المراد أخفائة

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

متابع

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

أخي حسين كنت أبحث عن حل لهذه المشكلة من قبل .. ممكن شرح الكود قمت بتحويل كود SQL عبر نامج تحويل فأصبح كالتالي : strSql = "SELECT tabol2.ITEM_CODE, tabol2.ITEM_NAME2, tabol2.FACTOR, tabol2.ITEM_BARCODE, tabol2.ITEM_PRICE, tabol2.ITEM_STATUS " & vbCrLf & _ "FROM tabol2;" الصيغته ليست كما أدرجت أنت ينما الملف الذي أرفقته يوجد أضافات معينة كالاقواس بهذا الشكل : DoCmd.RunSQL "INSERT INTO tabol2(ITEM_NAME2,ITEM_BARCODE,FACTOR,ITEM_PRICE,ITEM_STATUS)values(ITEM_NAME2,ITEM_BARCODE,FACTOR,ITEM_PRICE,ITEM_STATUS)" أذا أمكن شرح الخطوات والكود حتى أفهم كيفية أدراجة في أعمالي ... لأني قمت بتجربت أكواد من قبل ولم تأتي بمفعول

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

أخي @محمد عبد الشفيع كيف رائيت برنامج الأستاذ @Shivan Rekany هل في شيء ينقصة أم لا أذا كان لديك مقترح حالياً بخصوص الحمايه وليس التحزيم حتى يتم تكامل الأفكار بتطوير الملف .. كما أن الأستاذ شفان جزاه الله خيراً متفاعل معنا

أهلاً وسهلاً بأستاذنا الغالي @ابو ياسين المشولي بشرك الله بخير الدنياء والأخرة .. جزاك الله خيراً شكرا على جهدك الكبير ..

للرفع ..

ننتظر منك ذلك .. أن شاء الله

أستاذ @sandanet كنا ننتظر وضع فكرتك مكتمله كما أشرت من البداية

للرفع ..