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
...
