Condividi:        

[Access] Creare Un Database per corrispettivi Giornalieri

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[Access] Creare Un Database per corrispettivi Giornalieri

Postdi Zagor57 » 27/06/15 19:30

Buonasera al Forum
Vorrei costruire un database per inserire i vari corrispettivi del giorno le varie fatture che siano al 22% piuttosto ghe al 10% o al 4% ecc.
Detto programma esiste già con excel, ma voglio renderlo più accattivante e più automattizzato ed ho deciso di farlo con access,ho fatto una maschera per rendere l'idea del database che intendo realizzare (Premesso non ho mai usato access è la mia prima esperienza in merito di access ) il link è il seguente per l'mmagine della maschera :http://www.filedropper.com/immaginecorrispettivi
Quello che vi chiedo è un IMPUT del percorso da fare e,come creare un calendario ,come da maschera selezionando in alto mese e l'anno,nella sezione giorno devono apparire i giorni con le varie colorazioni delle domenica e festività.
Inoltre come si fà il (Somma ) con access es.(nel Totale giornaliero della maschera deve farse la somma di :Corrispettivo+Fatture 22%+Fatture 10%+ecc
So di chiedere tanto ma non so proprio nulla di access ma non per questo voglio rinunciare

Grazie e a presto
Avatar utente
Zagor57
Utente Junior
 
Post: 75
Iscritto il: 04/05/15 19:35
Località: Massafra TA

Sponsor
 

Re: Creare Un Database per inserire corrispettivi Giornalier

Postdi alfrimpa » 29/06/15 17:31

Ciao Zagor57

Ti rispondo in linea molto generale da vecchio fan di Access ma che non lo prende in mano da molto molto tempo, in attesa di risposte ben più qualificate della mia e prescindendo dalla tua specifica richiesta.

Come forse saprai in un file di Access si possono inserire:

1) Tabelle (dove risiedono i dati)
2) Queries (estrazione dati sulla base di criteri specifici)
3) Maschere
4) Report (stampe)
5) Macro ( per automatizzare operazioni ma che sono completamente diverse da quelle di Excel)
6) Moduli (dove va scritto il codice VBA per la gestione dell'applicazione)

Access è un database "relazionale" (spero tu sappia cosa significhi) per cui prima di iniziare a "metter mano" al file vero e proprio occorre una sorta di "progettazione" sulla carta del database e del suo funzionamento, occorre "relazionare" le tabelle con le chiavi primarie, costruire le queries che andranno ad interrogare i dati sulle tabelle che saranno poi esposti in maschere o report.

Come vedi non è una cosa facile soprattutto se sei a digiuno del programma.

Se il tuo file in Excel ti funzione bene (ed anche lì si possono creare ottimi automatismi) ti consiglierei di continuare ad usare quello; diversamente dovresti munirti di impegno, di tanta buona volontà, di un ottimo manuale di Access e cominciare a studiare. :)

Altre strade, personalmente, non ne vedrei.

Tu hai allegato un immagine e con un immagine si può far poco o nulla.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Creare Un Database per inserire corrispettivi Giornalier

Postdi Zagor57 » 29/06/15 18:42

Ciao alfrimpa
Prima di tutto Grazie per la risposta
quando dici :
soprattutto se sei a digiuno del programma
,sei troppo buono.
Sono completamente all'oscuro di Access :cry:
Ti allego dei fogli di excel che ho creato un bel pò di tempo fà che poi sarebbe quello che uso attualmente,naturalmente sono dei copia incolla con ciò non ci sono formule
http://www.filedropper.com/corrispettivi
Ti spiego la difficoltà che ho con il programmino molto alla spicciola fatto con excel
1) non sò come automatizzare il calendario con tutte le rispettive formule ,e del mese in corso e del riepilogo annuale
2) Sinceramente in un primo impatto ACCESS mi era sembrato molto più semplice di quello che realmente è,mi hanno incuriosito molto le sue maschere
Se tu credi di potermi aiutare su excell per mé andrebbe ugualmente bene
Grazie ancora apresto

Ciao
Avatar utente
Zagor57
Utente Junior
 
Post: 75
Iscritto il: 04/05/15 19:35
Località: Massafra TA

Re: Creare Un Database per inserire corrispettivi Giornalier

Postdi alfrimpa » 29/06/15 19:31

Ciao Zagor57

Ho dato uno sguardo (molto superficiale) al tuo file ed onestamente non è che ci abbia capito molto. Il fatto che non ci siano formule certamente non aiuta a capirne la logica.

Dovresti essere tu ad illustrarne il funzionamento partendo da una situazione di base ed indicare chiaramente il risultato che vuoi raggiungere.

Cerca di "spezzettare" il problema complessivo in tanti singoli step più semplici che poi progressivamente si vedrà di risolvere.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Creare Un Database per inserire corrispettivi Giornalier

Postdi Zagor57 » 30/06/15 21:12

Ok come avrai capito quello che cerco di aggiustare è un registro dei corrispettivi ,dove nel foglio "inserimento corrispettivi e fatture " vanno inseriti tutti gli importi riferito al mese di.......dove questi dati con formule che purtroppo non sono automatizzate vengono riepilogate nel foglio " Riepilogo Generale ".
Per il momento soffermiamoci su questi due fogli
Attualmente purtroppo creo 12 fogli per ogni anno dove vado a modificare tutte le formule con tutte le rispettive date e festività varie e!!.... del foglio"inserimento corrispettivi e fatture " e!!.... del foglio " Riepilogo Generale ".
Quello che vorrei fare per il momento è di automattizzare il tutto senza dover fare ogni anno si può dire tutto il programma
spero di essere riuscito almeno in parte a darti l'idea del da farsi

Ciao
Avatar utente
Zagor57
Utente Junior
 
Post: 75
Iscritto il: 04/05/15 19:35
Località: Massafra TA

Re: [Access] Creare Un Database per corrispettivi Giornalier

Postdi Zagor57 » 01/07/15 08:35

P.S.dimenticavo
i dati devono rimanere nel database per consultazioni negli anni a venire
Ciao
Avatar utente
Zagor57
Utente Junior
 
Post: 75
Iscritto il: 04/05/15 19:35
Località: Massafra TA

Re: [Access] Creare Un Database per corrispettivi Giornalier

Postdi bismark » 08/07/15 15:11

scusa zagor se ti disturbo
ero interessato all'argomento incassi e ho letto, desideravo sapere se eri poi riuscito a proseguire nell'elaborazione utilizzando excel
e non access

Grazie e scusa se mi sono intromesso ma sono interessato all'argomento e vorrei migliorare quanto posso la conoscenza di excel e VBA
bismark
Utente Junior
 
Post: 54
Iscritto il: 08/07/15 15:03

Re: [Access] Creare Un Database per corrispettivi Giornalier

Postdi Zagor57 » 10/07/15 11:00

Ciao bismark
Intanto non mi disturbi per niente
In riferimento a quanto mi chiedi Si ho proseguito ad utilizzare excel, in quanto avevo già un file con excel, o solo fatto alcune modifiche in riferimento ad alcuni automatismi con le macro che gentilmente il forum mi ha aiutato tantissimo e dovrà ancora aiutarmi perchè non è ancora finito il tutto

Ciao a presto
Avatar utente
Zagor57
Utente Junior
 
Post: 75
Iscritto il: 04/05/15 19:35
Località: Massafra TA

Re: [Access] Creare Un Database per corrispettivi Giornalier

Postdi Zagor57 » 10/07/15 11:10

AIUTOOO!!
1 ) Perchè quando lancio la macro su questa parte di macro il tutto si rallenta notevolmente,eppure sono solo tre righe x tre celle

Codice: Seleziona tutto
'<<<<<COPIA I DATI in DBacquisti
    '
    '    GENNAIO
    '
    Sheets("GEN").Select
    Sheets("DBacquisti").Visible = True '<<<<<<<<<<<<<<scopre il DBacquisti
    Sheets ("DBacquisti")
    ActiveSheet.Unprotect
    Sheets("GEN").Select
    Range("AH34:AJ36").Select
    Selection.Copy
    Sheets("DBacquisti").Select
    Range("C1").Select
    Selection.End(xlDown).Select
    Range("D1048576").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(3, 3).Range("A1").Select
    Selection.End(xlDown).Select
    Range("I1048576").Select
    Selection.End(xlUp).Select
    'FEBBRAIO
    Sheets("FEB").Select
    Range("AH34:AJ36").Select
    Selection.Copy
    Sheets("DBacquisti").Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(3, 3).Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.End(xlUp).Select
    'MARZO
    Sheets("MAR").Select
    Range("AH34:AJ36").Select
    Selection.Copy
    Sheets("DBacquisti").Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(3, 3).Range("A1").Select
    Selection.End(xlDown).Select
    Range("Q1048576").Select
    Selection.End(xlUp).Select
    'APRILE
    Sheets("APR").Select
    Range("AH34:AJ36").Select
    Selection.Copy
    Sheets("DBacquisti").Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(3, 3).Range("A1").Select
    Selection.End(xlDown).Select
    Range("U1048576").Select
    Selection.End(xlUp).Select
    'MAGGIO
    Sheets("MAG").Select
    Range("AH34:AJ36").Select
    Selection.Copy
    Sheets("DBacquisti").Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(3, 3).Range("A1").Select
    Selection.End(xlDown).Select
    Range("Y1048576").Select
    Selection.End(xlUp).Select
    'GIUGNO
    Sheets("GIU").Select
    Range("AH34:AJ36").Select
    Selection.Copy
    Sheets("DBacquisti").Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(3, 3).Range("A1").Select
    Selection.End(xlDown).Select
    Range("AC1048576").Select
    Selection.End(xlUp).Select
    'LUGLIO
    Sheets("LUG").Select
    Range("AH34:AJ36").Select
    Selection.Copy
    Sheets("DBacquisti").Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(3, 3).Range("A1").Select
    Selection.End(xlDown).Select
    Range("AG1048576").Select
    Selection.End(xlUp).Select
    'AGOSTO
    Sheets("AGO").Select
    Range("AH34:AJ36").Select
    Selection.Copy
    Sheets("DBacquisti").Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(3, 3).Range("A1").Select
    Selection.End(xlDown).Select
    Range("AK1048576").Select
    Selection.End(xlUp).Select
    'SETTEMBRE
    Sheets("SET").Select
    Range("AH34:AJ36").Select
    Selection.Copy
    Sheets("DBacquisti").Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(3, 3).Range("A1").Select
    Selection.End(xlDown).Select
    Range("AO1048576").Select
    Selection.End(xlUp).Select
    'OTTOBRE
    Sheets("OTT").Select
    Range("AH34:AJ36").Select
    Selection.Copy
    Sheets("DBacquisti").Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(3, 3).Range("A1").Select
    Selection.End(xlDown).Select
    Range("AT1048576").Select
    Selection.End(xlUp).Select
    'NOVEMBRE
    Sheets("NOV").Select
    Range("AH34:AJ36").Select
    Selection.Copy
    Sheets("DBacquisti").Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(3, 3).Range("A1").Select
    Selection.End(xlDown).Select
    Range("AY1048576").Select
    Selection.End(xlUp).Select
    'DICEMBRE
    Sheets("DIC").Select
    Range("AH34:AJ36").Select
    Selection.Copy
    Sheets("DBacquisti").Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(3, 3).Range("A1").Select
    Selection.End(xlDown).Select
    Range("BD1048576").Select
    Selection.End(xlUp).Select
    '


Qualcuno molto più esperto di me ( c'è nè sono Tantissime ) può aiutarmi a dare una spiegazione ??
2 ) E possibile mentre sta eseguendo la copia di fare apparire a video un'altro foglio tipo Fermoimmagine
es: mentre avviene la copia di apparire a video e restarci un'altro foglio con scritto "Attendere prego " o qualcosa simile
Grazie
Avatar utente
Zagor57
Utente Junior
 
Post: 75
Iscritto il: 04/05/15 19:35
Località: Massafra TA


Torna a Applicazioni Office Windows


Topic correlati a "[Access] Creare Un Database per corrispettivi Giornalieri":


Chi c’è in linea

Visitano il forum: Nessuno e 51 ospiti