إلى الأعضاء المتميزين .. نرجو الاطلاع على المرفق .. وايجاد الحل .. لو سمحتم
إلى جميع الأعضاء ..المتميزين
مغلق
السلام عليكم ورحمة الله وبركاته
اجعل الكود هكذا
Private Sub Form_Load() DataPath = App.Path If Right(DataPath, 1) <> "\" Then DataPath = DataPath & "\" DataPath = DataPath & "acc.mdb" Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & DataPath Adodc1.CommandType = adCmdText Adodc1.RecordSource = "SELECT * FROM tab1" Call Adodc1.Refresh For i = 0 To Adodc1.Recordset.RecordCount - 1 tot = tot + Adodc1.Recordset.Fields(2) Adodc1.Recordset.MoveNext Next Text15.Text = tot Adodc1.Refresh Dim sql As String ' sql = " select sum (total) from tab2 " ' ' Adodc1.Recordset.Open,as ' Text15.Text = Adodc1.Recordset(3).Value End Sub
وعليكم السلام ورحمه الله وبركاته ..
شكرا جزيلا أخي الكريم .. على تفاعلك السريع .. وبما أنك متميز ..
لقد جربت هذا الكود وقد اشتغل .. ولكن اريد أن يجمع تلقائيا عن إضافة أي رواتب جديده .. يتغير الاجمالي تلقائيا ..
هذا و نفعل الله بعلمك .. وجزاك الله خيرا
نرجوا منكم الرد
:rolleyes: المتميز....طول عمره متميز :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
يا أخي الكريم .. انا معاك بأنه يعمل تلقائيا .. ولكن اريد عند إضافة سجل جديد بعد تشغيل البرنامج يجمع المبلغ تلقائيا .. ليس عندما أخرج من البرنامج وأرجع مره أخرى .
هذا وأشكرك لكم تعاونكم ..
هل من مساعده ...
جزاك الله خيرا يا أخي الكريم " المتميز "
هذا الموضوع مغلق.