Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.03.2018, 18:13   #1
klim8
Пользователь
 
Регистрация: 07.08.2016
Сообщений: 23
По умолчанию Использование "Recordset" для двух сучаев. Как прварильно организовать код?

Кнопка 1 (переименовать)
Переименовать запись.

Кнопка 2 (удалить)
Удалить запись.

В зависимости от того какая кнопка нажата в обоих случаях необходимо:
- выполнить перебор записей таблицы;
- проверить условие "If !Пл1Тбл = True Then";
- выполинть операцию: "переименовать" ("удалить");


Код:
Option Compare Database

Public rstTable1 As DAO.Recordset ' Таблица [Таблица1]


' Переименовать запись
Private Sub Переимен_Click()
            Call rstTable1Set_fnk
            Call rstTable1Enum_fnk
            
            rstTable1!Пл1Тбл = Me.Пл1
            rstTable1.Update
End Sub


' Удалить запись
Private Sub Удалить_Click()
            rstTable1.Delete
            rstTable1.Update
End Sub


Private Sub rstTable1Set_fnk()
        Set rstTable1 = CurrentDb.OpenRecordset("Таблица1", dbOpenDynaset) ' *** Таблица1
End Sub


Private Sub rstTable1Enum_fnk()
    With rstTable1
        Do Until .EOF
            ' Условие
            If !Пл1Тбл= True Then
            
            End If
                       
            ' переходим к следующей записи
            .MoveNext
        Loop
    End With
End Sub





1. Как правильно организовать код?
Т.е. можно ли выделить "перебор записей" и "проверка условия" в одну функцию, чтобы каждая кнопка обращалась к этой функции.
Или нужно для каждой кнопки делать отдельные функции?

2. Можно ли вообще по другому решить данную задачу?
Изображения
Тип файла: jpg 01.jpg (60.5 Кб, 65 просмотров)
Вложения
Тип файла: rar Recordset.rar (17.5 Кб, 13 просмотров)

Последний раз редактировалось klim8; 20.03.2018 в 21:25.
klim8 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Составить программу для определения корректности логина. Правильный логин представляет из себя строку, состоящую из двух частей: - строка из двух букв "io" и набора цифр. Есть код 1033249 Помощь студентам 4 12.10.2017 10:48
Нужно пояснить/прокомментировать код программы, или коды функций "Добавить" "Удалить" "Обновить(редактировать" "Поиск" "Период") ZIRASS PHP 4 15.06.2016 14:23
Организовать текстовый файл f, состоящий из N строк. Организовать замену символов в файле. "Старый" символ и "новый" символ запраш Richik123 Паскаль, Turbo Pascal, PascalABC.NET 1 14.06.2012 16:28
Организовать текстовый файл f, состоящий из N строк. Организовать замену символов в файле. "Старый" символ и "новый" символ запра Richik123 Паскаль, Turbo Pascal, PascalABC.NET 0 31.05.2012 17:32