Видео

grazie ho risolto con questa aggiunta Me.(nome della sottomaschera).SetFocus

Il problema è che per il linguaggio di programmazione VBA, l'apostrofo viene considerato come le doppie virgolette, quindi se cerchi il cognome "d'amico", lui lo interpreta come "d e poi 'amico e quindi si aspetta che il "d abbia il suo finale con le doppie virgolette, quindi "d" e amico abbia il suo finale con l'apostrofo di chiusura 'amico' Per risolvere, prima dell'istruzione: z = "SELECT * FROM Dichiarazione Where Cognome Like '*" & Ricerca.Value & "*' OR ID Like '*" & Ricerca.Value & "*'" devi scrivere: Ricerca=replace(ricerca,"'","''") z = "SELECT * FROM Dichiarazione Where Cognome Like '*" & Ricerca.Value & "*' OR ID Like '*" & Ricerca.Value & "*'" In pratica abbiamo detto al computer di sostituire la virgoletta ' eventualmente presente nel campo Ricerca, con una doppia virgolette ''. Questo annullerà il problema. Dato che l'istruzione che ti ho scritto sopra può non leggersi bene nei commenti di RUclips e io posso non aver spiegato bene, ti consiglio di copiare l'istruzione da questo commento, quindi incollarla in Word o altro editor di testo, e aumentare le dimensioni del carattere, così vedrai meglio la sintassi, che comunque ti riscrivo qui sotto lasciando uno spazio tra ogni carattere, così si dovrebbe leggere e capire meglio: Ricerca=replace(ricerca," ' " , " ' ' ")

@@ilmiomodo wow Niktor funziona !!!!!!! grazie

Non so se ho capito bene il problema. Ipotizziamo che hai una Maschera Access con le caselle di testo: Testo0 dove metteremo la data del periodo iniziale (ad esempio 01/02/1999) Testo2 dove metteremo la data del periodo finale (ad esempio 13/01/2000) ed infine: Testo4 dove verrà inserito il calcolo del totale degli anni trascorsi Testo7 dove verrà inserito il calcolo del totale dei mesi trascorsi Testo9 dove verrà inserito il calcolo del totale dei giorni trascorsi infine inserisci un pulsante che ad esempio si chiama Comando6. Nell'evento click del pulsante Comando6 inserisci queste istruzioni: dataInizio = Testo0.Value dataFine = Testo2.Value differenzaAnni = DateDiff("yyyy", dataInizio, dataFine) dataTemp = DateAdd("yyyy", differenzaAnni, dataInizio) If dataTemp > dataFine Then differenzaAnni = differenzaAnni - 1 dataTemp = DateAdd("yyyy", differenzaAnni, dataInizio) End If differenzaMesi = DateDiff("m", dataTemp, dataFine) dataTemp = DateAdd("m", differenzaMesi, dataTemp) If dataTemp > dataFine Then differenzaMesi = differenzaMesi - 1 dataTemp = DateAdd("m", differenzaMesi, dataTemp) End If differenzaGiorni = DateDiff("d", dataTemp, dataFine) If differenzaMesi < 0 Then differenzaAnni = differenzaAnni - 1 differenzaMesi = differenzaMesi + 12 End If Testo4.Value = differenzaAnni Testo7.Value = differenzaMesi Testo9.Value = differenzaGiorni In pratica prima calcola la differenza di anni tra le due date, quindi aggiunge alla data iniziale gli anni che ha calcolato. Se il totale degli anni è maggiore degli anni effettivamente trascorsi, ne rimuove uno, dato che il calcolo potrebbe fornire o il calcolo di anni esatti o uno superiore. Poi fa lo stesso con i mesi e poi con i giorni. Infine controlla se il calcolo dei mesi è inferiore a 0, poichè se faccio il calcolo tra le date: 01/02/1999 e 13/01/2000 otterrei 1 anno, -1 mesi e 12 giorni. Quindi il calcolo verifica che se i mesi sono -1, allora toglie un anno in eccesso, e aggiunge 12 mesi al valore negativo del mese -1, ottenendo il risultato esatto, cioè: 0 anni, 11 mesi e 12 giorni

@ilmiomodo grazie di nuovo 💪, c'è qualcosa che non torna sui giorni , ho provato qualcosa senza esito, il tuo esempio 01.02.1999-13.01.200 funziona!! , se inserisco in datainizio 31.01.1999 i giorni risultano -353

Il calcolo tra le date 01.02.1999 e 13.01.2000 mi dà come risultato di giorni -18 e non -353. Nel mio caso ho modificato l'istruzione finale: Testo9.Value = differenzaGiorni in Testo9.Value = abs(differenzaGiorni) dove l'istruzione ABS fa diventare positivo il numero 18, da -18 a 18.

@@ilmiomodo dal 01.02.1999 al 13.01.2000 calcola giustamente 11 mesi; seguendo il residuo dal 01.02.2000 al 13.01.2000 non sono 18 giorni, ma 12. Ho riscritto per la terza volta tutto il codice (almeno l'ho capito per i mesi e anni ) ma sui giorni non funziona. Il risultato che mi restituisce con le date dal 01.02.1999 al 01.02.2000 è: 0 anni; 11 mesi e 12 giorni . Il risultato invece tra 31.01.1999 e 13.01.2000 mi restituisce 0 anni , 11 mesi e aggiungendo ABS 353 giorni. campo Periodo_dal (inizio) Campo periodo al (fine) Anni ,Mesi Giorni (caselle testo calcolati) inizio = Periodo_dal.Value fine = Periodo_al.Value DiffAnni = DateDiff("yyyy", inizio, fine) DataTemp = DateAdd("yyyy", DiffAnni, inizio) If DataTemp > fine Then DiffAnni = DiffAnni - 1 DataTemp = DateAdd("yyyy", DiffAnni, inizio) End If DiffM = DateDiff("m", DataTemp, fine) DataTemp = DateAdd("m", DiffM, DataTemp) If DataTemp > fine Then DiffM = DiffM - 1 DataTemp = DateAdd("m", DiffM, DataTemp) End If DiffG = DateDiff("d", DataTemp, fine) If DiffM < 0 Then DiffAnni = DiffAnni - 1 DiffM = DiffM + 12 End If Anni.Value = DiffAnni Mesi.Value = DiffM Giorni.Value = Abs(DiffG)

A me non succede, ma io uso la versione Microsoft 365, che è l'ultima versione disponibile in abbonamento. Comunque sia, prova questo metodo: Quando hai il database aperto, premi sul menu in alto sinistra, File. Si aprirà la finestra dove puoi creare un nuovo database, o aprirne uno esistente, ecc... Ma in questa finestra, in basso a sinistra trovi anche i menu "Account" e "Opzioni". Premi sul menu "Opzioni". Si aprirà una nuova finestra dove a sinistra trovi vari menu elencati. Premi sul menu "Impostazioni client". A questo punto, a destra, verranno visualizzate le impostazioni di quel menu, tra cui c'è "Con INVIO passa a" e sotto di questo le opzioni: Nessuno spostamento Campo successivo Record successivo Qui seleziona "Campo successivo" o "Nessuno spostamento" in modo da impedirgli di passare a un nuovo record. Chiaramente non so che versione Access utilizzi, quindi potrebbe essere differente dalla mia e questo aiuto non sarò quindi valido

@ilmiomodo ciao grazie. Era impostato su vai a campo successivo e invece passava a nuovo record interrompendo inserimento sul record. Ora l'ho impostato su nessun evento e ho risolto il problema, provando questa opzione rimane il focus nel campo permettendo di continuare a inserire altri campi del record senza così interrompere la procedura dellinseritore.

Potresti usare l'istruzione IsNumeric che verifica se un carattere è un numero oppure no (se non è un numero sarà quindi una lettera). Ipotizziamo che hai una casella di testo, ad esempio Testo0, che contiene il codice alfanumerico ABC123 e poi hai due caselle di testo che si chiamano Testo4 e Testo6 dove verranno scritte le lettere o i numeri separati. Infine ipotizziamo che hai un pulsante Comando12 che servirà per eseguire le istruzioni che separeranno le lettere dai numeri. Nel codice di programmazione VBA sull'evento Click del pulsante Comando0, inserisci queste istruzioni: lettere = "" numeri = "" codice = Testo0 For i = 1 To Len(codice) If IsNumeric(Mid(codice, i, 1)) = True Then numeri = numeri & Mid(codice, i, 1) Else lettere = lettere & Mid(codice, i, 1) End If Next i Testo4 = lettere Testo6 = numeri Prima di tutto creo due variabili di nome "lettere" e "numeri" e le pulisco inserendo le doppie virgolette unite " e " Poi inserisco nella variabile "codice" il tuo codice, ad esempio ABC123, che hai scritto nella casella Testo0 Quindi ho inserito un ciclo, che processerà ogni singolo carattere del codice ABC123 Per ogni ciclo, verifico se il carattere che sto processando, e controllo se è un numero, grazie all'istruzione IsNumeric, che mi dirà True (Vero) se il carattere è un numero Se il carattere è un numero, lo aggiungo alla variabile "numeri", altrimenti lo aggiungo alla variabile "lettere" Ecco che alla fine del ciclo che ha processato tutti i caratteri, avrò ottenuto nella variabile "lettere" i solo caratteri alfabetici e nella variabile "numeri" i soli numeri Infine faccio apparire nella casella Testo4 solo le lettere e nella casella Testo6 solo i numeri. Considera che funziona con qualsiasi lunghezza di codice alfanumerico.

@@ilmiomodo Ciao Nik, sei un MAGO. Funziona separa le lettere con i numeri, purtroppo se un numero ha la virgola (importo con i decimali) non li spacca giusti. Mi mette la virgola nei caratteri e niente nell'importo. Forse ho sbagliato a fare l'esempio perchè ti ho scritto lettere e numeri, ma potrebbe essere lettere e importi con la virgola. SCUSAMI. Sicuramente ti sto rompendo. Spero che mi aiuti anche in questo caso. GRAZIE MILLE

Ti rimetto lo stesso codice già dato, dove ho aggiunto due righe in cui viene riconosciuta la virgola e viene messa tra i numeri: lettere = "" numeri = "" codice = Testo0 For i = 1 To Len(codice) If IsNumeric(Mid(codice, i, 1)) = True Then numeri = numeri & Mid(codice, i, 1) ElseIf Mid(codice, i, 1) = "," Then numeri = numeri + "," lettere = lettere & Mid(codice, i, 1) End If Next i Testo4 = lettere Testo6 = numeri In pratica ho aggiunto la verifica: ElseIf Mid(codice,i,1)="," Then che verifica se il carattere che sta processando è la virgola e se è la virgola, allora la aggiunge alla variabile dei numeri

@@ilmiomodo Ciao Nik, funziona tutto, sei un GRANDE SUPERGRANDE. Scusami se ti ho rotto. Grazie mille. SEI UN MAGO. Ti seguirò sempre.

Parti da qui ruclips.net/video/vGvDGvp_baE/видео.html (grazie per apprezzare i miei video)

prova a vedere questo nuovo video ruclips.net/video/y4h0Q9KBQcw/видео.html

Prova a vedere questo video che ho realizzato prendendo spunto dalla tua domanda ruclips.net/video/4zNeuz7qfLs/видео.html

Ci ho messo un po' ma ce l'ho fatta, l'ho presa come una sfida perchè non trovavo una soluzione semplice. Il video e il codice di programmazione lo trovi a questo link ruclips.net/video/ewRc1I4Rf88/видео.html

Questo è un video sul Python, ma credo che mi chiedi aiuto su un file di Batch, cioè di modificare il tuo file .bat Per spiegarti una possibile soluzione, ti propongo questo esempio: "Nel mio PC, nella cartella c:\users iktor\dektop\provola\ c'è il file qb64.exe. Ora io voglio creare un file .bat da salvare su "chiavetta USB" da inserire nel PC e il file .bat deve cercare sull'hard disk c:\ e nelle sottocartelle, il file qb64.exe ed avviarlo. Ecco il programma: @echo off setlocal enabledelayedexpansion set percorso=C:\ set programma=qb64.exe for /r "%percorso%" %%a in (*.exe) do ( if "%%~nxa"=="%programma%" ( echo Il file è stato trovato in: %%a start "" "%%a" if errorlevel 1 ( echo Errore all'avvio del programma ) else ( echo Programma avviato correttamente ) goto :fine ) ) :fine if not defined programma ( echo Il file %programma% non è stato trovato. ) pause Per eseguire il programma .bat in modo corretto, non devi fare doppio click con il tasto sinistro del mouse, ma devi andare nella finestra del terminale, passare alla "chiavetta USB", e avviare il tuo programma .bat da lì. Il programma cercherà sull'hard disk C:\ il file qb64.exe e se lo trova lo avvia. Se il computer dove si trova il file qb64.exe ha hard disk di nome D:\ allora cambia la riga del programma: set percorso=C:\ con set percorso=D:\ e allo stesso modo cambia il nome del programma da lanciare, modificando la riga: set programma=qb64.exe Adatta questo codice al tuo file .bat, sapendo che in questa riga: for /r "%percorso%" %%a in (*.exe) do ( viene eseguito un ciclo (grazie all'opzione /r) che cerca in tutte le sottocartelle della radice C:\ tutti i file che hanno estensione .exe inoltre nella riga: if "%%~nxa"=="%programma%" ( le opzioni ⁓nxa servono per estrarre solo il nome del file senza il nome del percorso in cui si trova

prova a chiedere

Scusa il ritardo della risposta. Si, esiste. Riprendendo l'esempio del video qui sopra, devi semplicemente inserire l'istruzione LCase per la domanda e per la risposta, e questo LCase converte tutte le lettere in minuscolo, quindi se scrivi come risposta "PaRIgi" lui la converte in "parigi". Lo so, non sono stato chiaro. Nel video, ad esempio, dove ho scritto: if domanda = "parigi" then dovrai scrivere: if LCase(domanda)="parigi" then lo stesso lo dovrai fare anche per le altre risposte: if LCase(domanda)="madrid" then ecc...