hola gente del foro!
pues aqui tengo un problema,a ver si me explico tengo una bd que guarda numeros de ordenque pueden ser de la forma
1234 si es solo una partida o 1234-A,1234-B,1234-C, etc cuando son varias
entonces en un programa que se va capturando el progreso de las ordenes, cuando se captura, si la orden lleva -A,-B, etc y no se loponen no debe dejar continuar, pero me he dado cuenta que se han colado por ahi algunos registros que si deben llevar ese -A,-B y no la tienen, tienen el puro numero
he hecho varias pruebas y no descubro como se han colado esos registros, este es el codigo
Código:
...
If InStr(txtNoOrden.Text, "-") > 0 Then
PosSeparador = InStr(1, txtNoOrden.Text, "-")
NoOrden = Mid(txtNoOrden, 1, PosSeparador - 1)
xSub = Mid(txtNoOrden, PosSeparador + 1)
Else
NoOrden = Val(txtNoOrden.Text)
End If
Dim Rs1 As Recordset
Set Rs1 = Cnn.OpenRecordset("Select * from ordenpedido where noorden=" & _
Val(NoOrden) & " and sub='" & xSub & "'", dbOpenDynamic)
If Rs1.RecordCount = 0 Then
MsgBox "El no. de orden no ha sido encontrado, verifique y reintente de nuevo", vbOKOnly + vbCritical
Exit Sub
End If
...