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

السلام عليكم ورحمة الله تعالى وبركاته كنت قد بدات هذا الموضوع من قبل وهو خاص بجعل العميل يرسل لك تقييم عن برنامجك او رسالة خاصة بالاخطاء الفنيه . كل هذا يرسله العميل لك بالبريد الاليكترونى ووجدنا انه من الصعوبة فتح كل بريد وارد لرؤية اللتقييم به ومن الصعب الحصول على فلترة لتلك الايمالات لاستخلاص منها درجات التقييم خاصة وان كان عدد مبيعات برامجك كبيرة فهدانا الله الى انشاء قاعدة بيانات لتكون منصة لاستقبال البيانات التى يرسلها عملاؤنا من جميع انحاء العالم وكان السؤال كيف سيتم الاستغناء عن ارسال ميل خاص بكل تقييم ؟؟ وكيف سيتم ربط قاعدة البيانات لديك كمصمم بكل برنامج تبيعه لعملاؤك لمعرفة ذلك يرجى متابعة هذا الموضوع بكل صفحاته بتعليقاته شرح بسيط مع الصور صورة نموذدج التقييم ملاحظة بسيطة ارجو كتابة الاسم عند ارسال التقييم فى زر ارسال التقييم قمت بادراج كود الربط الذى سيربط نموذج التقييم بالجدول المرفوع على سيكوال سيرفير هذا الكود ستجدونه هنا فى موقع ميكروسوفت الرسمى https://support.microsoft.com/en-us/kb/892490 والان منصة استقبال التقييمات وهو عبارة عن نموذج مربوط برمجيا بقاعدة سيكوال سيرفير هذا النموذج يمكنه الاتصال بكل برنامج تبيعه للعملاء دن الحاجة الى ستقبال الميل لن يتم ارفاق قاعدة البيانات الخاصة باستقبال التقييمات الان فقط سيتم ارفاق نموذج التقييم فقط وارجوا منكم ارسال تعليقاتكم وتقييماتكم من نموذج التقييم وهى ستصلنى ان شاء الله وسارفقها لاحقا نموذج التقييم.rar

لا لزوم للضغط على زر الماوس باستمرار فقط كليك واحد غلى ما تريده من الكومبو

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

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

شغل جميل و مطلوب @Shivan Rekany

شكرا اختي وجزاك الله كل خير شكرا لك اخي الحبيب الحلبي شكرا لك استاذي الحبيب نتعلم منكم

شغل جميل أستاذ @Shivan Rekany

السلام عليكم قم بإضافة الكود التالي تحت سطر العنوان مباشرة: On Error Resume Next و لقد قمت بالتعديل على الموضوع و إضافة هذا السطر للكود

السلام عليكم ضعي هذا الكود بشيت رقم 1 وراجعي النتائج - عله المطلوب تماماً ( قمت بتنفيذ ذلك بالملف المرفق ) Sub Button1_Click() Dim rw As Long, x As Range Dim extwbk As Workbook, twb As Workbook Set twb = ThisWorkbook Set extwbk = Workbooks.Open(ThisWorkbook.Path & "\" & "2.xlsx") Set x = extwbk.Sheets("ورقة1").Range("A1:C752") With Application .ScreenUpdating = False .Calculation = xlManual .DisplayAlerts = False .AskToUpdateLinks = False End With With twb.Sheets("ورقة1") For rw = 2 To .Cells(Rows.Count, 1).End(xlUp).Row .Cells(rw, 4) = Application.VLookup(.Cells(rw, 1).Value2, x, 3, False) Next rw End With extwbk.Close savechanges:=False With Application .AskToUpdateLinks = True .DisplayAlerts = True .Calculation = xlAutomatic .ScreenUpdating = True End With End Sub merge.rar

أوك جرب تقريب الأرقام وبالنسبة للنقطة الثانية والثالثة لكي نتأكد من الخطأ فتجنب التجربة على منتج الشاشة حتى نستقر على المنتجات التي تعتبر مكون فرعي و منتج أساسي في نفس الوقت يعني جرب مكون آخر مثل لوحة المفاتيح أو أي منتج اساسي خلاف الشاشة ثم نتتبع الخطأ إن شاء الله تقييم 16 .rar

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

غلطة مطبعية في الكود فقط تم التصحيح كمبوبوكس بطريقتين Salim 1.rar

أوك نفذت بعض الملاحظات جرب وأخبرني بما لم يتم تنفيذه أو المتبقي تقييم 14 .rar

والله يا استاد شيفان انت استاد جزاك الله خيرا لك كل تقدير

اليك هذا الحل لعل يفيدك اولا عملت استعلام للاسماء اللي في جدول الموظفين وليس موجودين في جدول الرواتب وهذا هو الاستعلام SELECT persons.* FROM persons LEFT JOIN Salary ON persons.[EmpNumber] = Salary.[EmpNumber] WHERE (((Salary.EmpNumber) Is Null)); وعملت نموذج عليه واستخدمت هذا الكود لزر Private Sub Command0_Click() Dim MyCount As Integer MyCount = DCount("*", "personsWithoutMatchingSalary") If MsgBox("هناك ( " & MyCount & " ) اسماء لم يكن في جدول الرواتب .. هل تريد ان تنظر الى اسماءهم ", vbYesNo, "تنبيه") = vbYes Then DoCmd.OpenForm "personsWithoutMatchingSalary", acNormal End If End Sub اليكي المرفق bmn.rar

اتفضل استخدمت هذه الكود للاستخراج اي للبحث Private Sub SEr_Click() Me.s2 = DLookup("[name_e]", "Emp", "no_e= " & [s1]) Me.s3 = DLookup("[ms_j]", "Emp", "no_e= " & [s1]) Me.s4 = DLookup("[rs_t]", "Emp", "no_e= " & [s1]) Me.s5 = DLookup("[no_e]", "Emp", "no_e=" & [s1]) Me.Tarix = Nz(DMax(Format("[d_g]", "yyyy/mm/dd"), "egaza", "no_e=" & [s1] & "and [n_e]='" & "ÚÇÏíÉ" & "'"), "") Me.Mide = Nz(DLookup("[m_g]", "egaza", "[no_e]=" & [s1] & " And [Tarix]=" & Format("[d_g]", "yyyy/mm/dd")), 0) End Sub وهذا لخصم الرصيد من الاجازة Private Sub أمر30_Click() Dim SQL As String SQL = "UPDATE Emp SET Emp.rs_t = [Emp]![rs_t]-[Forms]![H]![Mide] WHERE (((Emp.no_e)=[Forms]![H]![s1]));" DoCmd.SetWarnings False DoCmd.RunSQL (SQL) DoCmd.SetWarnings True MsgBox "تم الخصم من الرصيد" End Sub اليك المرفق LM.rar

شكرا للاستاذ شفان وهذا تعديل على الكود Dim rs As DAO.Recordset Dim i, r As Integer Set rs = Me.Subform.Form.RecordsetClone rs.MoveLast r = rs.RecordCount rs.MoveFirst For i = 1 To r CurrentDb.Execute "INSERT INTO InvSaveTable " & vbCrLf & _ "(InvoiceID,InvoiceDate,ItemID,ItemName,ItemPrice,Quantity)" & vbCrLf & _ "VALUES('" & InvoiceID & "','" & InvoiceDate & "','" & rs!ItemID & "'," & vbCrLf & _ "'" & rs!ItemName & "','" & rs!ItemPrice & "','" & rs!Quantity & "') " rs.MoveNext Next rs.Close Set rs = Nothing MsgBox "new recoreds are saved" وهذا المرفق مالتعديل على مفاتيح الجدول لمنع تكرار رقم الفاتورة مع رقم المنتج في تاريخ واحد ملاحظة يجب عدم ترك مسافات فارغة عند تسمية الكائنات ، ولاحظ اني غيرت اسم عنصر تحكم النموذج الفرعي db1.rar

استأذن من استاذنا ابو خليل اخ @athal اتفضل استخدمت هذا الكود Private Sub InvSave_Click() Dim MyFormCount As Integer Dim i As Integer Dim Sql As String MyFormCount = Nz(Forms![invoice table]![InvoiceDetails Table Subform]!MyFormCount, 0) If MyFormCount = 0 Then MsgBox "" Exit Sub Else DoCmd.SetWarnings False Forms![invoice table]![InvoiceDetails Table Subform].SetFocus DoCmd.GoToRecord , , acFirst For i = 1 To MyFormCount Sql = "INSERT INTO InvSaveTable ( ItemID, Quantity, ItemName, ItemPrice, InvoiceID, InvoiceDate ) SELECT [Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![ItemID] AS ItemID, [Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![Quantity] AS Quantity, [Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![ItemName] AS ItemName, [Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![ItemPrice] AS ItemPrice, [Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![InvoiceID] AS InvoiceID, [Forms]![Invoice Table]![InvoiceDate] AS InvoiceDate" DoCmd.RunSQL (Sql) DoCmd.GoToRecord , , acNext Next i DoCmd.SetWarnings False End If MsgBox (MyFormCount & " new recoreds are saved") End Sub واليك المرفق invoice2-2003.rar

نعم أستاذ شيفان.. إليك الوظيفة التالية Function GetNumbersOnly(SText) Dim Numbers For i = 1 To Len(SText) If IsNumeric(Mid(SText, i, 1)) Then Numbers = Numbers & Mid(SText, i, 1) End If Next GetNumbersOnly = Trim(Numbers) End Function New Microsoft Access Database.zip

تم الحل

السلام عليكم ا. نوف حضرتك لم تدرجي الملفات للعمل عليها ومع ذلك الامر بسيط يمكن ببساطه نسخ قيم ملف ولصقها بداخل الاخر اما وعن حذف المتكرر حددي عمود الرقم الوظيفي بالكامل ثم من قائمه home اختاري conditional formatting. ثم من highlight cells rules. اختاري duplicate values ثم ok. عندها ان كان هناك من متكرر سيظهر بتعبئه حمراء ويمكنك عندها تحديدها وحذفها ان لم يكن هذا المطلوب تمام قومي بادراج الملفات واشرحي فيها المطلوب بشئ من التفصيل

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

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