Hola buenas tardes, me ayudan a identificar cual es el error en el siguiente código:
Private Sub Comunidad_o_Asentamiento_GotFocus()
Dim StrSQL As String
Dim Resta As Double
Dim CriterioUno As String
Dim CriterioDos As String
Dim CriterioTres As String
Dim Criterios As String
CriterioUno = "[Tabla_Maestra_de_Material_Recibido_de_Enatrel]![Código]= " & Me.[Seleccionar_Código].Column(0)
CriterioDos = "[Tabla_Maestra_de_Material_Recibido_de_Enatrel]![Descripción]= '" & Me.[Descripción_Campo] & "'"
CriterioTres = "[Tabla_Maestra_de_Material_Recibido_de_Enatrel]![Asignado_a]= '" & Me.Componente_Sub & "'"
Criterios = CriterioUno & " AND " & CriterioDos & " AND " & CriterioTres
Resta = Nz(Me.[Existencia_Inicial], 0) - Nz(Me.[Material_x_Beneficiario], 0)
StrSQL = "UPDATE [Tabla_Maestra_de_Material_Recibido_de_Enatrel] SET [Tabla_Maestra_de_Material_Recibido_de_Enatrel].[Cantidad] = " & Resta
StrSQL = StrSQL & " WHERE " & Criterios
Debug.Print StrSQL
CurrentDb.Execute StrSQL
End Sub
