Private Sub dtgArticulos_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Select Case formularioDestino
//.. El Select Case lo utilizo porque este formulario es llamado por varios formularios
frmRegistrar.cmpColor = dtgArticulos.Columns("Color").Text
frmRegistrar.cmpMaterial = dtgArticulos.Columns("Material").Text
frmRegistrar.cmpTalla = dtgArticulosColumns("Talla").Text
frmRegistrar.cmpPrecio = dtgArticulosColumns("PrecioVenta").Text
frmRegistrar.cmpFechaRegistro.Text = Format(Date, "dd/mm/yyyy")
End Select
Unload Me // Aqui quiero realizar el Unload Me pero causa el error
End If
End Sub
Private Sub Form_Load()
Set dtgArticulos.DataSource = resultset // Esta variable es global
dtgMarcas.Columns("Color").Width = 1500
dtgMarcas.Columns("Material").Width = 1500
dtgMarcas.Columns("Talla").Width = 1500
dtgMarcas.Columns("Precio").Width = 1500
dtgMarcas.Columns("PrecioVenta").Width = 1500
End Sub