hola tengo un pequeño problema con un programita que vengo haciendo cuando le paso el valor para que agregue un nuevo item a mi combo localidad, me dice que el argumento no es opcional. probe directamente agregando un texto frmChofer_Edicion.cmbLocalidad.additem = "hola" pero tampoco, en cambio tengo otro formulario que si me permite, muchas gracias
aca les dejo el codigo
Código:
'Controla si hay registros para editar
If Not rsChofer.EOF And Not rsChofer.BOF Then
'MODIFICA EL CAPTION DE frmCircuito_edicion
frmChofer_Edicion.Caption = "Modificando Chofer"
'seleccionamos el registro correspondiente de mis caja de textos
frmChofer_Edicion.txtID_Chofer = rsChofer!id_chofer
frmChofer_Edicion.txtDNI_Chofer = rsChofer!dni_chofer
frmChofer_Edicion.txtApellido_Chofer = rsChofer!apellido_chofer
frmChofer_Edicion.txtNombre_Chofer = rsChofer!nombre_chofer
frmChofer_Edicion.txtLegajo_Chofer = rsChofer!numero_legajo_chofer
frmChofer_Edicion.txtDireccion_Chofer = rsChofer!domicilio_chofer
frmChofer_Edicion.cmbLocalidad.AddItem = rsChofer!descripcion_departamento
frmChofer_Edicion.cmbLocalidad.ListIndex frmChofer_Edicion.cmbLocalidad.NewIndex
frmChofer_Edicion.cmbProvincia.AddItem = rsChofer!descripcion_provincia
frmChofer_Edicion.cmbProvincia.ListIndex frmChofer_Edicion.cmbProvincia.NewIndex
frmChofer_Edicion.cmbEstadoCivil.AddItem = rsChofer!descripcion_estado_civil
frmChofer_Edicion.cmbEstadoCivil.ListIndex frmChofer_Edicion.cmbEstadoCivil.NewIndex
'frmChofer_Edicion.cmbCat_Chofer.AddItem = rsChofer!descripcion_categoria_chofer
'frmChofer_Edicion.cmbCat_Chofer.ListIndex frmChofer_Edicion.cmbCat_Chofer.NewIndex
frmChofer_Edicion.Show (1)
' cargarCircuito
' EditarGrillaCircuito
Else
'Si no hay datos tiramos un mensaje de error
MsgBox ("No hay ningún Registro para Editar" & vbNewLine & _
"Por favor verifique si hay algún Registro seleccionado."), vbInformation, "Error en la edición"
End If
Exit Function
ira:
MsgBox Err.Description
End Function