Ultima modifica 9 Agosto 2021 by Maurizio Matetich

Creare il file di testo per il portale Alloggiati Web

Il turismo è una risorsa molto importante per l’Italia. Per una struttura alberghiera è obbligatorio registrare le generalità delle persone alloggiate e comunicarle entro le 24 ore alla Questura.

La registrazione delle generalità avviene attraverso il portale Alloggiati Web

Le piccole strutture alberghiere non sempre hanno un apposito programma che gestisce questa operazione in modo  automatico.

Quando il cliente arriva in hotel deve essere registrato. Poi a fine giornata devi accedere nel portale Alloggiati Web e inserire nuovamente i dati. Doppio lavoro!

Turista da registrare in Alloggiatiweb - Office online

Ho creato un semplice programma che permette di gestire questa operazione in automatico. Scopri di più

Se conosci Microsoft Access è possibile creare un database per registrare i dati dei clienti e poi creare in automatico il file di testo contenente tutti i dati degli ospiti arrivati nella giornata. Poi questo file sarà importato in automatico nel portale Alloggiati Web. Con grande risparmio di tempo!

Utilizziamo VBA per creare il file per Alloggiati Web

E’ necessario scaricare i seguenti 4 file in formato CSV:

I quattro file devono essere importati in quattro tabelle di Access.

Il tracciato messo a disposizione dal portale Alloggiati Web ci aiuta a capire come creare il file di testo contenente i dati dei nostri clienti.

La nostra tabella utilizzata per registrare i dati dei clienti (in questo esempio la tabella si chiama Ospiti) deve contenere tutti i campi presenti nel tracciato della Questura. Puoi utilizzare anche una tua tabella Clienti (se l’hai già creata) ma se manca qualche campo allora è necessario aggiungerlo. E’ necessario creare delle caselle combinate collegate con le quattro tabelle precedentemente create.

Le caselle combinate permettono di utilizzare i codici presenti nelle quattro tabelle.

E’ utile creare una maschera che permette di scegliere la data di arrivo. Poi un pulsante crea il file di testo contenente tutti i dati.

Office Online - Database Alloggiati Web

Al pulsante è associato del codice VBA e le istruzioni sono molto semplici. Per conoscere tutto su VBA segui il mio corso online su VBA per Access.

Vediamo un estratto del codice.

Dim NomeFile, Riga, DataFile As String

Dim rs1 As DAO.Recordset

Dim NrRighe, i As Integer

DoCmd.SetWarnings False

‘estrai i dati dei clienti dalla tabella Ospiti

DoCmd.OpenQuery “EstraiOspite”, acNormal, acEdit

‘i dati vengono salvati nella tabella temporanea TempAlloggiatiWeb

‘controllo se la tabella è vuota

NrRighe = DCount(“*”, “TempAlloggiatiWeb”)

If (NrRighe > 0) Then

‘MsgBox “Ci sono record”

Else

VisualizzaMessaggio “Non ci sono nominativi”

GoTo Fine

End If

 

Set rs1 = CurrentDb.OpenRecordset(“TempAlloggiatiWeb”, dbOpenTable)

rs1.MoveFirst

‘me.DataArrivo è il campo presente nella maschera

DataFile = Replace(Me. DataArrivo, “/”, “-“)

‘creo il nome del file con la data di arrivo

NomeFile = “C:\gestione alloggiatiweb\alloggiati-” & DataFile & “.txt”

Open NomeFile For Output As #1

i = 0

‘creo un ciclo per leggere tutti i record della tabella

Do While Not rs1.EOF

i = i + 1

Riga = rs1.Fields(“TipoAlloggiato”)

Riga = Riga + rs1.Fields(“DataArrivo”)

‘aggiungo i dati richiesti dal tracciato della Questura

……..

Print #1, Riga

rs1.MoveNext

Loop

Close #1

rs1.Close

Set rs1 = Nothing

msgbox “File creato correttamente”

E il gioco è fatto !

Vuoi una soluzione già pronta? Acquistala

Le istruzioni che hai appena visto sono molto semplici se si ha una conoscenza base di VBA. Se vuoi migliorare le tue conoscenze segui il mio corso su Microsoft Access VBA

Hai provato le mie istruzioni ? Fammi sapere com’è andata nei commenti.