Saludos coordiales
Tengo un problema con un Datagrid
Les doy la idea..
En un formulario estoy creando la factura
tengo un datagrid que lo e enlazado mediante ado y cargo la tabla detalle todo funciona bien..
el problema biene en el data grid que tengo programado esto en el evento keypress(Leer mas abajo)
Ingreso el codigo del articulo en una columna del datagrid cuando doy enter busca el codigo correcto carga los demas datos a las demas columnas
cuando es incorrecto aparece un mensaje "No existe Articulo" ahi va todo bien
Ahora cuando ingreso primero el codigo del articulo incorrecto me aprece el mensaje y cuando ingreso el codigo del articulo correcto primero me aparece el mensaje y tengo que dar otro enter para que se me carguen los datos
Me pueden dar una idea de como resolver este problema.
De antemano gracias
If KeyAscii = 13 Then
Dim col As Integer
Dim sql As String
col = Me.DataGrid2.col
If col = "2" Then
On Error Resume Next
Dim rs As New Recordset
sql = "SELECT * FROM articulos WHERE codigo ='" & (Me.DataGrid2.Columns(2).Text) & "' "
rs.Open sql, Cconexion, adOpenForwardOnly, adLockReadOnly
If rs.EOF Then
MsgBox ("No existe articulo")
Me.DataGrid2.Columns(2).Text = ""
rs.Close
Else
"Con esto cargo los datos al data grid"
Tabla.Open "select articulos.nombre,articulos.costoproveedor,unidades .nombre from articulos,unidades where articulos.Codunidad = unidades.codigo and articulos.codigo= '" & Me.DataGrid2.Columns(2).Text & "'", Cconexion, adOpenDynamic, adLockOptimistic
Me.DataGrid2.Columns(3).Text = Tabla.Fields("articulos.Nombre")
Me.DataGrid2.Columns(4).Text = Tabla.Fields("unidades.nombre")
Me.DataGrid2.Columns(6).Text = Tabla.Fields("CostoProveedor")
Tabla.Close
End If
End If
End If