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

جرب هذا حساب عمولة المندوب.xlsx

عليك اخى الكريم محمد بتصميم ورفع شكل الملف الذى تريده

تفضل اخى الكريم حساب عمولة المندوب2.xlsx

تفضل اخى حساب عمولة المندوب.xlsx

اتفضل Date()+[نص10] date.accdb

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

احد حلول بطريقة تغير تنسيق الحقل من رقم الى نص و ادخال بيانات في الحقل نص بدلا من رقم . Test p.accdb

وعليكم السلام ورحمة الله وبركاته جرب الكود التالي مع تغيير اسم الجدول واسم الحقل حسب برنامجك mySQL = "Select * From Table1" mySQL = mySQL & " ORDER BY Id" Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) For i = 1 To 999 Me.Text1.Value = Me.Text1.Value & " " & rst![Reag] & " or " rst.MoveNext If rst.EOF Then Exit Sub End If Next i تحياتي

هل قمت بفتح outlook!!! و تسجيل الدخول؟؟ بعد تسجيل الدخول قم بتفعيل signature على الاوتلوك. الكود ييقوم باظهار signature الافتراضي على الاوتلوك المشكل عندك حبيبي

تفضل اخي الكريم والمشكلة كما ذكرت لك في اسماء الحقول Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("*", "ExaminationT", "Patient=" & Forms!All_Data!Patient_id & " and [DataEntryDate] = #" & Me.Date_Examination & "#") > 0 Then MsgBox "تاريخ الزيارة مكرر", vbInformation, "تحذير" Cancel = True End If End Sub مشكلة تكرار الكشف فى نفس اليوم.rar تحياتي

استاذي العزيز حلبي انظر لهذا الملف ولاحظ التعديل في الكود لنفس العمليات الحسابية ولكن بترك السجل الرابع لكل مجموعة فارغ test-CC.rar

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Test p.rar تحياتي

هل جربت هذا الكود ؟؟؟؟؟ Me.m.SetFocus DoCmd.RunCommand acCmdCopy حيث M هي مربع النص

الاستاذ المبدع @عبد اللطيف سلوم جميل جدا لكن في القاعدة البيانات الرئيسية لدي المسميات مختلفة لذلك ظهرت لي مشكلة انه تم دمج المسميات معا لذلك ارجو ان يكون عن طريق انشاء جدول صلة

كحل اخر سيظهر لك مربع ادخال ضع فيه رقم الهاتف بدون 09 استبدل الاكواد السابقة بهذه Private Sub Number_Tel1_GotFocus() If IsNull(Me.Number_Tel1) Then RR = InputBox("ضع رقم الهاتف هنا", "تنبية") Me.Number_Tel1 = "09" & RR End If End Sub Private Sub Number_Tel2_GotFocus() If IsNull(Me.Number_Tel2) Then RR = InputBox("ضع رقم الهاتف هنا", "تنبية") Me.Number_Tel2 = "09" & RR End If End Sub

تفضل UserForm TextBox MaxLength.xls

هل تقصد هكذا بمجرد اضافة سجل وتنتقل لرقم الهاتف سينكتب 09 في مربع النص Aziz.accdb

السلام عليكم تفضل اخي الكريم تحياتي Allijan0016_2.rar

تفضل . غير الكود الى هدا Sub Send_Mail(SendTo As String, ToMSg As String, Signature As String) Dim OutlookApp As Object Dim OutlookMail As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) Signature = OutlookMail.Body With OutlookMail .To = SendTo .CC = "" .BCC = "" .Subject = Range("n1").Value .Body = ToMSg & vbNewLine & Signature .Send End With Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub اذا لم يعمل معك. فعل signature على الاوتلوك. الكود ييقوم باظهار signature الافتراضي على الاوتلوك Send Mass Emails Through Outlook Using Excel VBA YasserKhalil Officena.xlsm

السلام عليكم ورحمة الله وبركاته في هذا الموضوع نريد ان نقوم بتحويل الرصيد المتبقية من المواد الى عدد العلبات و الكارتونات كم نعرف جيدا احيانا سنشتري اشياءاً بالحبة او العلبة و بها عدد من الحبوب او سنشتري بالكارتون و بها كم علبة من العلبات الحبوب لذلك قمنا بفتح هذا الموضوع لعل وعسى ان يكون هناك شخص ان يستفيد منه ........ في البداية قمنا بعمل جداول المطلوبة للشراء والبيع على الرغم ان هناك حقول لازم ان يكون متواجدة للعمل شراء والبيع لكن احنا عملنا حسب احتياجنا لكي نشرح الموضوع و هناك نقطة مهمة ... هنا كالعمل سنستخدم حبة للشراء والبيع والجدول المواد سيكون كالصور الاسفل اذا نلاحظه هناك حقل تسلسل و حقل كود المادة و اسم المادة و بيان عدد العلبات في الكارتون و البيان عدد الحبات في العلبة وعطيتنا لكلا الحقلين الاخيرين رقم صفر كرقم افتراضي احيانا سنشتري اشياءا ليس لهم كارتونات او العلبات فقط سنشتري بالحبة لذلك للمواد كهذا راح نضع رقم صفر -------- والان اشترينا المواد مرتين الاول اشترينا 4000 ميترو و اشترينا 187 بطل ماء وبعدين اشترينا 267 ميترو و اشترينا 188 بطل ماء و اشترينا 3220 اقلام اي يعني بالاجمالي اشترينا 4267 ميترو 375 بطل ماء 3220 قلم ------------ وبعدين بيعنا هذه العدد من المواد بعنا 200 ميترو و 134 قلم و 76 بطل ماء -------------- وفي الاخير قمنا بعمل استعلام الرصيد المتبقية بالحبة لكل مواد والان سنحسب الرصيد بالحبة 4267 - 200 = 4067 ميترو 375 - 76 = 299 بطل ماء 3220 - 134 = 3086 قلم شوف الاستعلام هناك اعمال كل مواد لديهم بالكارتون و العلبة و الحبة , من عندهم كل شي بالكارتون والعلبة والحبة يقدر يستخدم استعلام بالاسم QResid ومن عندهم مواد ليس لهم كرتون او علبة خلي بيستخدم استعلام QResid1 و يستخدم رقم صفر لتلك المواد وفي الاخير سنحول الحبات الى عدد الكراتين و العلبات بواسطة هذا استعلام خلي نتاكد من عملنا هل هو صحيح ام لا رصيد المتبقي من الميترو كان 4067 و كل علبة يساوي 24 حبة و كل كارتون يساوي 12 علبة اذاً عندنا 14 كارتون المتبقية * 12 عدد العلبات في الكراتين * 24 عدد الحبات في العلبة = 4032 حبة و 1 علبة * 24 علبة= 24 علبة و 11 حبات اذاً 4032 + 24 + 11 = 4067 وهذا الرقم صحيح المادة الثانية : pen قلم عدد الکراتین المتبقية 2 * 100 عدد العلبات في الكراتين * 12 عدد الحبات في العلبة = 2400 عدد العلبات المتبقية 57 * 12 عدد الحبات المتبقية = 683 و 2 عدد الحبات المتبقية المجموع = 2400 + 683 + 2 = 3086 وهذا الرقم صحية المادة رقم 3 : بطل ماء ليس لنا كراتين للماء اي يساوي صفر وعندنا 37 علبة وفي كل علبة يساوي 8 حبات اي 37 * 8 = 296 حبة و 3 حبات المتبقية اي المجموع = 296 + 3 = 299 وهذا الرقم ايضا صحيحة ولان ليس لدي وقت كافي اليوم غدا ان شاء الله سارد على الردود والمواد ك بطل ماء و الميترو القم تم استخدامه فقط للفهم و للمثال 😃 واليكم القاعدة لمعرفە عدد الکارتونات و الوحدات -.mdb تم استبدال المرفق و تصحيح الاستعلام الرصيد المتبقية بالحبة

Option Explicit Sub Test() 'متغيرات Dim arr As Variant Dim i As Variant Dim cr As Variant Dim j As Long 'اسم شيت المصدر واسم الخليه الاولى منه arr = Sheets("Sheet1").Range("A3").CurrentRegion.Value 'الأعمدة المطلوب الترحيل إليها cr = Array(3, 5, 9) 'أرقام الأعمدة المطلوب ترحيلها For Each i In Array(2, 6, 10) 'اسم شيت الهدف ورقم صف صفحة الهدف Sheets("Sheet2").Cells(4, cr(j)).Resize(UBound(arr, 1)).Value = Application.Index(arr, , i) j = j + 1 Next i End Sub سحر الاكواد

المشكلة كانت في الجمع الاولي والضم انظر المثال : قسمنا العملية الى جزئين اولا جميع الفواتير حسب المندوب ثم اجرينا التوزيع 15_UP.rar