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

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

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

في الاساس برنامج نقطة بيع الذي عملته لمبيعات التجزئة لمتاجر وانشطة صغيرة ندخل في الموضوع اغلب الاصناف يتم توريدها بالكرتون ويتم ترميزها برمز الكرتون لمبيعات كرتون وترمز بالعلبة للبيع المفرد وهو الاكثر مبيعا الترميز فقط للاصناف الجديدة التي لم يسبق ترميزها الاصناف بالكرتون عند بيعها بالكرتون لا توجد هنا اي مشكلة اما اذا اردنا ان نفتح كرتون لبيع مفرد او تلف لبعض العبوات في الكرتون او تلف التغليف الخارجي للكرتون فلدينا شاشة تفريد الاصناف يتم فيها اختيار الصنف ( الكرتون ) والصنف المفرد ثم النقر على امر تفريد فيتم زيادة كمية الصنف علبه او وحدة بعدد العلب الموجودة في الكرتون اي ان اضافة الاصناف المفردة تكون لدينا من خلال فاتورة المشتريات مباشرة او من خلال شاشة تفريد صنف اما الصنف كرتون فيكون فقط من شاشة فاتورة مشتريات اي صنف يتم تفريدة يتم نقل تكاليفة الى صنف مفرد وتنقص كميتة من رمز كرتون مثلا لدينا 10 كراتين ماء صفا 200 مل تم تفريد كرتون واحد يكون المتبقي 9 كراتين وفي خانة ملاحظات كرتون 1 تم التفريد وتزيد كمية علبة ماء صفا بمقدار 48 علبة على العموم البرنامج في مرحلة التجربة في بيئة عمل فعلية وهناك العديد من الملاحظات التي لم يتسع وقتي لمعالجتها بسبب الاوضاع الحالية والمزاج الغير مواتي وتقبل اطيب تحياتي

جرب هذا الماكرو Option Explicit Sub salim_code() Dim s As Worksheet Dim La%, I%, Ro1, Ro2 Dim F_rg As Range, Source_rg As Range Dim My_number Set s = Sheets("Sheet1") La = s.Cells(Rows.Count, 2).End(3).Row Set Source_rg = s.Range("B4:B" & La) Source_rg.Font.ColorIndex = vbBlack My_number = Abs(s.Range("F3")) For I = 5 To La If IsNumeric(Cells(I, 2)) Then _ s.Cells(I, 2) = Abs(s.Cells(I, 2)) Next For I = 4 To La If s.Cells(I, 2) = My_number Then s.Cells(I, 2) = -s.Cells(I, 2) s.Cells(I, 2).Font.ColorIndex = 3 End If Next I End Sub الملف مرفق Saerch_Please.xlsm

أهلا بك @ابو البشر بالنسبة للرقم (1): المنهج GetRows يعيد عدد من صفوف بيانات الجدول المشار إليه في المتغير الغرضي XLRS. والرقم بين القوسين يبين عدد الصفوف المطلوب إعادتها.. المنهج GetRows يعيد مصفوفة بيانات من حدين؛ الحد الأول يمثل رقم عمود البيانات (الحقل) في الجدول والثاني يمثل رقم الصف البيانات (السجل).. هذه الحدود يبدأ ترقيمها بالرقم 0 يجب اسناد المنهج GetRows إلى متغير مصفوفة بيانات عامة غير معينة الحدود.. وهو هنا RCROW؛ وهو المشار إليه بالرقم (2). وكمثال (0,0)RCROW يعيد قيمة العمود الأول من الصف الأول في جدول البيانات. بالنسبة للرقم (3) :عند تجهال أسماء أعمدة البيانات المستوردة من أكسل يقوم أكسس بوضع أسماء مزيفة تبدأ بـ (F1)؛ و (F) اختصار كلمة Field و(1) رقم عمود البيانات في أكسس.. إذا كانت ورقة البيانات في أكسل تحتوي على أسماء للأعمدة فيمكن تغيير ذلك من خصائص استيراد البيانات؛ إما على مستوى مصنف البيانات أو على مستوى ورقة بيانات محددة... بالنسبة للرقم (4): يمكن الاستغناء عن المحدد، أو توسيع نطاقه.. لكن لا يمكن استخدام نطاقات متعددة في المجال الواحد.. أرجو أن يكون هذا التفسير واضحاً ومفهوماً ..

الحل الاتصال بمبرمج القاعدة للحصول على كلمة المرور

تسلم عينيك اخي احمد نحن مديونون لك هههههه خلك شاهد لو مادفع اخي ازهر 😃

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

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

هذة الصور من نسخة البيتا وليست النهائية ونعم في النسخة النهائية توجد عبارة دفع جزئي ولكن للاسف هذا المشروع معطل لوجود خلاف مع المستفيد من البرنامج ولم يتم حل الخلاف 😭

من الامور التي اراها مهمة في اي برنامج اقساط ان يكون لدينا حقل للمبلغ المدفوع مثل لو لم يتم العميل من دفع كامل قيمة القسط وبالتالي يستطيع دفع اي مبلغ ويظهر لدينا المبلغ المتبقي من قيمة القسط شاهد القسط رقم 4

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

الكود الذي اعطيتك ، والذي اعطاك ابو تراب ، يفتح البرنامج الآخر ولا ينتظر ان يُنهي البرنامج عمله ، وينتقل الطود للسطر التالي ، ولكن وفي بعض الاوقات ، تريد ان تفتح برنامج (او بمعنى اصح ، تريد ان تفتح برنامج ، وتكون قد ارسلت اليه المتغيرات المطلوبة مثل عمل QR Code مثلا) ، وتريد VBE ينتظر انتهاء البرنامج من عمله ، لهذا السبب نستعمل كود مثل Shell_n_Wait : https://github.com/xxdoc/vb6-Shell-Wait/blob/master/Shell %26 Wait v2/modShellWait.bas بنفس طريقة استعمال Shell او ExecuteFile اللي عرضه اخي ابو تراب ، شوف سطر عمله : جعفر

هلا اخي وهذه طريقة اخرى...استدعي الدالة ExecuteFile مصدر الكود من الموقع MS Access VBA – Open a File Option Compare Database Option Explicit 'Source: http://www.pacificdb.com.au/MVP/Code/ExeFile.htm Public Const SW_HIDE = 0 Public Const SW_MINIMIZE = 6 Public Const SW_RESTORE = 9 Public Const SW_SHOW = 5 Public Const SW_SHOWMAXIMIZED = 3 Public Const SW_SHOWMINIMIZED = 2 Public Const SW_SHOWMINNOACTIVE = 7 Public Const SW_SHOWNA = 8 Public Const SW_SHOWNOACTIVATE = 4 Public Const SW_SHOWNORMAL = 1 Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Public Sub ExecuteFile(sFileName As String, Optional ByVal sAction As String = "Open") Dim vReturn As Long 'sAction can be either "Open" or "Print". If ShellExecute(Access.hWndAccessApp, sAction, sFileName, vbNullString, "", SW_SHOWNORMAL) < 33 Then DoCmd.Beep MsgBox "File not found." End If End Sub

وعليكم السلام 🙂 اذا كان strFile هو اسم الملف + مساره ، فتستطيع فتحه هكذا: application.followhyperlink strFile جعفر

لأنك ارفقت ملف وورد .. لا يمكن العمل على الملف أاضف هذا الكود الى النطاق الذي تريد وضعت لك زرين . الاول لحجم الخط و الثاني لششكل التاريخ حسب طلبك يمكنك وضعهم في زر واحد . او اضافتهم الى كودك. فقط حتى تفهم الكود بالنسبة لعرض العمود هدا الكود Columns("A:B").Select Selection.EntireColumn.AutoFit للاحتواء التلقائي لمضمون النطاق أو Sub Column_Width() Columns("D:E").ColumnWidth = 10 End Sub ضع العرض كما تشاء font -date format.xlsm

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

السلام عليكم اخى @حربي العنزي مشاركه مع اخى واستاذى العزيز @أبو عبدالله الحلوانى جزاه الله خيرا لعل هذا ما تريد جرب ووافنا بالنتيجه بالتوفيق اخى Prog3.mdb

وعليكم السلام اخى واستاذى العزيز @أبو عبدالله الحلوانى كل عام وانت بخير منور الموقع مشاركه مع اخى الفاضل @ابو تراب جزاه الله خيرا لعل هذا الشرح يفيدك ايضا جزاه الله خيرا استاذ محمد فؤاد http://arabteam2000-forum.com/index.php?/topic/125583-كيف-تبني-برنامج-مخازن-ومبيعات-بطريقة-صحيحة-؟؟/ تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

السلام عليكم 🙂 اللغة العربية هي المطلوبة هنا 🙂 المرفق المضغوط فيه مجلد وبرنامج اكسس ، والبرنامج اللي يعمل لنا QR code الموجود على الرابط التالي: https://sourceforge.net/projects/zint/ ويتم حفظ الصورة هنا Data > QR_images وعلشان كل شيء يشتغل تمام ، رجاء لا تعمل تغيير في مكان الملفات ولا المجلدات ، ولا تغيير اسمائها (طبعا تقدر تعمل اللي تريد ، بس على اساسه يجب تغيير الكود كذلك) وهي النتيجة: وخلونا نشوف من يقدر يقرأ الصورة 🙂 ----------------------------------------------------------------------------- إضافة في يوم الثلاثاء 7 / 5 / 2019 : عملت مثال يعمل على 2003 🙂 ----------------------------------------------------------------------------- إضافة في يوم الجمعة 14 / 6 / 2019 : باركود بطاقة دخول الطائرة (Boarding card) وهي من نوع PDF417 اختار الحقول اللي تريدها تظهر في QR code بإختيار مربع صح/خطأ : . والنتيجة: . و باركود 128 (ويمكن عمل اي نوع من انواع الباركود) . والتقرير (وبعد اذن اخي محمد سلامه ، فقد استعملت الصورة التي استعملها في مثاله 🙂 ) . وبهذه الطريقة نرى اننا لا نحتاج ان نحفظ صورة لكل سجل (واذا اردنا ذلك ، فنعمل تعديل في الكود ليقوم بذلك). وهذا الكود مضافا اليه عمل الباركود العادي : Private Sub Make_QR_Barcode() ' 'https://sourceforge.net/projects/zint/ ' If Len(Me.str_Text & "") = 0 Then Exit Sub Dim App_Name As String Dim Output_File As String Dim Output_Text As String Dim Encoding As String Dim Command_Line As String App_Name = Chr(34) & Application.CurrentProject.Path & "\Data\zint.exe" & Chr(34) Output_Text = Chr(34) & Me.str_Text & Chr(34) 'QR code Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "QR_code.png" & Chr(34) Command_Line = App_Name & " -o " & Output_File & " --rotate=0 --eci=24 --scale=2 -w 10 --height=100 --barcode=58 -d " & Output_Text 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide 'Barcode 128 Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "Barcode.png" & Chr(34) Command_Line = App_Name & " -o " & Output_File & " --rotate=0 -d " & Me.ID 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide 'PDF 417 Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "PDF_417.png" & Chr(34) Command_Line = App_Name & " -o " & Output_File & " --rotate=0 --eci=24 --binary --barcode=55 --mode=3 -d " & Output_Text 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide End Sub ----------------------------------------------------------------------------- إضافة في يوم الجمعة 22 / 6 / 2019 : تم عمل VCard QR ليخزن معلومات الشخص مباشرة في الموبايل 🙂 . وبإستخدام برامج الموبايل والتي تقرأ QR Code ، يمكنك حفظ معلومات VCard QR مباشرة في عناوين الموبايل 🙂 البرنامج zint الموجود في المرفق ، فيه امكانية عمل عدة انواع من QR والباركودات ، ولكن كل نوع من هذه الانواع له صيغة خاصة في عمله ، فمثلا كود VCArd QR هو: Function Add_Items() Dim VCard_Text As String 'clear field VCard_Text = "" VCard_Text = "BEGIN:VCARD" & vbCrLf VCard_Text = VCard_Text & "VERSION:3.0" & vbCrLf VCard_Text = VCard_Text & "N:" & Me.[Family Name] & ";" & Me.[Given Name] & ";" & Me.[Additional Name] & ";" & Me.[Name Prefix] & ";" & vbCrLf VCard_Text = VCard_Text & "FN:" & Me![Name] & vbCrLf VCard_Text = VCard_Text & "ORG:" & Me.[Organization 1] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 1 - Type] & ",VOICE:" & Me.[Phone 1 - Value] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 2 - Type] & ",VOICE:" & Me.[Phone 2 - Value] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 3 - Type] & ",VOICE:" & Me.[Phone 3 - Value] & vbCrLf VCard_Text = VCard_Text & "ADR;:" & ";;" & Me.[Address 1] & ";;;;" & vbCrLf VCard_Text = VCard_Text & "BDAY:" & Me.[Birthday] & vbCrLf VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 1 - Type] & ":" & Me.[E-mail 1 - Value] & vbCrLf VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 2 - Type] & ":" & Me.[E-mail 2 - Value] & vbCrLf VCard_Text = VCard_Text & "NOTE:" & Me.Notes & vbCrLf VCard_Text = VCard_Text & "URL:" & Me.[Website 1] & vbCrLf VCard_Text = VCard_Text & "END:VCARD" Add_Items = VCard_Text End Function والذي يختلف عن PDF417 والذي يختلف عن غيره. المرفق في ملفين بصيغة txt والذي فيهما جميع الاوامر التي يمكن استعمالها لعمل مختلف انواع الباركود 🙂 ----------------------------------------------------------------------------- إضافة في يوم السبت 2 / 11 / 2019 : هنا مثال لعمل بطاقة عمل ID.zip ، بأصغر حجم QR code (رجاء ابقاء حجمه ، فقد توصلت الى هذا الحجم والكود بعد محاولات ساعات طويلة) : . وهذا هو QR code . اما تفاصيل عمل البطاقات ، فهذا الرابط فيه تفاصيل كاملة: . جعفر ملاحظة: 1. المرفق في هذه المشاركة هو البرنامج الاخير ، وفيه جميع التعديلات التي في بقية المشاركات. 2. الـ api التي تنتظر إنتهاء الامر ، ثم تنتقل للسطر التالي في الكود اسمها ShellWait ، هذه لا تتعامل مع Unicode / utf-8 / ومنها الحروف العربية بطريقة صحيحة : http://access.mvps.org/access/api/api0004.htm بينما هذه تمام : https://github.com/xxdoc/vb6-Shell-Wait/blob/master/Shell %26 Wait v2/modShellWait.bas zint QR 3.zip ID.zip Shell_n_Wait_2021-12-13.txt.zip

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

جزاكم الله خيرا أعتذر لكثرة تسائلاتي ولكن سامحني فهذا الأمر يشغل بالي من فترة وقد قمت ببعض المحاولات المرهقة ثم صدمت بالنتائج بعد التجربة هل هذه الطريقة تصلح في المستويات المتعددة من التغليف مثلا طرد به 50 كرتونة الكرتونة تحوي 48 ظرف وهكذا وهذه هديتي اليكم لتحسين ميزجكم ولكن المج مرتجع علشان مش بتاعنا 😁

باذن الله استاذي محمد سلامة

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

السلام عليكم ورحمة الله وبركاته ..... جميع اعضاء المنتدى ..... كل عام وانتم بخير وأسأل الله عز وجل أن يتقبل منا ومنكم صالح الاعمال استفسار حول كود سابق شارك في موضوعة في هذا الموضوع الأساتذة : @فايز و @Barna و @jjafferr و @أبو إبراهيم الغامدي في هذا الموضوع ولدي عدد من الاستفسار على الكود التالي بارك الله فيكم : Option Compare Database Option Explicit Sub IMPORT_XLSDB() On Error GoTo SUB_CLOSE '-- OPEN CURRENT DATABASE AS LOCAL DB Dim DB As DAO.Database Set DB = CurrentDb '-- OPEN RS DB TO ADD DATA Dim DBRS As DAO.Recordset Set DBRS = CurrentDb.OpenRecordset("TABLE") '-- OPEN XLS FILE AS REMOTE DATABASE Dim XLDB As DAO.Database Set XLDB = OpenDatabase( _ CurrentProject.Path & "\CS_SeetNumberLabels2.xlsx", False, False, "EXCEL 12.0;HDR=NO;") '-- OPEN XLS SHEET AS REMOTE RS Dim XLRS As DAO.Recordset Dim RCROW() Dim RC As Long Dim I As Integer Dim TD As DAO.TableDef '-- LOOP THROUGH XLDB TABLES (SHEETS) For Each TD In XLDB.TableDefs '-----------------------------------------------------------------------------------------' '-- RECORDS FROM COLUMN (C) IN XL SHEET Set XLRS = XLDB.OpenRecordset("SELECT F1 FROM [" & TD.Name & "C:C]WHERE NOT ISNULL(F1)") '-- COUNT RECORDS XLRS.MoveLast: RC = XLRS.RecordCount: XLRS.MoveFirst '-- EACH 5 OF XLRS RECORDS MAKE 1 RECORD IN DBRS For I = 1 To RC Step 5 RCROW = XLRS.GetRows(5) DBRS.AddNew DBRS![ACADEMIC YEAR] = RCROW(0, 0) DBRS![ACADEMIC NUM] = Mid(RCROW(0, 1), InStrRev(RCROW(0, 1), Chr(32))) DBRS![STNAME] = RCROW(0, 2) DBRS![F1] = RCROW(0, 3) DBRS![Sub] = RCROW(0, 4) DBRS.Update Next Set XLRS = Nothing '--------------------------------------------------------------------------------------' '-- RECORDS FROM COLUMN (I) IN XL SHEET Set XLRS = XLDB.OpenRecordset("SELECT F1 FROM [" & TD.Name & "I:I]WHERE NOT ISNULL(F1)") '-- COUNT RECORDS XLRS.MoveLast: RC = XLRS.RecordCount: XLRS.MoveFirst '-- EACH 5 OF XLRS RECORDS MAKE 1 RECORD IN DBRS For I = 1 To RC Step 5 RCROW = XLRS.GetRows(5) DBRS.AddNew DBRS![ACADEMIC YEAR] = RCROW(0, 0) DBRS![ACADEMIC NUM] = Mid(RCROW(0, 1), InStrRev(RCROW(0, 1), Chr(32))) DBRS![STNAME] = RCROW(0, 2) DBRS![F1] = RCROW(0, 3) DBRS![Sub] = RCROW(0, 4) DBRS.Update Next Set XLRS = Nothing Next SUB_CLOSE: '-- COLOSE XLDB AND XLRS Set XLRS = Nothing ' XLDB.Close Set XLDB = Nothing '------------------------' '-- CLOSE DB AND DBRS Set DBRS = Nothing XLDB.Close Set XLDB = Nothing End Sub 1- ما المقصود في الاؤقام المسجلة في 1 و 2 2- ما المقصود ب F1 و هل يمكن تغيير النطاق في 4 وكيف يتم ذلك لو اغترضنا أن ملف الاكسل نريد جلب بيانات اكثر من عامود في الصفحة الواحدة دون تكرار للكود كما فعلنا في الكود السابق بمعنى بجلب بيانات العمود C والعمود I مباشرة أو حتى أكثر من عمودين ؟؟؟؟ بارك الله فيكم وفي علمكم ... الموضوع هنا بارك الله فيكم

بالتوفيق استاذي @kha9009lid الاستاذ @أحمد الفلاجي اسمك موجود في البرنامج عليك اقساط كثيرة اللة يعينك

جزاك الله خيرا اخى حسام بالنسبه للدمغه وشروطها انظر للاستعلام تم اضافه التقريب لاخى حسام فالاستعلام - 50 كالاكسيل وتم تنفيذ الشروط كالاكسيل بعض الملاحظات ينصح بجعل كافه اسماء الحقول والجداول بالانجليزى ومن غير مسافات وان كان لابد من المسافه استبدلها _ بالشرطه السفليه وان جميع الحقول المحسوبه تجعلها بالاستعلامات بالتوفيق ابوحميد استفسار.accdb

تفضل . تم عمل المطلوب . انسخ المعادلات الى باقي الشيتات ضع اسم الصنف في الخلية a1 . انصحك باستعمال القائمة المنسدلة للاصناف بالنسبة للشرح ..... فليس هناك وقت وفير للشرح card-item.xlsx

بارك الله فيك استاذنا سليم حاصبيا والله بارك الله فى حضرتك

.شكرا جزيلا على المساعده

جزاك الله خيرا اخى واستاذى العزيز @أبو عبدالله الحلوانى وعدت ووفيت واحسنت بارك الله فيك استاذى العزيز

جزاك الله خير استاذي @أحمد الفلاحجى للتغلب على موضوع التعديل على الاقساط بعد التنفيذ التي اشرت اليها اولا وثانيا ممكن نقوم باضافة حقلين في الجدول الاول للمبلغ الاجمالي والحقل الثاني ممكن في الجدول او غير منظم نحتاجة في بقية العمليات عند اضافة العميل يتم ادخال المبلغ الاجمالي مثلا 15000 ثم ادخال الدفعة الاولى مثلا 1000 يكون المتبقي 14000وعند اختيار عدد الاقساط يقوم البرنامج بتحديد قيمة القسط الشهري لو اخترنا عدد الاقساط 2 يكون القسط 7000 ولو كان عدد الاقساط 12 يكون القسط الشهري 1667 اي ان قيمة القسط تكون بدون تدخل منا وتحدد قيمتها بناء على المبلغ الاجمالي والدفعة المقدمة وعدد الاقساط الشهري فاذا رغب العميل في قسط اقل يجب عليه زيادة الدفعة المقدمة او زيادة عدد الاقساط وحينا لسنا بحاجة الى امر تعديل لكون البرنامج يعمل وفق اليه محددة سلفا واعذروني اليوم كلامي كثر شكل السوبيا مضروبة

جزاك الله خيرا اخى واستاذى خالد @kha9009lid بالعكس فاننى استفيد من مداخلتكم لانها توضح بعض الامور وبالفعل راحت عن دماغى جزئيه انه سيتم تعديل جميع الاقساط ومن ضمنها التى قد تم دفعها وانتقد براحتك فنحن نتعلم منكم اخى واستاذى العزيز خالد بارك الله فيك

الاستاذ @أحمد الفلاحجى تعديل جميل وملاحظتك يتم استخدام هذا الزر هذا ان قمت بادخال القيمه بالخطا وتم تنفيذ تسجيل الاقساط فعليا مهمة جدا مع ذلك لو تم تعديل قيمة القسط وكان هناك اقساط مدفوعة سيتم تعديلها ايضا وهنا تكون مشكلة اعتقد لو اضفنا حقل في استعلام التحديث حالة الدفع واضافنا معيار <>"تم الدفع" عندها سيتم تحديث الاقساط الغير مدفوعة فقط هذا اولا ثانيا فكره البرنامج تتمحور حول الدفعة المقدمة وقيمة القسط الشهري بدون اي ذكر للمبلغ المراد تقسيطة وبالتالي لو كانت الدفعة الاولى 1000 ووعدد الاقساط 12 قسط وقيمة القسط 1000 يكون الاجمالي 13000 فاذا رغب العميل في تعديل قيمة القسط الى 900 فان الاستعلام هنا يحل مشكلة التعديل ولكن الاجمالي لن يكون صحيح 900*1000+12= 11800 اختلف المبلغ اتمنى الا ينظر الى مداخلتي بانها انتقاد لعمل الاستاذ الخلوق @سيد رجب او لتعديلكم استاذي واخي احمد والله الموفق

السلام عليكم بالنسبة للطلب الاول تفضل اخي الكريم يوجد لديك خطا باسم النموذج "student" عند الخروج اتمنى ان يكون المطلوب تحياتي مثال (1).rar

1. ادخل في صفحة VBE ، 2. . فتحصل على صفحة جديدة . 3. انسخ الكود من مشاركة اخي ابو تراب ، والصقه في الصفحة ، ثم احفظ الوحدة النمطية باسم مميز مثل mod_ExecuteFile : . 4. والآن من اي حدث ، نادي الوحدة النمطية هكذا : ExecuteFile "C:\Windows\System32\calc.exe" جعفر

جرب هذا. حساب555 تكاليف الشحن.XLSX

اجعل تنسيق الخلايا هكذا [$-2000000]0

جزاك الله خيراً استاذ خالد .. ماشاءالله تحليلك جيد جدا 😍🌹 اجدد طلبي في نسخه تجريبيه محددة لمعاينة برنامجك طبعاً إذا انتهيت من تجهيزها تحياتي 🌹 ورمضان مبارك 🌹

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

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا وكود جلب البيانات المتعدده لاستاذنا الغالى @jjafferr جزاه الله خيرا جزاك الله خيرا اخى حربى على دعائك ياطيب بالتوفيق اخى

استاذي الفاضل أحمد الفلاحجى الله يبارك فيك ويحفظك استاذي الفاضل جزاك الله كل خير نعم هذا هو المطلوب شكرا جزيلا لك سائلا الله جل وعلا ان يمن عليك وعلى عائلتك الكريمة بالصحة والعافية

سوف اطلع عليه غدا ان شاء الله ولعل احد الاخوه يساعد باذن الله بالتوفيق يا ابوحميد

اخى الفاضل @سيد رجب مشاركه مع اخى واستاذى العزيز @kha9009lid جزاه الله خيرا جربت اضافه عميل جديد وتم الاضافه بنجاح هتلاقيه باسم asd تم اضافه فقط كود فى حدث بعد التحديث لحاله الدفع لتحديث القيم فقط جرب ووافنا بالنتيجه الاقساط.rar

هلا اخي هذا ليس اجابة عن سؤالك ولكم حبيت اشاركك تصميم مراقبة المخزون (متجر بيع بالتجزئة) Inventory Control (Retail Store) لعلى فيه بعض الافكار http://www.databaseanswers.org/data_models/inventory_control_for_retail/index.htm بالتوفيق

السلام عليكم و رمضان كريم 1- ليس للمرة الأولى اكرر انه لا لزوم ادراح بيانات من ألوف الصفوف (6000 صف) اذ يكفي ادراج نموذج صغير فقط لأن الماكرو الذي يعمل على صف واحد يمكنه العمل على الألوف منها ( فقط من ـأجل معاينه عمل الماكرو وتخفيف حجم الملف) 2-تم اخفاء بعض الاعمدة (وليس حذفها ) لمراقبة سير الكود والتمكن من رؤية الييانات/ يمكن اعادة اظهارها بسهولة 3- تم ارفاق نموذج عما تريد مع بضعة صفوف 4-الكود Option Explicit Sub copy_data() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim S As Worksheet, T As Worksheet Dim Ros#, Rot#, x%, Num%, m% Set T = Sheets("Target_sh") Set S = Sheets("Source_sh") Ros = S.Cells(Rows.Count, 1).End(3).Row If Ros < 3 Then GoTo Leave_me_alone_Please Rot = T.Cells(Rows.Count, 1).End(3).Row If Rot < 2 Then GoTo Leave_me_alone_Please T.Range("A3:N" & Rot + 1).Clear m = 3 For x = 3 To Ros Num = S.Cells(x, "L") S.Cells(x, 1).Resize(, 13).Copy With T.Cells(m, 1).Resize(Num, 13) .PasteSpecial 12 .PasteSpecial 8 End With m = T.Cells(Rows.Count, 1).End(3).Row + 2 Next T.UsedRange.SpecialCells(xlCellTypeConstants).Borders.LineStyle = 1 Leave_me_alone_Please: With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic .CutCopyMode = False End With End Sub الملف مرفق Date_distribution.xlsm

🙂

الأخ علي لا لزوم لهذه المعادلة الطويلة (لادراج من A الى Z ) تكفي هذه =IF(ROWS($A$1:A1)>26,"",CHAR(64+ROWS($A$1:A1))) ربما تنفع هذه الثلاث كودات Option Explicit Sub insert_arab() Dim i%, k% Dim arr() k = 0 Range("A1").CurrentRegion.ClearContents arr = Array(1, 2, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, _ 18, 19, 20, 21, 23, 24, 25, 27, 29, 30, 31, 32, 39) For i = LBound(arr) To UBound(arr) Range("A" & i + 1) = Chr(198 + arr(k)) k = k + 1 Next End Sub '++++++++++++++++++++++++++++++++++++ Sub insert_Cap() Range("C1").CurrentRegion.ClearContents Dim i% For i = 1 To 26 Range("C" & i) = Chr(64 + i) Next End Sub '++++++++++++++++++++++++++++++++++++++++++ Sub insert_Small() Range("F1").CurrentRegion.ClearContents Dim i% For i = 1 To 26 Range("F" & i) = Chr(96 + i) Next End Sub الملف مرفق ALPHABET.xlsm

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

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