Recordest non aggiornabile

di
lucavalentino
il
3 risposte
L
lucavalentino
Utente Attivo
Iscritto da
apr, 2022
Messaggi:
171

Recordest non aggiornabile

Mi spiego.
Nella maschera su corrente correi caricare l'indirizzo dell'azienda dalla tabella azienda mentre se il codice è 000 dalla tabella cliente

Come detto ricevo l'errore Recordset non aggiornabile.

Ho creato una funzione per poter riutilizzare il codice 
Function azienda()
    Dim CN As ADODB.Connection
    Dim rs As Recordset
    Dim indirizzo As String
    Dim città As String
    Dim CAP As String
    Set CN = CurrentProject.AccessConnection
        Set rs = New ADODB.Recordset
Dim n_azienda As String
n_azienda = Me.NUM_AZ
       With rs
        Set .ActiveConnection = CN
       .Source = "SELECT * FROM tbl_azienda WHERE tbl_azienda.NUM_AZ LIKE'" & n_azienda & "'"
      .LockType = adLockOptimistic
      .CursorType = adOpenKeyset
        .Open
    End With
        If Not rs.BOF Or rs!NUM_AZ <> "000" Then
       Me.Nome_azienda = rs!Nome_azienda
        Me.IND_ROMA = rs!indirizzo
       Me.CITTA = rs!CITTA
       Me.CAP = rs!CAP
   End If
End Function

3 Risposte

  • max.riservo
    max.riservo
    Molto attivo
    Iscritto da
    ago, 2016
    Messaggi:
    694

    Re: Recordest non aggiornabile

    lucavalentino ha scritto:

    
Function azienda()
...
     .CursorType = adOpenKeyset  'Perché questo tipo di cursore?

        If Not rs.BOF Or rs!NUM_AZ <> "000" Then ' Sei sicuro che sia questo quello che vuoi fare ?
....
    Prova a cambiare il cursore ...

    Magari così è meglio : 
    
Function azienda()
....
        If Not rs.EOF THEN
        	if rs!NUM_AZ <> "000" Then
        		'aggiorno rs
        	endif
        endif
  • L
    lucavalentino
    Utente Attivo
    Iscritto da
    apr, 2022
    Messaggi:
    171

    Re: Recordest non aggiornabile

    Grazie l'errore è sparito.
    Non dovrebbe salvare gli indirizzi azienda nella tabella clienti.
    Vorrei che solo quando NUM_AZ = "000"vengano salvati gli indirizzi nella tabella clienti
    Quando NUM_AZ <> "000" nella maschera bisogna vedere l'indirizzi presi dalla tabella azienda.
  • max.riservo
    max.riservo
    Molto attivo
    Iscritto da
    ago, 2016
    Messaggi:
    694

    Re: Recordest non aggiornabile

    lucavalentino ha scritto:

    Grazie l'errore è sparito.
    Perché hai modificato qualcosa (quindi fai lo sforzo,per correttezza, di scrivere cosa hai modificato) oppure il problema è sparito e non sai il perché?

    lucavalentino ha scritto:

    Vorrei che solo quando NUM_AZ = "000"vengano salvati gli indirizzi nella tabella clienti
    Quando NUM_AZ <> "000" nella maschera bisogna vedere l'indirizzi presi dalla tabella azienda.
    Alla fine è una IF ... o salvi o recuperi i dati.
Devi accedere o registrarti per scrivere nel forum
3 risposte