+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 6 su 6

[Access 2007 - VBA]caricare dati su aggiornamento

  1. #1
    lj89 non  in linea Novello
    Salve io ho qst codice:
    Private Sub TITOLO_DblClick(Cancel As Integer)
    Dim codice As String
    Me.CODICE_PRODOTTO.SetFocus
    codice = Me.CODICE_PRODOTTO
    Dim QD As QueryDef
    Set QD = CurrentDb.QueryDefs("SELEZIONE TITOLO")
    QD.Parameters("[Forms]![scheda_tecnica]![CODICE PRODOTTO]") = codice
    Dim RS As Recordset
    Set RS = QD.OpenRecordset
    Me.TITOLO.SetFocus
    Me.TITOLO.Text = RS("titolo").Value

    RS.Close
    QD.Close
    End Sub
    vorrei che anzich caricarmi i dati quando faccio doppio click me li carichi quando clicco il pulsante
    aggiorna.
    Qualcuno sa dirmi come si fa??
    grazie in anticipo

  2. #2
    lj89 non  in linea Novello
    nessuno riesce a darmi una mano??
    non riesco a saltarcene fuori..Ho provato a mettere Private Sub TITOLO_AfterUpdatema quando clicco su aggiorna non funziona nulla..
    spero che voi riusciate a darmi una mano..

  3. #3
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Questo il problema di chi COPIA/INCOLLA...
    Metti il codice nell'evento CLICK del pulsante AGGIORNA....!
    Sinceramente per la mia risposta talmente banale che ho il sospetto che la tua domanda sia mal forumlata... o io abbia compreso male.
    ℹ️ Leggi di pi su @Alex ...

  4. #4
    lj89 non  in linea Novello
    Quote Originariamente inviato da @Alex Visualizza il messaggio
    Questo il problema di chi COPIA/INCOLLA...
    Metti il codice nell'evento CLICK del pulsante AGGIORNA....!
    Sinceramente per la mia risposta talmente banale che ho il sospetto che la tua domanda sia mal forumlata... o io abbia compreso male.
    infatti..
    io non ho un pulsante aggiorna;
    intendevo il pulsante con le due frecce verdi nella barra degli strumenti.
    meglio ancora se i campi di testo si caricano quando io seleziono il codice dalla combobox (la maschera non associata a nessuna tabella perch contiene campi di pi tabelle).

  5. #5
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Quote Originariamente inviato da lj89 Visualizza il messaggio
    infatti..
    io non ho un pulsante aggiorna;
    intendevo il pulsante con le due frecce verdi nella barra degli strumenti.
    meglio ancora se i campi di testo si caricano quando io seleziono il codice dalla combobox (la maschera non associata a nessuna tabella perch contiene campi di pi tabelle).
    Pulsante con le 2 Freccie Verdi...??? E' Robin Hood...? Parla usando la terminologia tecnica che ci consente di capire di cosa parli...!
    Se non associata come possono funzionare i Button di navigazione....???!!!???
    Sei certo di avere le idee chiare...?
    ℹ️ Leggi di pi su @Alex ...

  6. #6
    lj89 non  in linea Novello
    Quote Originariamente inviato da @Alex Visualizza il messaggio
    Pulsante con le 2 Freccie Verdi...??? E' Robin Hood...? Parla usando la terminologia tecnica che ci consente di capire di cosa parli...!
    Se non associata come possono funzionare i Button di navigazione....???!!!???
    Sei certo di avere le idee chiare...?
    allora..
    la maschera l'ho creata facendo: CREA -> MASCHERA VUOTA
    in questa maschera ho inserito dei campi di testo e una combobox.
    La combo box caricata con dei codici prodotto..
    PER OGNI CASELLA DI TESTO ho fatto: TASTO DESTRO SULLA CASELLA DI TESTO -> GENERA EVENTO -> CODICE..
    ho scritto questi comandi :
    Private sub NOME CASELLA DI TESTO_DblClick (Cancel As Integer)

    Dim codice As String
    Me.CODICE_PRODOTTO.SetFocus //CODICE_PRODOTTO la combobox con caricati i codici
    codice = Me.CODICE_PRODOTTO //dei prodotti.Quando seleziono un codice mi prende in considerazione quel prodotto

    Dim QD As QueryDef
    Set QD = CurrentDb.QueryDefs("NOME QUERY DA ESEGUIRE")
    QD.Parameters("[Forms]![scheda_tecnica]![CODICE PRODOTTO]") = codice

    Dim RS As Recordset
    Set RS = QD.OpenRecordset


    Me.NOME CAMPO DA AGGIORNARE.SetFocus
    Me.NOME CAMPO DA AGGIORNARE.Text = RS("NOME CAMPO TABELLA DA DOVE PRENDERE I VALORI").Value


    RS.Close
    QD.Close
    Con DblClick i valori nelle varie caselle di testo appaiono quando clicco due volte su di esse..

    In questo caso io devo scegliere prima il codice del prodotto dalla combobox e poi fare doppio click su tutte le caselle di testo per visualizzare i dati corrispondenti al prodotto scelto.

    quello che chiedevo io era sapere come poter fare visualizzare i dati nelle caselle di testo senza dover fare doppio click su ognuna di esse.

    In poche parole..

    scelgo il codice del prodotto dalla combobox e automaticamente si caricano i dati che corrispondono a esso nelle varie caselle di testo.

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Access 2007 Aggiornamento tabella da file di testo TXT
    Da santino65 nel forum Microsoft Access
    Risposte: 1
    Ultimo Post: 14-05-2012, 21:38
  2. Risposte: 1
    Ultimo Post: 10-08-2011, 19:15
  3. [Access 2007] Aggiornamento sottomaschera
    Da ch4rles nel forum Microsoft Access
    Risposte: 4
    Ultimo Post: 17-05-2011, 10:23
  4. [Access 2007] riordinare record dopo aggiornamento dati
    Da Lion nel forum Microsoft Access
    Risposte: 8
    Ultimo Post: 31-03-2010, 15:50
  5. Caricare dati Access
    Da Gmotta nel forum Visual Basic .Net
    Risposte: 3
    Ultimo Post: 23-02-2010, 14:31