datos de un form a otro
Publicado por atilio (10 intervenciones) el 30/09/2019 02:00:31
Buen dia a todos, necesito generar un formulario con datos de otro que despues serà eliminado, solo puedo dar valor a un solo campo el resto me dà error :
A quien pueda ayudarme , gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub GenFaE_
Dim FO As String
Dim FE As String
Dim TD As String
Dim TI As String
Dim NRODOC As String
Dim NN As String
Dim E_NRODOCA As String
Dim TIPO As String
Dim Concepto As String
Dim TIPODOC As String
Dim FECHA As String
Dim FECHAVTO As String
'Msgbox CurrentView.Body.NRODOC.Text
NN = CurrentView.Body.NRODOC.Text
TI = CurrentView.Body.TIPO.Text
TD = CurrentView.Body.TIPODOC.Text
FE = CurrentView.Body.FECHA.Text
FO = CurrentView.Body.FECHAVTO.Text
Msgbox (NN)
Msgbox (TI)
Msgbox (TD)
Msgbox (FE)
Msgbox (FO)
Set CurrentWindow.ActiveView = CurrentDocument.NOROCA
CurrentWindow.NewRecord
'Msgbox CurrentView.Body.TIPO.Text
CurrentView.Body.TIPO.Text=TI 'solo funciona este
'CurrentView.Body.CStr(TIPODOC)=TD 'CurrentView.Body.CStr(E_NRODOCA).Text=NN 'CurrentView.Body.E-FECHAFACA.Text=FE 'CurrentView.Body.E-FECHACREACION.Text=FO
End SubA quien pueda ayudarme , gracias
Valora esta pregunta
0