Barna

طيب استبدل بهذا ...... Public Function CountNumberic() As Integer Dim StringToSearch As String, ms As Integer, ms1 As Integer Dim i As Integer If Len(Me.Text4) <= 1 Or IsNull(Me.Text4) Then StringToSearch = Me.Text1 Else StringToSearch = Me.Text4 End If ms = 0 ms1 = 0 For i = 1 To Len(StringToSearch) ms = Mid(StringToSearch, i, 1) ms1 = ms1 + ms Next i Me.Text4 = ms1 End Function

تفضل <><><><><><><> Numberic.accdb

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

مبارك مهندسنا .............. الف ... الف ... مبروك ..... تستاهل ... مزيد من التألق

استبدل الشيفرة بهذه .................... Dim xx As String xx = InputBox("ادخل النسبة ", "حدد ") xx = Replace(xx, "%", "") If Len(xx) = 0 Then Exit Sub DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE Table1 SET Table1.Field1 = [field1]*" & xx & ";" DoCmd.SetWarnings True

ما شاء الله تبارك الله الف . الف . مبروك أخي @سامي الحداد تستاهل والى الامام

طيب جرب هذا ................... Dim xx As String xx = InputBox("ادخل النسبة ", "حدد ") xx = Replace(xx, "%", "") DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE Table1 SET Table1.Field1 = [field1]*" & xx & ";" DoCmd.SetWarnings True

يعني تريد ان تكتب بهذا الشكل 1.5%

طيب حسب ما فهمت ................ انشئ نموذج وضع في زر وفي حدث الزر ضع هذه الشيفرة :::: Dim xx As String xx = InputBox("ادخل النسبة ", "حدد ") DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE Table1 SET Table1.Field1 = [field1]*" & xx & ";" DoCmd.SetWarnings True

وعليكم السلام ورحمة الله في مصدر بيانات مربع النص في النموذج الفرعي ضع هذا =Count([name1]) وفي مربع النص في النموذج الرئيسي ضع هذا =[Forms]![الرئيسي]![1_1_sub].[Form]![sss]

وعليكم السلام ورحمة الله ........... اخي عبدالله انظر الى هذه الاداة ....................

يعني يتم تنفيذ التخفيض على كل عملية تسديد قسط على حدا صحيح ( اي لو دفع كامل القسط الاول يتم التخفيض واذا لم يدفع كامل القسط الثاني فلا يستفيد من تخفيض القسط واذا دفع القسط الثالث كاملا يحصل على التخفيض وهكذا .................... )

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

طيب .... لم افهم ........ ولكن حسب طلبك انظر ووافينا بالنتيجة ............. ProgSalse10.rar

جرب ............................ ابحث في المنتدى

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

طيب استبدل هذا السطر لديك ::: CurrentDb.Execute ("Delete * From Me.Combo15") بهذا السطر ::::: CurrentDb.Execute ("Delete * From " & Me.Combo15 & "") اعلمنا بالنتيجة :::::

ما كان شغال الكود .... ؟؟؟

لأن تكوين جدولك غير صحيح ..... ليش ...... لأنك استخدمت اكثر من عبارة محجوزة للاكسس من ضمنها Select و Code لكن في حالة ال Code فيها تسمية توضيحية

تفضل المرفق الذي لدي جرب عليه ولما نشوف ........................ Import Frome Excel File.rar

اخي الكريم الكود شغال لدي .... انظر

كلامة صحيح .... جرب الكود هذا الان ....................... Call GetWaiting("Please wait ... data is processing") On Error Resume Next Dim db As DAO.Database Dim rstFrom As Recordset Dim rstTo As Recordset Set db = CurrentDb() Dim RC, i, r, rr As Integer Set rstTo = db.OpenRecordset(Me.Combo15, dbOpenDynaset) Set rstFrom = db.OpenRecordset("tblTemp", dbOpenDynaset) CurrentDb.Execute ("Delete * From Me.Combo15") rstFrom.MoveFirst: rstFrom.MoveLast RC = rstFrom.RecordCount rstFrom.MoveFirst For i = 1 To RC rstTo.AddNew For r = 0 To rstFrom.Fields.Count - 1 For rr = 0 To rstTo.Fields.Count - 1 If rstFrom.Fields(r).name = rstTo.Fields(rr).Properties("Caption") Or rstFrom.Fields(r).name = rstTo.Fields(rr).name Then rstTo.Fields(rr) = rstFrom.Fields(r) End If Next rr Next r rstTo.Update rstFrom.MoveNext r = 0 rr = 0 Next i DoCmd.Close acForm, "frmWaiting" rstTo.Close rstFrom.Close Set rstTo = Nothing Set rstFrom = Nothing Set db = Nothing

على كل حال استبدل الكود الموجود في الزر بهذا ..................................... Call GetWaiting("Please wait ... data is processing") On Error Resume Next Dim db As DAO.Database Dim rstFrom As Recordset Dim rstTo As Recordset Set db = CurrentDb() Dim RC, i, r, rr As Integer Set rstTo = db.OpenRecordset(Me.Combo15, dbOpenDynaset) Set rstFrom = db.OpenRecordset("tblTemp", dbOpenDynaset) CurrentDb.Execute ("Delete * From tblTemp") rstFrom.MoveFirst: rstFrom.MoveLast RC = rstFrom.RecordCount rstFrom.MoveFirst For i = 1 To RC rstTo.AddNew For r = 0 To rstFrom.Fields.Count - 1 For rr = 0 To rstTo.Fields.Count - 1 If rstFrom.Fields(r).name = rstTo.Fields(rr).Properties("Caption") Or rstFrom.Fields(r).name = rstTo.Fields(rr).name Then rstTo.Fields(rr) = rstFrom.Fields(r) End If Next rr Next r rstTo.Update rstFrom.MoveNext r = 0 rr = 0 Next i DoCmd.Close acForm, "frmWaiting" rstTo.Close rstFrom.Close Set rstTo = Nothing Set rstFrom = Nothing Set db = Nothing طبعا هذا الكود بيتعرف على اسم الحقل واذا وجد اسم الحقل مختلف ينتقل الى التسمية التوضيحة للحق لتنفيذ امر نقل البيانات للجدول ................

طيب ايش النسخة التي تعمل عليها ..... هل هي اخر نسخة انا ارفقتها ؟؟؟؟؟ حتى نعدل عليها .....

في جدولك مفتاح لا يتكرر ... فلذلك تظهر معك الرسالة بعدم التكرار