تحديث معقد

[amrdipo2003]

السلام عليكم ورحمة الله 

لدى جدول به ثلالث اعمدة 1- اسم الموظف 2- كود الوردية 3- فارغ

اريد عمل وحدة نمطية تقوم بالأتى:- عندما يكون كود الوردية 3 ثم الذى يليه 1 فقط

يقوم الموديول بتحديث العمود الثالث الفارغ بقيمة 1 امام كود الوردية 3 و 1 الذى يليه فقط 

تقسيم الاسم1.rar

[ابوخليل]

وعليكم السلام

هل انت متأكد ان هذا المرفق الصحيح ؟

[amrdipo2003]

عذرا انه غير صحيح ةارفق الملف الصحيح

 

قاعدة البيانات1.rar

تم تعديل مايو 25, 2016 بواسطه amrdipo2003

[ابوخليل]

 فضلا قم بتحويله الى mdb

[amrdipo2003]

mdb filh

قاعدة البيانات1.rar

[amrdipo2003]

معذرة اخوتى الكرام احبتى فالله هل هناك حل لهذه المشكلة احتاج رد ضرورى اعانكم الله

[ابوخليل]

تفضل هذه الاسطر البرمجية تقوم بعمل اللازم

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

[amrdipo2003]

سيدى العزيز الغالى اعزك الله وزادك من علمه ونفعك به سائر المسلمين وجزاك الله عنا كل خير