Pagina 2 di 2 primaprima 1 2
Visualizzazione dei risultati da 11 a 19 su 19
  1. #11

  2. #12
    Moderatore di Programmazione L'avatar di LeleFT
    Registrato dal
    Jun 2003
    Messaggi
    17,055
    Come richiesto, sposto nel forum "Database" (ho anche corretto il titolo).


    Ciao.
    "Perchè spendere anche solo 5 dollari per un S.O., quando posso averne uno gratis e spendere quei 5 dollari per 5 bottiglie di birra?" [Jon "maddog" Hall]
    Fatti non foste a viver come bruti, ma per seguir virtute e canoscenza

  3. #13
    aggiungo, sempre dal regolamento di Database

    In questo forum NON si parla di alcune funzionalità peculiari di Microsoft Access (macro, maschere, report, etc) che continueranno ad essere trattate nel forum "Windows e software"

    fate voi...

  4. #14
    Utente di HTML.it L'avatar di Misterxxx
    Registrato dal
    Oct 2003
    Messaggi
    3,521
    Quote Originariamente inviata da rorofre Visualizza il messaggio
    buongiorno, avrei bisogno di un aiuto.. ho creato un database dove ad un campo voglio aggiungere il controllo che impedisca l'inserimento di un valore duplicato. Voglio però che il controllo venga fatto subito dopo l'inserimento del dato e non al salvataggio del record (cosa che succede impostando l'indicizzazione del campo).
    In un altro database che avevo fatto con un collega (che era più esperto di me), avevo un codice che mi permetteva di farlo, sto provando ad adeguarlo al nuovo database ma continua a darmi errore di sintassi e vista la mia scarsissima conoscenza di vba non riesco a trovare l'errore...

    considerando che il nome del campo a cui voglio applicare il controllo è "n°_verbale" (sia in maschera che in tabella) e la maschera si chiama "verbale" il codice che ho inserito è il seguente:

    Private Sub n°_verbale_BeforeUpdate(Cancel As Integer)


    If Not IsNull(DLookup(n°_verbale, verbale, _
    n°_verbale = & Chr$(34) & Me!n°_verbale & Chr$(34))) _
    And Me!n°_verbale <> Nz(Me!n°_verbale.OldValue) Then


    MsgBox Me!n°_verbale & " Già esiste.", vbOKOnly, "Duplicato!"
    Cancel = True


    End If

    posso chiedere il vostro aiuto?
    grazie
    è errata la formattazione della funzione dlookup
    mi pare ..
    che errore esce?
    Io ne ho viste cose che voi umani non potreste immaginare. Navi da combattimento in fiamme al largo dei bastioni di Orione e ho visto i raggi B, balenare nel buio vicino le porte di Tannhäuser. E tutti quei momenti ... andranno ... perduti nel tempo, come lacrime nella pioggia. È tempo di morire. (Roy Batty).

  5. #15
    Utente di HTML.it
    Registrato dal
    Mar 2019
    Messaggi
    8
    grazie
    mi esce
    errore di compilazione
    errore di sintassi

    Cattura.JPG

  6. #16
    Utente di HTML.it L'avatar di Misterxxx
    Registrato dal
    Oct 2003
    Messaggi
    3,521
    l'argomento criterio della funzione dlookup è una variabile stringa quindi le apici (che potresti usare al posto di ASCII) sono sbagliate:
    codice:
    If Not IsNull(DLookup(n°_verbale, verbale, _
    Chr$(34) & n°_verbale = & Chr$(34) & Me!n°_verbale)) _
    And Me!n°_verbale <> Nz(Me!n°_verbale.OldValue) Then
    il rifermento Me! nell'ambito della stessa maschera è superfluo, più semplicemente potrebbe (dovrebbe ..) essere:
    codice:
    If Not IsNull(DLookup(n°_verbale, verbale, _
    "n°_verbale =" & n°_verbale)) _
    And n°_verbale <> Nz(n°_verbale.OldValue) Then
    Ultima modifica di Misterxxx; 18-03-2019 a 17:59
    Io ne ho viste cose che voi umani non potreste immaginare. Navi da combattimento in fiamme al largo dei bastioni di Orione e ho visto i raggi B, balenare nel buio vicino le porte di Tannhäuser. E tutti quei momenti ... andranno ... perduti nel tempo, come lacrime nella pioggia. È tempo di morire. (Roy Batty).

  7. #17
    Utente di HTML.it
    Registrato dal
    Mar 2019
    Messaggi
    8
    grazie mille per l'aiuto!!! ma soprattutto per la spiegazione!
    ho provato ad effettuare le modifiche da te indicate, ma mi da questo errore
    mesaggio errore e debug.jpg

    grazie ancora per l'aiuto

  8. #18
    Utente di HTML.it L'avatar di Misterxxx
    Registrato dal
    Oct 2003
    Messaggi
    3,521
    schermo piccolo, vedo piccolo
    non avevo notato anche gli altri argomenti, sono tutti stringhe
    codice:
    If Not IsNull(DLookup("n°_verbale", "verbale", _
    "n°_verbale =" & n°_verbale)) _
    And n°_verbale <> Nz(n°_verbale.OldValue) Then
    https://support.office.com/it-it/art...b-bed10dca5937
    Io ne ho viste cose che voi umani non potreste immaginare. Navi da combattimento in fiamme al largo dei bastioni di Orione e ho visto i raggi B, balenare nel buio vicino le porte di Tannhäuser. E tutti quei momenti ... andranno ... perduti nel tempo, come lacrime nella pioggia. È tempo di morire. (Roy Batty).

  9. #19
    Utente di HTML.it
    Registrato dal
    Mar 2019
    Messaggi
    8
    grazie mille
    ora ci provo a ci ragiono
    grazie ancora

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 © 2019 vBulletin Solutions, Inc. All rights reserved.