error 446 Object doesnt support named arguments
Publicado por natahalie (4 intervenciones) el 14/11/2008 14:56:34
Hola Alguien me podria ayudar con este mensaje?
error 446 Object doesnt support named arguments
me sale en el siguiente codigo de consultar
Private Sub Cmd_Aceptar1_Click()
Cadena_SQL = "Select * from OECOTIZACION_SQL"
StrSql = ""
If Text_Fecha.Text <> "" Then
StrSql = StrSql + "cot_date= '" & Text_Fecha.Text + " and '"
End If
If Text_Id.Text <> "" Then
StrSql = StrSql + "cot_number= '" & Text_Id.Text + "' and "
End If
If Combo_Cliente.Text <> "" Then
StrSql = StrSql + "cus_name= '" & Combo_Cliente.Text + "' and "
End If
If Text_Producto.Text <> "" Then
StrSql = StrSql + "item_no= '" & Text_Producto.Text + "' and "
End If
If Text_Product.Text <> "" Then
StrSql = StrSql + "search_desc= '" & Text_Product.Text + "' and "
End If
If Text_Especific.Text <> "" Then
StrSql = StrSql + "Especific_prod= '" & Text_Especif.Text + "' and "
End If
If Text_Presentacion.Text <> "" Then
StrSql = StrSql + "item_desc_2= '" & Cmd_present.Text + "' and "
End If
If Text_Cantidad.Text <> "" Then
StrSql = StrSql + "qty_prod= '" & Text_Presentacion.Text + "' and "
End If
If Text_Precio.Text <> "" Then
StrSql = StrSql + "prc_or_disc_1= '" & Text_Precio.Text + "' and "
End If
If Text_Validez.Text <> "" Then
StrSql = StrSql + "end_prc= '" & Text_Validez.Text + "' and "
End If
If Combo_terminos.Text <> "" Then
StrSql = StrSql + "pay_term=" & Combo_terminos.Text + "' and "
End If
If Text_Direccion.Text <> "" Then
StrSql = StrSql + "addr_1= '" & Text_Direccion.Text + "' and "
End If
If Text_Reque.Text <> "" Then
StrSql = StrSql + "lead_time= '" & Text_Reque.Text + "' and "
End If
If Combo_Vendedor.Text <> "" Then
StrSql = StrSql + "cot_sales= '" & Combo_Vendedor.Text + "' and "
End If
If Text_Observ.Text <> "" Then
StrSql = StrSql + "cot_Observ= " & Text_Observ.Text
End If
If StrSql <> "" Then
Cadena_SQL = Cadena_SQL + " where " + StrSql
cadena = Cadena_SQL
desde = Len(cadena)
hasta = (desde - 5)
Cadena_SQL = Mid(cadena, 1, hasta)
End If
'MsgBox Cadena_SQL
Connect.RecordSource = Cadena_SQL ' AQUI ME SALE EL ERROR
'Rs2.Open Cadena_SQL, Connect
Fra_Funciones.Visible = True
Fra_Consultar.Visible = False
End Sub
error 446 Object doesnt support named arguments
me sale en el siguiente codigo de consultar
Private Sub Cmd_Aceptar1_Click()
Cadena_SQL = "Select * from OECOTIZACION_SQL"
StrSql = ""
If Text_Fecha.Text <> "" Then
StrSql = StrSql + "cot_date= '" & Text_Fecha.Text + " and '"
End If
If Text_Id.Text <> "" Then
StrSql = StrSql + "cot_number= '" & Text_Id.Text + "' and "
End If
If Combo_Cliente.Text <> "" Then
StrSql = StrSql + "cus_name= '" & Combo_Cliente.Text + "' and "
End If
If Text_Producto.Text <> "" Then
StrSql = StrSql + "item_no= '" & Text_Producto.Text + "' and "
End If
If Text_Product.Text <> "" Then
StrSql = StrSql + "search_desc= '" & Text_Product.Text + "' and "
End If
If Text_Especific.Text <> "" Then
StrSql = StrSql + "Especific_prod= '" & Text_Especif.Text + "' and "
End If
If Text_Presentacion.Text <> "" Then
StrSql = StrSql + "item_desc_2= '" & Cmd_present.Text + "' and "
End If
If Text_Cantidad.Text <> "" Then
StrSql = StrSql + "qty_prod= '" & Text_Presentacion.Text + "' and "
End If
If Text_Precio.Text <> "" Then
StrSql = StrSql + "prc_or_disc_1= '" & Text_Precio.Text + "' and "
End If
If Text_Validez.Text <> "" Then
StrSql = StrSql + "end_prc= '" & Text_Validez.Text + "' and "
End If
If Combo_terminos.Text <> "" Then
StrSql = StrSql + "pay_term=" & Combo_terminos.Text + "' and "
End If
If Text_Direccion.Text <> "" Then
StrSql = StrSql + "addr_1= '" & Text_Direccion.Text + "' and "
End If
If Text_Reque.Text <> "" Then
StrSql = StrSql + "lead_time= '" & Text_Reque.Text + "' and "
End If
If Combo_Vendedor.Text <> "" Then
StrSql = StrSql + "cot_sales= '" & Combo_Vendedor.Text + "' and "
End If
If Text_Observ.Text <> "" Then
StrSql = StrSql + "cot_Observ= " & Text_Observ.Text
End If
If StrSql <> "" Then
Cadena_SQL = Cadena_SQL + " where " + StrSql
cadena = Cadena_SQL
desde = Len(cadena)
hasta = (desde - 5)
Cadena_SQL = Mid(cadena, 1, hasta)
End If
'MsgBox Cadena_SQL
Connect.RecordSource = Cadena_SQL ' AQUI ME SALE EL ERROR
'Rs2.Open Cadena_SQL, Connect
Fra_Funciones.Visible = True
Fra_Consultar.Visible = False
End Sub
Valora esta pregunta


0