empleado as EmpleadoTipo


Type EmpleadoTipo
SeguroSocial As String * 9
filler1 As String * 1
Transaccion As String * 2
LlaveGenerica As String * 4
Operador As String * 8
Terminal As String * 4
FechadeEntrada As String * 6
HoradeEntrada As String * 6
numerodetrimestre As String * 3
Codigo As String * 1
SalariodeEmpleado As String * 7
NumerodeCuenta As String * 9
filler2 As String * 4
CodigoDot As String * 8
filler3 As String * 2
Indicador As String * 1
NumerodeBatch As String * 6
FechadeEfectividad As String * 6
CodigodeBatch As String * 3
CodigodePagina As String * 3
CodigodeOriginacion As String * 2
NombredelEmpleado As String * 16
InicialdelEmpleado As String * 1
ApellidoPaterno As String * 16
ApellidoMaterno As String * 16
filler4 As String * 4
filler5 As String * 2

End Type

Function mascaraquita()
txtFechadeEntrada.Text = Format(Me.Maskfechadeentrada.Value, "yyMMdd")
Me.txtFechadeEfectividad.Text = Format(Me.Maskfechadeefectividad.Value, "yyMMdd")
End Function

I need use Random to updated records created.

Thanks any help or suggestion is very appreciate.