Results 1 to 2 of 2
  1. #1
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    run time 3024... (2000 sr-1)

    Why have error "run time 3024" impossible to finf file "". in .Update
    piece of code(the connection are activedand not closed)

    Private Sub CAMBIA_APP_Click()
    Dim NUOVO_APP As String

    With RSD1
    .Edit
    NUOVO_APP = Trim(Mid(RICERCA_APP.Text, 5, 20))
    RSD1("APPELLATIVO") = NUOVO_APP
    BOXAPP.Text = ""
    BOXAPP.Text = NUOVO_APP
    .Update
    End With

    End Sub
    'Option Explicit
    Private Sub Form_Load()
    'cmdSave.Enabled = False
    Set DB1 = DBEngine.OpenDatabase("GCD01F4500DATIPUBBLICAANTIR ICANAGRAFICA.mdb")
    Set RSD1 = DB1.OpenRecordset("ANAGRAFICA1")
    Set RSD2 = DB1.OpenRecordset("APP")
    Call RIEMPI_CAMPI
    Call FILL_COMBO
    lblPosition.Caption = "RECORD TOTALI: " & Format((RSD1.RecordCount), "#,##0")
    End Sub

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: run time 3024... (2000 sr-1)

    The code looks OK, so it's impossible to tell what causes this.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •