by Segundo B. Bernal (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 11th August 2001
Date Added: Mon 8th February 2021
Rating:
(1 Votes)
Busca un registro especifico compuesto por dos condiciones
API Declarations
Public baterias As Recordset
Set llantas = basemantenimiento.OpenRecordset("tbla_Marca_llantas", dbOpenDynaset)Set modelo_llanta = basemantenimiento.OpenRecordset("tbla_Modelos_llantas", dbOpenDynaset)
With modelo_llanta
.FindFirst "Id_Marcas_llantas = " & id_mar_llanta & " and descripcion = '" & modllancomb & "'"
If .NoMatch Then
.AddNew
!id_marcas_llantas = id_mar_llanta
!Descripcion = modllancomb.Text
!tamaño = rin.Text
!presion_aire = presion.Text
!lonaje = lonaje.Text
.Update
Else
MsgBox "El modelo ya fue ingresado para el sistema"
Exit Sub
End If
End With
End If