Newsgroup: it.comp.appl.access
Titolo: [OT] ma non troppo. Sviluppatori creativi

Buongiorno NG!
 
E' molto che non frequento questo NG. Per anni è stato un luogo prezioso e noto con grande piacere di trovare moltissimi nomi a me familiari. Persone che mi hanno accompagnato con i loro consigli provati direttamente sul campo.
Continuo a sviluppare in Access a realizzare form front-end altrimenti irrealizzabili per interfacciarmi su As400, iSeries, ora anche su SQL Server 2017 e devo molto ai membri di questo newsgroup. Si chiamano ancora così i newsgroup battezzati dai tempi in cui utilizzavo OE per collegarmi attraversa 
news.tin.it
?
Di tanto in tanto ci ritorno. Forse sono più di vent'anni che lo frequento.
 
Non è mia abitudine spammare i NG per promuovere l'ultimo mio lavoro. Questo è il primo e anche l'ultimo in cui mi cimento a scrivere questo tipo di matter.
Promuovere non è voce del verbo marketing di bassa lega. "Promuovere" in luogo di "comunicare" che anche i programmatori VBA possono scrivere qualcosa che sia diverso da un codice interpretabile. Possono scrivere qualcosa che il lettore interpreterà e deciderà di ctrl+pausa, oppure di soffermarsi F8 dopo F8. Decidere o meno di conservare un nuovo modulo di classe nel progetto che non si ferma mai!
 
If FeedBack_Libro() then
    msgbox "Grazie per il tuo feeback positivo!"
Else
   msgbox "Mi dispiace per per il tuo feeback negativo! Cercherò di migliorare! GRAZIE!"
End If
 
Di sicuro questo codice non è un virus :-)
 
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Feedback su pubblicazione di uno sviluppatore Access e non solo
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Public Function FeedBack_Libro( _
  Optional ByVal strTitle As String = "L'amore che ci attraversa", _
  Optional ByVal strAutore As String = "Daniele Palombella", _
  Optional ByVal strBookTrailerLink As String = "
https://youtu.be/rnIGwVTBImY
", _
  Optional ByVal strMarketPlaceLink As String = "
https://www.amazon.it/dp/B09Y9BVJSY
", _
  Optional ByVal strNoteAutore As String = _
    "E' un onore per l'autore poterti invitare nel viaggio tra le sue pagine." & vbCrLf & _
    "Copertina, grafica, foto, impaginazione curata dall'autore.") As Boolean
On Error GoTo Err_FeedBack_Libro
 
    Const cntRoutine = "[FeedbackLibro]"
    Dim lngReply As Long
 
    FeedBack_Libro = False
 
    lngReply = MsgBox( _
        "Vorrei invitarti a valutare l'oppourtunità di una novità editoriale" & vbCrLf & _
        "curata da uno sviluppatore Access. Mi dai il permesso di aprire due link?", _
        vbQuestion + vbYesNoCancel)
 
    If lngReply = vbYes Then
 
        MsgBox _
            "Grazie! Visualizzerò il booktrailer e il market place dove puoi reperirlo." & vbCrLf & _
            "E' disponibile nell'edizione digitale, copertina flessibile o copertina rigida." & vbCrLf & vbCrLf & _
            "Titolo del libro : " & vbTab & vbTab & strTitle & vbCrLf & _
            "Autore : " & vbTab & vbTab & vbTab & strAutore & vbCrLf & vbCrLf & _
            "I link che veranno aperti sono: " & vbCrLf & _
            "Booktrailer : " & vbTab & strBookTrailerLink & vbCrLf & _
            "Market place : " & vbTab & strMarketPlaceLink, _
            vbInformation
 
         Application.FollowHyperlink strMarketPlaceLink
         'Application.FollowHyperlink strBookTrailerLink
 
    Else
 
        GoTo Exit_FeedBack_Libro
 
    End If
 
    lngReply = MsgBox( _
        "Ti prego di non attribuire a questa pubblicazione" & vbCrLf & _
        "una connotazione lucrativa o speculativa." & vbCrLf & _
        "Se desideri dai il tuo apprezzamento sul video che hai visto." & vbCrLf & _
        "Ti è piaciuto il modo in cui " & strAutore & " ha cercato " & vbCrLf & _
        "di catturare la tua attenzione?", _
        vbQuestion + vbYesNoCancel)
 
    FeedBack_Libro = (lngReply = vbYes)
 
Exit_FeedBack_Libro:
    MsgBox strAutore & " ti ringrazia di cuore! Il tuo feedback è prezioso!", vbExclamation
    Exit Function
 
Err_FeedBack_Libro:
    MsgBox _
        "Errore su: " & cntRoutine & vbCrLf & _
        err.Number & ": " & err.Description
    Resume Exit_FeedBack_Libro
 
End Function
 
Grazie di cuore a tutti!
 
Daniele Palombella
https://youtu.be/rnIGwVTBImY
 
 
 

Ciao Daniele, un piacere sentirti ancora.
 
@Alex