Programma Gestionale Azienda

Ecco per tutti coloro che amano l'economia il
software gestionale aziendale.

Software gestionale aziendale

Prof in gamba.

Codice dietro il pulsante di calcolo.

Ben trovati a tutti i ragazzi delle QUARTE.

Questo il codice che si cela dietro il pulsante di calcolo.


Dim messaggio As String
If Me.txt_Base > 0 Then
    If Me.txt_Altezza > 0 Then
            If Me.txt_Lato1 > 0 Then
                If Me.txt_Lato2 > 0 Then
                    If Me.Opzioni_Calcoli = 1 Then
                        Me.txt_Area = (Val(Me.txt_Base) * Val(Me.txt_Altezza)) / 2
                        Me.txt_Perimetro = 0
                   
                    End If
                    If Me.Opzioni_Calcoli = 2 Then
                        Me.txt_Perimetro = Val(Me.txt_Lato1) + Val(Me.txt_Lato2) + Val(Me.txt_Base)
                        Me.txt_Area = 0
                   
                    End If
                    If Me.Opzioni_Calcoli = 3 Then
                         Me.txt_Area = (Val(Me.txt_Base) * Val(Me.txt_Altezza)) / 2
                         Me.txt_Perimetro = Val(Me.txt_Lato1) + Val(Me.txt_Lato2) + Val(Me.txt_Base)
                    End If
                   
                   
                ' in questo braccio sono state digitate le variabili di input
                Else
                    messaggio = MsgBox("La variabile lato2 è obbligatoria. Per favore digitare !!!", vbInformation)
                    DoCmd.GoToControl (Me.txt_Lato2)
                End If
            Else
                messaggio = MsgBox("La variabile lato1 è obbligatoria. Per favore digitare !!!", vbInformation)
                DoCmd.GoToControl (Me.txt_Lato1)
            End If
    Else
        messaggio = MsgBox("La variabile altezza è obbligatoria. Per favore digitare !!!", vbInformation)
        DoCmd.GoToControl (Me.txt_Altezza)
    End If
Else
 
    messaggio = MsgBox("La variabile base è obbligatoria. Per favore digitare !!!", vbInformation)
    DoCmd.GoToControl (Me.txt_Base)
 
End If

Ciao A TUTTI

Prof in gamba

Uscita Didattica a Venezia come patrimonio dell'UNESCO.

Salve ragazzi di 2°D

di seguito le notizie riguardanti l'uscita a Venezia del giorno 23 aprile 2015.

Posto di riunione/incontro il mattino del 23 aprile 2015 presso la biglietteria dei treni di Treviso Centrale a pochi minuti a piedi dal Riccati.

Tutti i costi riportati fanno riferimento ad un alunno o ad un insegnante.

Acquisto dei biglietti di Andata/Ritorno Treviso-Venezia al costo complessivo di € 6,60.
La regione Veneto ha tolto l'agevolazione delle comitive e l'agevolazione per le scuole per cui dovremo pagare il Biglietto per intero.  (ribadisco € 6,60 per alunno/insegnante)

Da Venezia arrivo in stazione Centrale.

Acquisto biglietto vaporetto A/R con modalità scolaresca € 6,00 per viaggio Andata + Ritorno.

Coloro che hanno la Carta Venezia il costo sarà di € 1,30 x 1 biglietti Andata cioè € 2,60 in totale.

Mattino: Museo storico dell'Arsenale  ingresso € 3,50  visita prevista dalle ore 9,15 fino alle ore 13,00.

Camminata verso DORSODURO e pranzo al sacco. Coloro che vorranno approfittare di panifici e supermarket potranno farlo.

Ore 15,00 avremo appuntamento al "Peggy Guggenheim Museum di Venezia" per ingresso nostro gruppo.

La Collezione Peggy Guggenheim è uno dei più importanti musei in Italia per l'arte europea ed americana del XX secolo con sede a Venezia presso Palazzo Venier dei Leoni, sul Canal Grande, in quella che fu l'abitazione di Peggy Guggenheim. Il museo ospita la collezione personale di Peggy Guggenheim, ma anche i capolavori della Collezione Hannelore B. e Rudolph B. Schulhof, della Collezione Gianni Mattioli, il Giardino delle sculture Nasher e mostre temporanee. La Collezione Peggy Guggenheim è di proprietà della Fondazione Solomon R Guggenheim che la gestisce insieme al Museo Solomon R. Guggenheim di New York e al Guggenheim Museum Bilbao.

Pomeriggio: dalle ore 15,00 "Peggy Guggenheim Museum di Venezia" visita che si può fare senza guida oppure con guida.
Costo entrata  € 8,00 studenti   guida € 4,00 per ciascuno  per gruppi consistenti almeno di 30 scolari.

Fine visita al museo Guggenheim ore 18,00.

rientro con vaporetto + treno

Ora rientro prevista a Treviso ore 19,30 in stazione dei Treni.

Vi comunicherò anche il costo del treno Treviso-Venezia A/R cumulativo in modo preciso.

Totale costi € 12,60 Trasporto + € 11,50 per i due musei =€ 24,10  totale.

Buona giornata.

Prof in gamba.

Provate ad analizzare questo file

Ecco un file di PowerPoint per

verificare i formati utilizzati.

Amore


Prof in Gamba.

Codice dietro il pulsante di uscita.....

Ecco il codice che si cela dietro il pulsante di uscita.

On Error GoTo Err_cmd_Uscita_Click


    "If Me.Dirty Then Me.Dirty = False
    DoCmd.Close

Exit_cmd_Uscita_Click:
    Exit Sub

Err_cmd_Uscita_Click:
    MsgBox Err.Description
    Resume Exit_cmd_Uscita_Click


prof in gamba.

Esercizi in POWERPOINT.

Ecco il Link agli esercizi

Esercizi in POWERPOINT.

Fare esercizi 1-2-3-4.

prof in gamba.

Pulsante Calcolo magazzino Fiscale Inizio (CODICE)

On Error GoTo Err_cmd_CalcoloMagazzinoFiscale_Click

    Dim stDocName As String

    stDocName = "qry_CREATE_Rimanenze_Magazzino"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_cmd_CalcoloMagazzinoFiscale_Click:
    Exit Sub

Err_cmd_CalcoloMagazzinoFiscale_Click:
    MsgBox Err.Description
    Resume Exit_cmd_CalcoloMagazzinoFiscale_Click


prof in gamba