Передача данных между двумя пользовательскими формами не работает - PullRequest
Новая
       13

Передача данных между двумя пользовательскими формами не работает

0 голосов
/ 02 июня 2019

Я работаю над пользовательской формой, которая вставляет данные в БД.Есть кнопка модификации, которая позволяет обновлять данные, но я хочу разрешить подтверждение обновления с паролем.Поэтому в коде кнопки изменения я вызываю другую пользовательскую форму, которая предлагает пользователю ввести пароль.Проблема, с которой я столкнулся, заключается в том, что я создал логическую переменную, для которой задан True, когда пароль верен, и False другой.Когда пароль правильный, код кнопки изменения продолжается, но информация True не передается первой пользовательской форме

Я видел много подобных вопросов здесь, но ни один из ответов, которые я виделпомог мне решить мою проблему.Я создал несколько открытых переменных в обоих кодах, но все еще не работает

Вот код для кнопки изменения (Первая пользовательская форма) 

Private Sub modify_Click()
On Error GoTo handler
Dim connec As Object
Dim rst As Object
Dim stringconn As String
Dim sqlupdt As String
Dim modifmat As String
Dim msg

--Some code here

if [condition] then
goto 1
end if

1 password.show

if pwcorr= True then 
goto 2
else
msgbox "Incorrect password"
exit sub
end if

3 --Some code here
end sub

, а вот код для пароля пользовательской формы(2-я форма пользователя) 

Public pwcorr
public sub OkBtn_Click()
Dim pw As String
Dim pwin As String
Dim pwcorr As Boolean

pw= "abcde"
pwin = Me.pwin.Text

If pwin = vbNullString Then
MsgBox "No password was entered", vbCritical
ElseIf pwin = pw Then
Me.pwcorr = True
Unload Me
Else
MsgBox "Password incorrect", vbCritical
End If
End Sub

Всякий раз, когда я добираюсь до точки, где я проверяю If pwcorr = True в первом коде, pwcorr всегда пуст.Не знаю почему

...