Combinación de Find y EOF
Hola aja:
Tengo el sig. Código pero me marca error al llamar al procedimiento o argumento invalido:
rstExistencias.MoveFirst
I = 0
While Not rstExistencias.EOF
rstExistencias.FindFirst "Máquina=""'&cboMaquinaM1.Text &'"""
If rstExistencias.NoMatch Then
cboMaquinaM1.AddItem rstExistencias.Fields("Máquina")
End If
cboTipoM1.AddItem rstExistencias.Fields("Tipo")
rstExistencias.MoveNext
I = I + 1
Wend
txtNumero.Text = I
En la linea después del primer if es donde me marca el error
Tu respuesta anterior funcionó muy bien Gracias
Tengo el sig. Código pero me marca error al llamar al procedimiento o argumento invalido:
rstExistencias.MoveFirst
I = 0
While Not rstExistencias.EOF
rstExistencias.FindFirst "Máquina=""'&cboMaquinaM1.Text &'"""
If rstExistencias.NoMatch Then
cboMaquinaM1.AddItem rstExistencias.Fields("Máquina")
End If
cboTipoM1.AddItem rstExistencias.Fields("Tipo")
rstExistencias.MoveNext
I = I + 1
Wend
txtNumero.Text = I
En la linea después del primer if es donde me marca el error
Tu respuesta anterior funcionó muy bien Gracias
1 Respuesta
Respuesta de aja72
1
A primera vista lo que está mal es la disposición de las comillas simples, debería ser así:
rstExistencias.FindFirst "Máquina='" & cboMaquinaM1.Text & "'"
rstExistencias.FindFirst "Máquina='" & cboMaquinaM1.Text & "'"
