none
Problema Grabar datos en tabla des de formulario RRS feed

  • Pregunta

  • Buenas,

    Resulta que estoy teniendo problemas al intentar grabar datos de un formulario a mi tabla (Hoja1). Me dice que hay un error en el código, pero no o consigo ver.

    Paso el código a ver si me podéis ayudar. (La orden UPDATE está toda en la misma línea, pero el foro no me permite ponerlo todo junto, de la misma manera que la orden INSERT INTO)

    A parte, como podéis ver, no he conseguido usar bien la orden de continuar el código en la siguiente línea. Usaba _ con un espacio antes de este y directamente el salto de línea pero me daba error. He de decir que lo hacía después de una coma.

    Gracias por adelantado!

    Private Sub Comando10_Click()
        
        If DCount("[Num_Registre]", "Hoja1", "[Num_Registre] = " & Me.txtNumExp & "") = 1 Then
            CurrentDb.Execute "UPDATE Hoja1 SET Data = '" & Nz(Me.txtData, Null) & "', Contingut = '" & Nz(Me.txtContingut, Null) & "', Responsable = '" & Nz(Me.txtResp, Null) & "', Finalitzat = '" & Nz(txtFin, Null) & "' WHERE Num_Registre = " & txtNumExp & "", dbFailOnError
            MsgBox "Registre Guardat Correctament", vbExclamation, "Avís"
            DoCmd.Close acForm, "Consulta_Expedient"
        
        ElseIf Not IsNull(Me.txtData) Or Not IsNull(Me.txtContingut) Or Not IsNull(Me.txtResp) Or Not IsNull(Me.txtFin) Then
            CurrentDb.Execute "INSERT INTO Hoja1([Num_Registre],Data,Contingut,Responsable,Finalitzat) VALUES(" & Me.txtNumExp & ",'" & Nz(Me.txtData, Null) & "','" & Nz(Me.txtContingut, Null) & "','" & Nz(Me.txtResp, Null) & "','" & Nz(txtFin, Null) & "')", dbFailOnError
            MsgBox "Registre Guardat Correctament", vbExclamation, "Avís"
            DoCmd.Close acForm, "Consulta_Expedient"
            
        End If
        
    End Sub

    martes, 31 de marzo de 2020 8:29

Respuestas

  • Buenas, justo acabo de solucionar el problema.

    Se trataba de un problema de formatos. Algunos campos de mi tabla estaban en formato fecha y daba problemas al compararlo con un texto. He cambiado el formato y lo he arreglado.

    Gracias igualmente por todo!

    • Marcado como respuesta RogerMario martes, 31 de marzo de 2020 9:47
    martes, 31 de marzo de 2020 9:47

Todas las respuestas