none
Error de automatización. RRS feed

  • Pregunta

  • Buenos días, tengo un problema con el inicio de un formulario, me sale "error -2147220995(800401fd) en tiempo de ejecución." El cual me impide ejecutar el formulario, le doy depurar y me manda al modulo en cual veo todo bien, este error empezó después de active el control de microsoft outlook date y lo use en la edición del formulario.

    * Código del modulo.

                

    Sub nomina()
        UserForm1.Show

    End Sub
    Sub vehiculos()
        UserForm2.Show

    End Sub
    Sub empleados()
        UserForm3.Show

    End Sub

    * Código del formulario.                                                                                                                                                                                                    

    Private Sub ComboBox1_Change()
    Dim fila As Integer
    Dim final As Integer

    If (ComboBox1) = "" Then

            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox6.Text = ""

        End If

    For fila = 5 To 2000
        If Hoja3.Cells(fila, 2) = "" Then
        final = fila - 1

         Exit For
         End If
         Next


    For fila = 5 To final

        If Val(ComboBox1.Value) = Hoja3.Cells(fila, 2) Then
                TextBox2.Text = Hoja3.Cells(fila, 3)
                TextBox3.Text = Hoja3.Cells(fila, 5)
                TextBox6.Text = Hoja3.Cells(fila, 4)

         Exit For

         Else
                TextBox2.Text = ""
                TextBox3.Text = ""
                TextBox6.Text = ""

         End If
         Next


    End Sub
    Private Sub CommandButton1_Click()
    Dim fila As Integer

    For fila = 9 To 2000

        If Hoja4.Cells(fila, 2) = "" Then
            Hoja4.Cells(fila, 2) = TextBox2.Text
            Hoja4.Cells(fila, 3) = TextBox3.Text
            Hoja4.Cells(fila, 4) = TextBox4.Text
            Hoja4.Cells(fila, 7) = TextBox7.Text
            Hoja4.Cells(fila, 9) = TextBox8.Text
            Hoja4.Cells(fila, 11) = TextBox9.Text
            Hoja4.Cells(fila, 13) = TextBox10.Text
            Hoja4.Cells(fila, 15) = TextBox11.Text
            Hoja4.Cells(fila, 17) = TextBox12.Text
            Hoja4.Cells(fila, 19) = TextBox13.Text
            Hoja4.Cells(fila, 24) = TextBox14.Text
            Hoja4.Cells(fila, 25) = TextBox15.Text
            Hoja4.Cells(fila, 26) = TextBox16.Text

          MsgBox "Realizado"

            ComboBox1 = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""
            TextBox5.Text = ""
            TextBox6.Text = ""
            TextBox7.Text = ""
            TextBox8.Text = ""
            TextBox9.Text = ""
            TextBox10.Text = ""
            TextBox11.Text = ""
            TextBox12.Text = ""
            TextBox13.Text = ""
            TextBox14.Text = ""
            TextBox15.Text = ""
            TextBox16.Text = ""

            ComboBox1.SetFocus

        Exit Sub
        End If
        Next


    End Sub
    Private Sub CommandButton2_Click()

            UserForm1.Hide
            ComboBox1.SetFocus

    End Sub

    Private Sub TextBox14_Change()

            TextBox14 = Format(TextBox14, "$ #,##0")

    End Sub
    Private Sub TextBox15_Change()

            TextBox15 = Format(TextBox15, "$ #,##0")

    End Sub
    Private Sub TextBox16_Change()

            TextBox16 = Format(TextBox16, "$ #,##0")

    End Sub
    Private Sub TextBox5_Change()

      If TextBox3 <= 2 * 828116 Then
                TextBox5 = 83000 / 30 * TextBox4

          Else

                TextBox5 = 0

         End If

                TextBox5 = Format(TextBox5, "$ #,##0")

    End Sub

    Espero me puedan ayudar, gracias por su atención.


    • Editado alexandro01 sábado, 7 de diciembre de 2019 13:55
    viernes, 6 de diciembre de 2019 15:02

Todas las respuestas

  • Hola

    ¿Y cual es el texto del error? ¿que versión de Access utilizas? y ¿en que línea se produce?

    Salu2,


    José Mª Fueyo


    martes, 10 de diciembre de 2019 10:18
  • Buenos días, el error se produce en el momento que activo el userform ("error -2147220995(800401fd) en tiempo de ejecución.") esto es lo que dice, el depurador apunta al modulo en la activación del formulario, esto sucedió después de  activar microsoft outllook date y conectarlo con el outlook, desde ese momento empezó todo el problema y me impide hacer modificaciones en el libro de excel.

    gracias.

    jueves, 12 de diciembre de 2019 13:35