تحديد كل السجلات حسب الفلترة بناء علي الاستعلام

[MO87]

السلام عليكم

السادة المحترمين اعضاء وخبراء اوفيسنيا

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

وشكرا للجميع

FILTER.rar

[MO87]

في 14‏/3‏/2023 at 14:56, MO87 said:

السلام عليكم

السادة المحترمين اعضاء وخبراء اوفيسنيا

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

وشكرا للجميع

FILTER.rar 98.13 kB · 15 downloads

تم الحل وهذا هو كود التحديد

Dim rs As Recordset
Set rs = Me.RecordsetClone
rs.MoveFirst
Do Until rs.EOF
    rs.Edit
    If rs![Select] = "R" Then
        rs![Select] = "T"
    Else
        rs![Select] = "R"
    End If
    rs.Update
    rs.MoveNext
Loop

DoCmd.SetWarnings True

Exit Sub

ErrorHandler:
MsgBox "Error " & err.Number & ": " & err.Description
End Sub