amrdipo2003 قام بنشر مايو 24, 2016 مشاركة قام بنشر مايو 24, 2016 السلام عليكم ورحمة الله لدى جدول به ثلالث اعمدة 1- اسم الموظف 2- كود الوردية 3- فارغ اريد عمل وحدة نمطية تقوم بالأتى:- عندما يكون كود الوردية 3 ثم الذى يليه 1 فقط يقوم الموديول بتحديث العمود الثالث الفارغ بقيمة 1 امام كود الوردية 3 و 1 الذى يليه فقط تقسيم الاسم1.rar رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مايو 24, 2016 مشاركة قام بنشر مايو 24, 2016 وعليكم السلام هل انت متأكد ان هذا المرفق الصحيح ؟ رابط هذا التعليق شارك More sharing options...
amrdipo2003 قام بنشر مايو 25, 2016 الكاتب مشاركة قام بنشر مايو 25, 2016 (معدل) عذرا انه غير صحيح ةارفق الملف الصحيح قاعدة البيانات1.rar تم تعديل مايو 25, 2016 بواسطه amrdipo2003 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مايو 25, 2016 مشاركة قام بنشر مايو 25, 2016 فضلا قم بتحويله الى mdb رابط هذا التعليق شارك More sharing options...
amrdipo2003 قام بنشر مايو 25, 2016 الكاتب مشاركة قام بنشر مايو 25, 2016 mdb filh قاعدة البيانات1.rar رابط هذا التعليق شارك More sharing options...
amrdipo2003 قام بنشر مايو 25, 2016 الكاتب مشاركة قام بنشر مايو 25, 2016 معذرة اخوتى الكرام احبتى فالله هل هناك حل لهذه المشكلة احتاج رد ضرورى اعانكم الله رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مايو 25, 2016 مشاركة قام بنشر مايو 25, 2016 تفضل هذه الاسطر البرمجية تقوم بعمل اللازم Public fld1 As Integer Public Function tstfld() Dim rs As Object Dim fld2 As String Dim i As Integer Set rs = CurrentDb.OpenRecordset("tbl1") If rs.RecordCount > 0 Then rs.MoveFirst Else Exit Function End If With rs Do While Not (.EOF) If !wrd = 3 Then fld1 = !id .MoveNext If !wrd = 1 Then Call werCrtr DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE Tbl1 SET Tbl1.tst = 1 WHERE (((Tbl1.id)=werCrtr() Or (Tbl1.id)=werCrtr()+1))" DoCmd.SetWarnings True End If End If .MoveNext Loop End With Set rs = Nothing End Function Public Function werCrtr() werCrtr = fld1 End Function db2.rar رابط هذا التعليق شارك More sharing options...
amrdipo2003 قام بنشر مايو 25, 2016 الكاتب مشاركة قام بنشر مايو 25, 2016 سيدى العزيز الغالى اعزك الله وزادك من علمه ونفعك به سائر المسلمين وجزاك الله عنا كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.