MUY BUEN DIA PARA TODOS!!!!
Explico el asunto que me aqueja: tengo un formulario dependiente de una tabla , esta tabla tiene muchos registros; mi necesidad es que al digitar un codigo (alfanumérico) encuentre el registro digitado y si no esta pues crear uno nuevo con esos datos. Estoy utilizando el recordset del formulario . para el caso ejecuta muy bien todo pero no se ubica en el nuevo registro.
GRACIAS.
Dim XX As Variant Dim rst As Recordset Set rst = Me.RecordsetClone Dim STRCRITERIA As String STRCRITERIA = " PLACA = '" & Forms!FRMVEHICULOSBORRAR!Texto9 & "'" TempVars!DATO = Texto9.Value TempVars!NADA = 5 ' Las variables TEMPVARS! son solo para pruebas puedo cambiar por el cuadro de texto rst.FindFirst STRCRITERIA If rst.NoMatch Then ' MsgBox "Record not found" With rst .AddNew !PLACA = TempVars!DATO ' SOLO PARA PROBAR !TIPO = TempVars!NADA ' SOLO PARA PRUEBAS .Update .Bookmark = rst.LastModified End With rst.Close Else Me.Bookmark = rst.Bookmark End If rst.Close Me.Texto9 = "" End Sub
|
Esto lo hago en access 2007.