У меня есть 2 разные пользовательские формы в качестве источника и 1 пользовательская форма в качестве адресата, 1 модуль для управления отправкой данных.
Необходимо скопировать переменные в целевые переменные пользовательской формы.
Но если переменные несуществует в пользовательской форме назначения, переменные не будут копироваться.
Посоветуйте, пожалуйста, как проверить, существует ли переменная в пользовательской форме назначения.
Какскопировать эти группы переменных для каждого цикла?
Заранее признателен.
for each obj in variables in frmDest
obj = frmOrgA.obj 'if variable exist, the variables name is same
next obj
frmOrgA (пользовательская форма): 3 переменные (strA asстрока, strB как строка, strC как строка)
frmOrgB (пользовательская форма): 4 переменные (strA как строка, strB как строка, strC как строка, strD как строка)
frmDest (пользовательская форма): 3 переменная (strA как строка, strB как строка, strC как строка)
frmOrgB (пользовательская форма)
Public Sub cmdDest_Click()
Set Tg = frmDest
Call IncomingSync(Me, Tg)
End Sub
Global (Module)
Public Sub IncomingSync(OrgUF As Object, TgUF As Object)
ICrun = False: ICrun = True
TgUF.strA = OrgUF.strA ' can be use for each in?
TgUF.strB = OrgUF.strB
TgUF.strC = OrgUF.strC
If not TgUF.strD is nothing Then TgUF.strD = OrgUF.strD
'can I detect if variable is exist?
frmDest.Show
End Sub