Visualizzazione dei risultati da 1 a 4 su 4
  1. #1
    Utente di HTML.it
    Registrato dal
    Oct 2002
    Messaggi
    107

    [VBA] copia di dati

    Ho due tabelle in access

    TAB1
    -----
    id
    nome
    cognome

    TAB2
    -----
    id_tab1
    dato

    Vorrei aprire la tab1, inserire nome e cognome e poi con un pulsante aprire la tab2, controllare se id tab1 è presente in tab2: se è presente si fa un MsgBox dicendo che è presente, se non è presente id tab viene copiato in id_tab1.

    Se qualcuno mi aiuta.
    GRAZIE

  2. #2
    Moderatore di Programmazione L'avatar di alka
    Registrato dal
    Oct 2001
    residenza
    Reggio Emilia
    Messaggi
    24,472

    Moderazione

    Ho spostato la discussione in quanto VBA viene trattato nell'apposita area del forum.

    Ciao!
    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

    Home | Blog | Delphi Podcast | Twitch | Altro...

  3. #3
    Utente di HTML.it
    Registrato dal
    Oct 2002
    Messaggi
    107
    Semplifico il quesito: come faccio a recuperare un valore da un campo in una maschera, vedere se presente in una seconda tabella ed eventualmente se non presente inserirlo?

    GRAZIE

  4. #4
    Utente di HTML.it
    Registrato dal
    Sep 2005
    Messaggi
    357
    se in dao:
    Sul pulsante comando associ l'evento click [Routine evento]...
    Private Sub Comandoxxx_Click()
    Dim Rs As Recordset
    sql = "select * from Tabella_2 where id_tab1 = '" & Text1.text & "'"

    Set Rs = CurrentDb.OpenRecordset(sql)
    If Rs.EOF then
    Rs.AddNew
    Rs("id_tab1") = text1.text
    'aggiorni altri campi
    Rs.Update
    Else
    MsgBox "Attenzione codice " & text1.text & " già esistente"
    End If
    Rs.Close

    End Sub

    Se in ADO devi cambiare la open

    Ciao mgmg

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.