Добрый день, уважаемые форумчане!!! Признаюсь сразу данная тема имеет КРОСС: My WebPage но результата не достиг (((((. Прошу вас подсказать что я сделал не так (((( на листе "Журнал прихода" имеется кнопка "Редактировать запись выделенной строки" (CommandButton2) и когда оператор нажимает на нее то должна открыться "UserForm1" [vba]
Код
Private Sub CommandButton2_Click() UserForm1.Show End Sub
[/vba] Это срабатывает и форма отображается заполненной (и если встать на пустую строку или ячейку то информирует что: "Вы выбрали пустую строку. Повторите попытку") [vba]
Код
Private Sub CommandButton7_Click() 'Это код для редактирования выделенной строки If Edit_Copy = "Edit" Then Cells(iRow, 1) = Me.TextBox1 Cells(iRow, 23) = Me.TextBox2 Cells(iRow, 21) = Me.TextBox3 Cells(iRow, 5) = Me.ComboBox1 Cells(iRow, 2) = Me.ComboBox2 Cells(iRow, 24) = Me.ComboBox3 Cells(iRow, 6) = Me.ComboBox5 Cells(iRow, 4) = Me.ComboBox4 Cells(iRow, 3) = Me.ComboBox6 Cells(iRow, 25) = Me.ComboBox7 Cells(iRow, 26) = Me.ComboBox8 Cells(iRow, 22) = Me.TextBox4 Cells(iRow, 10) = Me.TextBox5 Cells(iRow, 27) = Me.ComboBox9 Cells(iRow, 7) = Me.TextBox6 Cells(iRow, 8) = Me.TextBox7 Cells(iRow, 13) = Me.TextBox8 'Это у нас загрузка данных выделеной строки согласно формы End If End Sub
Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки iRow = ActiveCell.Row If Cells(iRow, 2) = "" Then MsgBox "Вы выбрали пустую строку. Повторите попытку.", 48, "ОШибка!" End End If If Edit_Copy = "Edit" Then Me.Caption = "Редактировать запись выделенной строки" Me.CommandButton7.Caption = "Сохранить редактирование выбранной строки" Else Me.Caption = "База" Me.CommandButton7.Caption = "Сохранить редактирование выбранной строки" FreeRow = Sheets("журнал прихода").Cells(Rows.Count, 2).End(xlUp).Row + 1 End If Me.TextBox1 = Cells(iRow, 1) Me.TextBox2 = Cells(iRow, 23) Me.TextBox3 = Cells(iRow, 21) Me.ComboBox1 = Cells(iRow, 5) Me.ComboBox2 = Cells(iRow, 2) Me.ComboBox3 = Cells(iRow, 24) Me.ComboBox5 = Cells(iRow, 6) Me.ComboBox4 = Cells(iRow, 4) Me.ComboBox6 = Cells(iRow, 3) Me.ComboBox7 = Cells(iRow, 25) Me.ComboBox8 = Cells(iRow, 26) Me.TextBox4 = Cells(iRow, 22) Me.TextBox5 = Cells(iRow, 10) Me.ComboBox9 = Cells(iRow, 27) Me.TextBox6 = Cells(iRow, 7) Me.TextBox7 = Cells(iRow, 8) Me.TextBox8 = Cells(iRow, 13) End Sub
[/vba] На форме есть кнопка "Сохранить редактирование выбранной строки" (CommandButton7) и если оператор ее нажимает то (после отредактированных данных по поставщику) данные должны будут сохраниться... И тут (в виду того что я удалил все коды на выпадающие списки на данной форме, выпадающих списков нет (((( я попытался изменить значения) и нажать кнопку "Сохранить редактирование выбранной строки" (CommandButton7) и (((((( ни чего (((((. Также мне не понятно почему же теперь когда я нажимаю кнопку (CommandButton1) "Внести данные в журнал" моя форма отображается заполненной (((( и также информирует что "Вы выбрали пустую строку. Повторите попытку". Хотя она должна была появиться пустой для добавления нового поставщика в журнал прихода. Я правда не могу сообразить ПОЧЕМУ ТАК!? Прошу вас подскажите что я делаю не так (((( не нужно прописывать код. Подскажите мои ошибки, пожалуйста. [p.s.] То что не сохраняется после редактирования я так понимаю в моем коде нет кода сохранить (((( возможно я не прав... Но почему же "Также мне не понятно почему же теперь когда я нажимаю кнопку (CommandButton1) "Внести данные в журнал" моя форма отображается заполненной (((( и также информирует что "Вы выбрали пустую строку. Повторите попытку". Хотя она должна была появиться пустой для добавления нового поставщика в журнал прихода. "
Добрый день, уважаемые форумчане!!! Признаюсь сразу данная тема имеет КРОСС: My WebPage но результата не достиг (((((. Прошу вас подсказать что я сделал не так (((( на листе "Журнал прихода" имеется кнопка "Редактировать запись выделенной строки" (CommandButton2) и когда оператор нажимает на нее то должна открыться "UserForm1" [vba]
Код
Private Sub CommandButton2_Click() UserForm1.Show End Sub
[/vba] Это срабатывает и форма отображается заполненной (и если встать на пустую строку или ячейку то информирует что: "Вы выбрали пустую строку. Повторите попытку") [vba]
Код
Private Sub CommandButton7_Click() 'Это код для редактирования выделенной строки If Edit_Copy = "Edit" Then Cells(iRow, 1) = Me.TextBox1 Cells(iRow, 23) = Me.TextBox2 Cells(iRow, 21) = Me.TextBox3 Cells(iRow, 5) = Me.ComboBox1 Cells(iRow, 2) = Me.ComboBox2 Cells(iRow, 24) = Me.ComboBox3 Cells(iRow, 6) = Me.ComboBox5 Cells(iRow, 4) = Me.ComboBox4 Cells(iRow, 3) = Me.ComboBox6 Cells(iRow, 25) = Me.ComboBox7 Cells(iRow, 26) = Me.ComboBox8 Cells(iRow, 22) = Me.TextBox4 Cells(iRow, 10) = Me.TextBox5 Cells(iRow, 27) = Me.ComboBox9 Cells(iRow, 7) = Me.TextBox6 Cells(iRow, 8) = Me.TextBox7 Cells(iRow, 13) = Me.TextBox8 'Это у нас загрузка данных выделеной строки согласно формы End If End Sub
Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки iRow = ActiveCell.Row If Cells(iRow, 2) = "" Then MsgBox "Вы выбрали пустую строку. Повторите попытку.", 48, "ОШибка!" End End If If Edit_Copy = "Edit" Then Me.Caption = "Редактировать запись выделенной строки" Me.CommandButton7.Caption = "Сохранить редактирование выбранной строки" Else Me.Caption = "База" Me.CommandButton7.Caption = "Сохранить редактирование выбранной строки" FreeRow = Sheets("журнал прихода").Cells(Rows.Count, 2).End(xlUp).Row + 1 End If Me.TextBox1 = Cells(iRow, 1) Me.TextBox2 = Cells(iRow, 23) Me.TextBox3 = Cells(iRow, 21) Me.ComboBox1 = Cells(iRow, 5) Me.ComboBox2 = Cells(iRow, 2) Me.ComboBox3 = Cells(iRow, 24) Me.ComboBox5 = Cells(iRow, 6) Me.ComboBox4 = Cells(iRow, 4) Me.ComboBox6 = Cells(iRow, 3) Me.ComboBox7 = Cells(iRow, 25) Me.ComboBox8 = Cells(iRow, 26) Me.TextBox4 = Cells(iRow, 22) Me.TextBox5 = Cells(iRow, 10) Me.ComboBox9 = Cells(iRow, 27) Me.TextBox6 = Cells(iRow, 7) Me.TextBox7 = Cells(iRow, 8) Me.TextBox8 = Cells(iRow, 13) End Sub
[/vba] На форме есть кнопка "Сохранить редактирование выбранной строки" (CommandButton7) и если оператор ее нажимает то (после отредактированных данных по поставщику) данные должны будут сохраниться... И тут (в виду того что я удалил все коды на выпадающие списки на данной форме, выпадающих списков нет (((( я попытался изменить значения) и нажать кнопку "Сохранить редактирование выбранной строки" (CommandButton7) и (((((( ни чего (((((. Также мне не понятно почему же теперь когда я нажимаю кнопку (CommandButton1) "Внести данные в журнал" моя форма отображается заполненной (((( и также информирует что "Вы выбрали пустую строку. Повторите попытку". Хотя она должна была появиться пустой для добавления нового поставщика в журнал прихода. Я правда не могу сообразить ПОЧЕМУ ТАК!? Прошу вас подскажите что я делаю не так (((( не нужно прописывать код. Подскажите мои ошибки, пожалуйста. [p.s.] То что не сохраняется после редактирования я так понимаю в моем коде нет кода сохранить (((( возможно я не прав... Но почему же "Также мне не понятно почему же теперь когда я нажимаю кнопку (CommandButton1) "Внести данные в журнал" моя форма отображается заполненной (((( и также информирует что "Вы выбрали пустую строку. Повторите попытку". Хотя она должна была появиться пустой для добавления нового поставщика в журнал прихода. "lebensvoll
Также мне не понятно почему же теперь когда я нажимаю кнопку (CommandButton1) "Внести данные в журнал" моя форма отображается заполненной (((( и также информирует что "Вы выбрали пустую строку. Повторите попытку". Хотя она должна была появиться пустой для добавления нового поставщика в журнал прихода.
при нажатии CommandButton1 вы показываете форму1, при инициализации которой у вас выполняется код [vba]
Код
Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки ... MsgBox "Вы выбрали пустую строку. Повторите попытку.", 48, "ОШибка!" ... End
Также мне не понятно почему же теперь когда я нажимаю кнопку (CommandButton1) "Внести данные в журнал" моя форма отображается заполненной (((( и также информирует что "Вы выбрали пустую строку. Повторите попытку". Хотя она должна была появиться пустой для добавления нового поставщика в журнал прихода.
при нажатии CommandButton1 вы показываете форму1, при инициализации которой у вас выполняется код [vba]
Код
Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки ... MsgBox "Вы выбрали пустую строку. Повторите попытку.", 48, "ОШибка!" ... End
sboy, я вас не понял ((( Когда я нажимаю кнопку CommandButton1 (все правильно должна открыться форма, но она должна была открыться пустой....и не выводить ошибку "Вы выбрали пустую строку. Повторите попытку".) а вот когда я нажимаю кнопку CommandButton2 то тогда должна была выводить ошибку если я стою на пустой строке или же открывать форму но заполненной данной согласно данными в строке... А также при нажатии кнопки CommandButton7 сохранить отредактированные данные в данной строке (((((
sboy, я вас не понял ((( Когда я нажимаю кнопку CommandButton1 (все правильно должна открыться форма, но она должна была открыться пустой....и не выводить ошибку "Вы выбрали пустую строку. Повторите попытку".) а вот когда я нажимаю кнопку CommandButton2 то тогда должна была выводить ошибку если я стою на пустой строке или же открывать форму но заполненной данной согласно данными в строке... А также при нажатии кнопки CommandButton7 сохранить отредактированные данные в данной строке (((((lebensvoll
lebensvoll, так у вас на Command1 и 2 один и тот же код выполняется) его надо править в зависимости от кнопки, например передать логическую переменную при нажатии. а от значения этой переменной, делать логику в форме.
lebensvoll, так у вас на Command1 и 2 один и тот же код выполняется) его надо править в зависимости от кнопки, например передать логическую переменную при нажатии. а от значения этой переменной, делать логику в форме.sboy
sboy, вы имеете в виду вот это??? Потому как меня лично оно смущает почему она указывает внедрить"Command1" [img][/img] а также меня смущает именно вот это??? [vba]
Код
Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки iRow = ActiveCell.Row If Cells(iRow, 2) = "" Then
[/vba] Почему именно Initialize но если я начиная прописывать UserForm1 то вообще бред получается (((( форма тогда получается показывается пустой (((( что жать на Command1 или 2
sboy, вы имеете в виду вот это??? Потому как меня лично оно смущает почему она указывает внедрить"Command1" [img][/img] а также меня смущает именно вот это??? [vba]
Код
Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки iRow = ActiveCell.Row If Cells(iRow, 2) = "" Then
[/vba] Почему именно Initialize но если я начиная прописывать UserForm1 то вообще бред получается (((( форма тогда получается показывается пустой (((( что жать на Command1 или 2lebensvoll
[/vba] создать модуль и в нем макрос по редактированию, который у вас сейчас в UserForm_Initialize(), назовите его как-нибудь типа FormRedactor() и поменяйте Me на UserForm1 Изменить код нажатия Command2 [vba]
Код
Private Sub CommandButton2_Click() UserForm1.Show Call Form_Redactor End Sub
[/vba]
я бы предложил убрать [vba]
Код
Private Sub UserForm_Initialize()
[/vba] создать модуль и в нем макрос по редактированию, который у вас сейчас в UserForm_Initialize(), назовите его как-нибудь типа FormRedactor() и поменяйте Me на UserForm1 Изменить код нажатия Command2 [vba]
Код
Private Sub CommandButton2_Click() UserForm1.Show Call Form_Redactor End Sub
RAN, спасибо!!! Вопросы и еще раз вопросы В первую очередь получается что я должен был на листе прописать код для кнопки не так: [vba]
Код
Private Sub CommandButton2_Click() UserForm1.Show End Sub
[/vba] а вот так [vba]
Код
Private Sub CommandButton2_Click() UserForm1.Tag = "red" UserForm1.Show
End Sub
[/vba] Не могу понять причем тут красный??? Далее я должен был прописать также активацию кода на форме для кода (как то звучит бредово но я так понял) [vba]
Код
Private Sub UserForm_Activate() Me.ComboBox1.RowSource = "Завод" Me.ComboBox2.RowSource = "Поставщик" Me.ComboBox3.RowSource = "Грузоперевозчик" Me.ComboBox4.RowSource = "ВидМатериала" Me.ComboBox5.RowSource = "Тара" Me.ComboBox6.RowSource = "Номенклатура" Me.ComboBox7.RowSource = "ВидЦемента" Me.ComboBox8.RowSource = "МашиныПривоза" Me.ComboBox9.RowSource = "МестоПриемки" Me.MonthView1.Visible = False If Me.Tag = "red" Then Call UserForm_Ini 'вот ваша активация вашего кода End Sub
[/vba] потом по самому коду т.е то что было ранее прописано
Цитата
Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки
его можно было бы обозвать как угодно т.е. как и у вас [vba]
Код
Private Sub UserForm_Ini() 'код для редактирования выделенной строки iRow = ActiveCell.Row If Cells(iRow, 2) = "" Then MsgBox "Вы выбрали пустую строку. Пожалуйста выберите заполненную строку для редактирования. И Повторите попытку.", 48, "Ошибка!" End End If If Edit_Copy = "Edit" Then Me.Caption = "Редактировать запись выделенной строки" Me.CommandButton7.Caption = "Сохранить отредактированные данные выделенной строки" Else Me.Caption = "Редактировать запись выделенной строки" 'правильно ли я указал загаловок Me.CommandButton7.Caption = "Сохранить отредактированные данные выделенной строки" FreeRow = Sheets("журнал прихода").Cells(Rows.Count, 2).End(xlUp).Row + 1 End If Me.TextBox1 = Cells(iRow, 1) Me.TextBox2 = Cells(iRow, 23) Me.TextBox3 = Cells(iRow, 21) Me.ComboBox1 = Cells(iRow, 5) Me.ComboBox2 = Cells(iRow, 2) Me.ComboBox3 = Cells(iRow, 24) Me.ComboBox5 = Cells(iRow, 6) Me.ComboBox4 = Cells(iRow, 4) Me.ComboBox6 = Cells(iRow, 3) Me.ComboBox7 = Cells(iRow, 25) Me.ComboBox8 = Cells(iRow, 26) Me.TextBox4 = Cells(iRow, 22) Me.TextBox5 = Cells(iRow, 10) Me.ComboBox9 = Cells(iRow, 27) Me.TextBox6 = Cells(iRow, 7) Me.TextBox7 = Cells(iRow, 8) Me.TextBox8 = Cells(iRow, 13) End Sub
[/vba]
RAN, спасибо!!! Вопросы и еще раз вопросы В первую очередь получается что я должен был на листе прописать код для кнопки не так: [vba]
Код
Private Sub CommandButton2_Click() UserForm1.Show End Sub
[/vba] а вот так [vba]
Код
Private Sub CommandButton2_Click() UserForm1.Tag = "red" UserForm1.Show
End Sub
[/vba] Не могу понять причем тут красный??? Далее я должен был прописать также активацию кода на форме для кода (как то звучит бредово но я так понял) [vba]
Код
Private Sub UserForm_Activate() Me.ComboBox1.RowSource = "Завод" Me.ComboBox2.RowSource = "Поставщик" Me.ComboBox3.RowSource = "Грузоперевозчик" Me.ComboBox4.RowSource = "ВидМатериала" Me.ComboBox5.RowSource = "Тара" Me.ComboBox6.RowSource = "Номенклатура" Me.ComboBox7.RowSource = "ВидЦемента" Me.ComboBox8.RowSource = "МашиныПривоза" Me.ComboBox9.RowSource = "МестоПриемки" Me.MonthView1.Visible = False If Me.Tag = "red" Then Call UserForm_Ini 'вот ваша активация вашего кода End Sub
[/vba] потом по самому коду т.е то что было ранее прописано
Цитата
Private Sub UserForm_Initialize() 'Код для редактирования выделенной строки
его можно было бы обозвать как угодно т.е. как и у вас [vba]
Код
Private Sub UserForm_Ini() 'код для редактирования выделенной строки iRow = ActiveCell.Row If Cells(iRow, 2) = "" Then MsgBox "Вы выбрали пустую строку. Пожалуйста выберите заполненную строку для редактирования. И Повторите попытку.", 48, "Ошибка!" End End If If Edit_Copy = "Edit" Then Me.Caption = "Редактировать запись выделенной строки" Me.CommandButton7.Caption = "Сохранить отредактированные данные выделенной строки" Else Me.Caption = "Редактировать запись выделенной строки" 'правильно ли я указал загаловок Me.CommandButton7.Caption = "Сохранить отредактированные данные выделенной строки" FreeRow = Sheets("журнал прихода").Cells(Rows.Count, 2).End(xlUp).Row + 1 End If Me.TextBox1 = Cells(iRow, 1) Me.TextBox2 = Cells(iRow, 23) Me.TextBox3 = Cells(iRow, 21) Me.ComboBox1 = Cells(iRow, 5) Me.ComboBox2 = Cells(iRow, 2) Me.ComboBox3 = Cells(iRow, 24) Me.ComboBox5 = Cells(iRow, 6) Me.ComboBox4 = Cells(iRow, 4) Me.ComboBox6 = Cells(iRow, 3) Me.ComboBox7 = Cells(iRow, 25) Me.ComboBox8 = Cells(iRow, 26) Me.TextBox4 = Cells(iRow, 22) Me.TextBox5 = Cells(iRow, 10) Me.ComboBox9 = Cells(iRow, 27) Me.TextBox6 = Cells(iRow, 7) Me.TextBox7 = Cells(iRow, 8) Me.TextBox8 = Cells(iRow, 13) End Sub
sboy, просто сама суть как раз таки в общем файле не так ли (((( просто многим не нравится что слишком много кодов и не любят разбираться (понять что куда и что от куда) и просят саму суть ((((( вопроса. А тут все завязано ведь на одной теме и на общих кодах (((( но на вопросы я так и жду ответа чтоб понять И все же кнопка сохранить отредактированные данные не сохраняет если что то изменить в открывшейся форме ((((( скорее всего я должен что то дополнить????
sboy, просто сама суть как раз таки в общем файле не так ли (((( просто многим не нравится что слишком много кодов и не любят разбираться (понять что куда и что от куда) и просят саму суть ((((( вопроса. А тут все завязано ведь на одной теме и на общих кодах (((( но на вопросы я так и жду ответа чтоб понять И все же кнопка сохранить отредактированные данные не сохраняет если что то изменить в открывшейся форме ((((( скорее всего я должен что то дополнить????lebensvoll
Кто бы ты ни был, мир в твоих руках
Сообщение отредактировал lebensvoll - Понедельник, 25.07.2016, 12:40
И все же кнопка сохранить отредактированные данные не сохраняет если что то изменить в открывшейся форме ((((( скорее всего я должен что то дополнить????
И все же кнопка сохранить отредактированные данные не сохраняет если что то изменить в открывшейся форме ((((( скорее всего я должен что то дополнить????
Попытаюсь объяснить) у вас автомат по приготовлению напитков. Вы создали на нем 2 кнопки "кипяток" и "кофе". При нажатии на любую из них выполнялась одна и та же программа Private Sub UserForm_Initialize() и соответственно варилось кофе). Убрав слово Initialize() исключаем программу из событийных, т.е. автоматических при обращении к форме. Теперь у вас всегда "Кипяток", чтоб получилось "кофе" надо его добавить дополнительно. Уважаемый RAN добавил вам тэг для "варки кофе" на кнопку. При открытии формы (наливаем кипяток), проверяется тэг на кофе (нет, останется кипяток, да - выполняем программу добавления кофе) Я предлагал похожее, но менее изящное решение с отдельным макросом) Надеюсь понятно объяснил
Попытаюсь объяснить) у вас автомат по приготовлению напитков. Вы создали на нем 2 кнопки "кипяток" и "кофе". При нажатии на любую из них выполнялась одна и та же программа Private Sub UserForm_Initialize() и соответственно варилось кофе). Убрав слово Initialize() исключаем программу из событийных, т.е. автоматических при обращении к форме. Теперь у вас всегда "Кипяток", чтоб получилось "кофе" надо его добавить дополнительно. Уважаемый RAN добавил вам тэг для "варки кофе" на кнопку. При открытии формы (наливаем кипяток), проверяется тэг на кофе (нет, останется кипяток, да - выполняем программу добавления кофе) Я предлагал похожее, но менее изящное решение с отдельным макросом) Надеюсь понятно объяснилsboy
зачем? совсем неправильно делать логику если истина то 1, если нет то тоже 1. просто уберите логическую конструкцию У Вас там переменная Edit_Copy, видимо не используется (предположу, что осталась от исходного кода) [vba]
Код
Private Sub CommandButton7_Click() 'Это код для редактирования выделенной строки 'If Edit_Copy = "Edit" Then Cells(iRow, 1) = Me.TextBox1 Cells(iRow, 23) = Me.TextBox2 Cells(iRow, 21) = Me.TextBox3 Cells(iRow, 5) = Me.ComboBox1 Cells(iRow, 2) = Me.ComboBox2 Cells(iRow, 24) = Me.ComboBox3 Cells(iRow, 6) = Me.ComboBox5 Cells(iRow, 4) = Me.ComboBox4 Cells(iRow, 3) = Me.ComboBox6 Cells(iRow, 25) = Me.ComboBox7 Cells(iRow, 26) = Me.ComboBox8 Cells(iRow, 22) = Me.TextBox4 Cells(iRow, 10) = Me.TextBox5 Cells(iRow, 27) = Me.ComboBox9 Cells(iRow, 7) = Me.TextBox6 Cells(iRow, 8) = Me.TextBox7 Cells(iRow, 13) = Me.TextBox8 'Это у нас загрузка данных выделеной строки согласно формы ' End If End Sub
зачем? совсем неправильно делать логику если истина то 1, если нет то тоже 1. просто уберите логическую конструкцию У Вас там переменная Edit_Copy, видимо не используется (предположу, что осталась от исходного кода) [vba]
Код
Private Sub CommandButton7_Click() 'Это код для редактирования выделенной строки 'If Edit_Copy = "Edit" Then Cells(iRow, 1) = Me.TextBox1 Cells(iRow, 23) = Me.TextBox2 Cells(iRow, 21) = Me.TextBox3 Cells(iRow, 5) = Me.ComboBox1 Cells(iRow, 2) = Me.ComboBox2 Cells(iRow, 24) = Me.ComboBox3 Cells(iRow, 6) = Me.ComboBox5 Cells(iRow, 4) = Me.ComboBox4 Cells(iRow, 3) = Me.ComboBox6 Cells(iRow, 25) = Me.ComboBox7 Cells(iRow, 26) = Me.ComboBox8 Cells(iRow, 22) = Me.TextBox4 Cells(iRow, 10) = Me.TextBox5 Cells(iRow, 27) = Me.ComboBox9 Cells(iRow, 7) = Me.TextBox6 Cells(iRow, 8) = Me.TextBox7 Cells(iRow, 13) = Me.TextBox8 'Это у нас загрузка данных выделеной строки согласно формы ' End If End Sub
sboy, честно сказать я понял но сомневаюсь что верно ((((( Правильней было бы тогда сделать так: Создать форму 2 по аналогии формы1 но с кнопками изменить и закрыть и если бы я на листе журнала нажимал кнопку редактировать выделенную строку то открывалась форма2 а не форма1 так было бы правильнее наверное... и при нажатии на форме2 кнопки изменить то данные бы сохранялись...
sboy, честно сказать я понял но сомневаюсь что верно ((((( Правильней было бы тогда сделать так: Создать форму 2 по аналогии формы1 но с кнопками изменить и закрыть и если бы я на листе журнала нажимал кнопку редактировать выделенную строку то открывалась форма2 а не форма1 так было бы правильнее наверное... и при нажатии на форме2 кнопки изменить то данные бы сохранялись...lebensvoll
lebensvoll, рисовать много одинаковых форм тоже не совсем правильно... можно сделать 1 форму со всеми нужными кнопками, но в зависимости от кнопки ее вызова, на самой форме включать/отключать видимость/активность необходимых
lebensvoll, рисовать много одинаковых форм тоже не совсем правильно... можно сделать 1 форму со всеми нужными кнопками, но в зависимости от кнопки ее вызова, на самой форме включать/отключать видимость/активность необходимыхsboy