L'utente deve inserire il numero di file che invierà

di
Ciccio_54
il
7 risposte
C
Ciccio_54
Utente Attivo
Iscritto da
feb, 2016
Messaggi:
103

L'utente deve inserire il numero di file che invierà

Ciao a tutti, probabilmente la mia richiesta vi farà ridere, ma io non riesco a superare un ostacolo: nella routine evento “Su caricamento” ho bisogno che l'utente indichi quanti appointment invierà, ma ho provato in molti modi senza riuscirci.

Vi inserisco le righe che ho creato e che non funzionano, e vi chiedo di darmi auna mano.

If [Numero degli appointment?] > 1 Then
[Testo132] = "- gli appointment vanno timbrati e firmati"
End If

If [Numero degli appointment?] = 1 Then
[Testo132] = "- l'appointment va timbrato e firmato"
End If

If [Numero degli appointment?] > 1 And InStr([Raggrupp], "45001") <> 0 Then
[Testo132] = "- gli appointment vanno timbrati e firmati nella prima pagina, mentre sulla seconda pagina dell'appointment ISO 45001 vanno inseriti i nomi e i cognomi del vostro RSPP, dello RLS, del DG e del Medico Competente e le loro firme sia nella colonna ''Apertura'' che in quella ''Chiusura'' "
End If

If [Numero degli appointment?] = 1 And InStr([Raggrupp], "45001") <> 0 Then
[Testo132] = "- l'appointment va timbrato e firmato nella prima pagina, mentre sulla seconda pagina vanno inseriti i nomi e i cognomi del vostro RSPP, dello RLS, del DG e del Medico Competente e le loro firme sia nella colonna ''Apertura'' che in quella ''Chiusura'' "
End If

Per favore, potete aiutarmi?

7 Risposte

  • O
    oregon
    Super Famoso
    Iscritto da
    nov, 2011
    Messaggi:
    21595

    Re: L'utente deve inserire il numero di file che invierà

    Non ho capito nulla

  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8741

    Re: L'utente deve inserire il numero di file che invierà

    Non solo decisamente impossibile capire cosa devi inviare… ma il codice che hai scritto, oltre a non essere pubblicato nel modo corretto, devi selezionare il Blocco Codice, è tecnicamente errato…

    If [Numero degli appointment?] > 1 Then
	[Testo132] = "- gli appointment vanno timbrati e firmati"
End If

    I controlli che fai sono 4 e vengono fatti TUTTI e 4 INUTILMENTE… se è vero che il valore è >1 perchè farlo passareper tutti gli altri…?
    Se il controllo =1 ma anche [InStr([Raggrupp], "45001")] esegue sia il confronto singolo che il secondo…

    Insomma non è la logica adeguata, si usa If…else if… else…end if

  • C
    Ciccio_54
    Utente Attivo
    Iscritto da
    feb, 2016
    Messaggi:
    103

    Re: L'utente deve inserire il numero di file che invierà

    Grazie Oregon e Alex, capisco che non mi sono spiegato bene e quindi risulta incomprensibile, ma non è facile da spiegare.

    Lasciamo perdere le altre tre e vediamo la prima:

    "If [Numero degli appointment?] > 1 Then [Testo132] = "- gli appointment vanno timbrati e firmati""

    Il succo è che [Numero degli appointment?] non è un campo già conosciuto, ma è l'utente che deve inserire quanti file dovranno essere inviati in seguito. Se si fosse trattato di Basic io avrei scritto:
     “Input a: if a>1 … ecc. ecc.” 
    ma non so come fare nella routine, perciò ho messo [Numero di appointment?], e lui effettivamente mi chiede il numero di appointment, ma non lo memorizza, e non assegna il valore a [Testo132].

    Scusatemi se non sono chiaro, ma veramente non è facile da spiegare.

  • S
    sihsandrea
    Molto attivo
    Iscritto da
    feb, 2011
    Messaggi:
    1613

    Re: L'utente deve inserire il numero di file che invierà

    In quale contesto?

    Hai una casella di edit? Un pulsante?

    Cioè avvii il programma e in che modo chiedi quanti files deve inviare?

    Un pulsante che apre una finestra con un edit? Un openfile che alimenta una lista?

    Come pensi di ricevere aiuti se non si capisce da dove (o cosa) si parte e dove si deve arrivare?

    Lanci un inputbox?

    Che significa il messaggio? Maggiore di 1 significa per ogni file… metti in una popup la casella di edit dove inserire il nome del file col suo percorso e una nota di avvertenza che ricorda di firmare il file.

  • E
    ettore56
    Molto attivo
    Iscritto da
    mag, 2017
    Messaggi:
    661

    Re: L'utente deve inserire il numero di file che invierà

    Private Sub Form_Load()

If InputBox("Numero degli appointment?") > 1 Then
    Me.Testo132 = "- gli appointment vanno timbrati e firmati="
End If

End Sub
  • O
    oregon
    Super Famoso
    Iscritto da
    nov, 2011
    Messaggi:
    21595

    Re: L'utente deve inserire il numero di file che invierà

    Ciccio… il problema era che cercavi la 

    InputBox

    ?

  • C
    Ciccio_54
    Utente Attivo
    Iscritto da
    feb, 2016
    Messaggi:
    103

    Re: L'utente deve inserire il numero di file che invierà

    INPUTBOX ! ! !

    Grazie mille amici, mi stavo scimunendo da una settimana.

    Purtroppo io sono un autodidatta e a volte cerco di affrontare problemi al di sopra delle mie possibilità.

    Fortunatamente ci siete voi: ancora grazie a tutti.

Devi accedere o registrarti per scrivere nel forum
7 risposte