mrnooo2000

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

جرب أخى هذا التعديل DiscountEndDate = DateAdd("m", Switch([Cridi_Value] = 10000, 10, [Cridi_Value] = 20000, 10, [Cridi_Value] = 30000, 10, [Cridi_Value] = 40000, 8, [Cridi_Value] = 100000, 2), [DiscountStartDate] - 1) DiscountPerMonth = [Cridi_Value] / Switch(…

انا مش فهم انت ايه قصدك برسائل الخطأ لكن ان كنت تقصد رسالة التنبيه التى تظهر عند التكرار فالامر بسيط و لو حاولت ان تقرأ الكود لعرفت ذلك فقط احذف هذا السطر MessageBox.Show("هذا السجل موجود", "تحذير", MessageBoxButtons.OK, MessageBoxIcon.Warning) ليكون الكود بهذ…

ضع مثال يمكن للاخوه مساعدتك من خلاله

ضع هذا الكود بالنموذج Private Sub chek_AfterUpdate() If Me.chek.Value = True Then Me.number.Locked = True Else Me.number.Locked = False End If End Sub Private Sub Form_Current() If Me.NewRecord Then Me.number.Locked = False Me.chek.Value = False Else Me.number…

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

بالتأكيد ممكن أخى الكريم و لكن ضع مثال يمكن التطبيق عليه

و جزاك الله مثله أخى الكريم الحمد لله زوجنا الله بكر و رزقنا من فضله بالذرية الصالحة ان شاء الله فهمت من سؤالك أنك تريد الاحصاء مع تجاهل السجلات عند تساوى الحقول الثلاثة و فى هذه الحالة يتم اضافة الحقل الى كود التجميع DCount("id", "t_2", "id in (SELECT First(t…

تفضل أخى حتى لا تتكرر الموضوعات فاننى اقترح عليك فحص الموضوعات التالية /index.php/topic/285144-%D8%AA%D9%88%D8%B2%D9%8A%D8%B9-%D8%A7%D9%84%D8%A7%D8%B3%D9%85%D8%A7%D8%A1-%D9%85%D9%86-%D8%AD%D9%82%D9%84-%D8%A5%D9%84%D9%89-%D8%B9%D8%AF%D8%A9-%D8%AD%D9%82%D9%88%D9…

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

يمكنك اضافة أى شروط الى شرط الدالة باستخدام And و OR

بعد اذن أخونا أمير لو كنت تريد استخدام دالة DCount اليك هذا السطر DCount("id", "t_2", "id in (SELECT First(t_2.id) AS FirstOfid FROM t_2 GROUP BY t_2.txtid, t_2.txtdate;)") و ان كنت طريقة أخرى اليك هذه الأسطر Dim rs As DAO.Recordset Set rs = CurrentDb.OpenReco…

جزاك الله خيرا

الموضوع تم طرحه من قبل استخدم البحث ستجد الكثير

تفضل أخى ضع هذا الكود فى زر او عند فتح النموذج On Error Resume Next DoCmd.DeleteObject acTable, "Emp_tbl" DoCmd.DeleteObject acTable, "Tests_tbl" Dim strsql As String strsql = "SELECT DISTINCT الاختبار.الرقم AS empid, الاختبار.الاسم AS empname, الاختبار.الرتبة…

اليك اخى هذا الكود ضعه فى زر الاضافة Dim cmd As New OleDb.OleDbCommand Dim row_count As Integer If Not cnn.State = ConnectionState.Open Then 'open connection if it is not yet open cnn.Open() End If cmd.Connection = cnn cmd.CommandText = "Select *from tbl_benf_…

الموضوع بسيط أخى فقط تحتاج الى تعديل الجزء الخاص بالشهر الى txtDateFrom.Value.ToString("MMMM") ليكون الكود بهذا الشكل Dim txtmonth_year As String = "شهر " & txtDateFrom.Value..ToString("MMMM") & "من العام" & txtDateFrom.Value.Year Dim txtMY As TextObject = CTy…

ضع الكود كاملا حتى يتسنى معرفة المشكله

هذا الامر من الممكن تحقيقه بطرق عديده و سأذكر هنا اسهل 3 طرق لذلك أولها عن طريق مرجحية النموذج كما ذكر الاخ فى المشاركة السابقة Forms!MyForm!Mytextbox و الثانية عن طريق كود فتح النموذج الثانى باستخدام Openargs DoCmd.OpenForm FormName, , , , , , "Openargs" ولثا…

المثال الذى أضافه الاخ أبو رهف به ما تريدين و هذا مثالك بعد التعديل تغيير كلمة المرور.rar