ciao...un saluto a tutto il forum!Mi sn iscritta da poco quindi è la prima volta ke mi collego.
Volevo fare una domanda: chi di voi può aiutarmi? ho un problema con un database.Mi hanno dato questo database da modificare perchè vi erano molti errori,ho corretto tutto tranne tre maschere.Quando provo a fare VISUALIZZAZIONE MASCHERA mi esce un messaggio di errore,mi dice che la funzione 'Eta' non è definita
Spero riusciate ad aiutarmi
Vi pasto qui il codice
Option Compare Database 'Utilizza il tipo di ordinamento del database per i confronti fra stringhe
Private Sub Elenco_DblClick(Cancel As Integer)
DoCmd.OpenForm "Scheda Donatori"
DoCmd.GoToControl "Matricola"
DoCmd.FindRecord [Mat], , , , True
End Sub
Private Sub Esci_Click()
DoCmd.Close
End Sub
Function calcage(DataNascita As Date) As Long
Eta = Year(DataNascita) - Year(Date)
Val (Eta) > 30
End Function
Private Sub Form_Resize()
DoCmd.Echo False
DoCmd.Restore
DoCmd.Echo True
End Sub
Private Sub Gruppo_GotFocus()
End Sub
Private Sub Ok_Click()
A = "[Cognome]+' '+[Nome]"
B = "SELECT DISTINCTROW Donatori.Matricola AS Matr, " + A + " AS Nominativo, Donatori.Sesso AS Sex, Donatori.Città, Eta([DataNascita]) AS Età, Donatori.TotaleDonazioni AS N_Don, Donatori.Data_Ult_Don AS [Ult Don], Donatori.Gruppo_Sangue AS Sangue, Donatori.Particolarità AS Partic, Donatori.Condizione, Donatori.Gruppo AS Sezione, Donatori.Data_Iscrizione AS Tesser FROM Donatori"
Select Case [Ordine]
Case 1: Cognome.OptionValue = 1
C = " ORDER BY " + A
E = "WHERE ((" + A + " Like ('*|[Parametro]|*')))"
Case 2: Eta.OptionValue = 2
C = " ORDER BY DataNascita"
E = "WHERE ((Eta(DataNascita)=[Parametro]))"
Case 3: Gruppo.OptionValue = 3
C = " ORDER BY Gruppo"
E = "WHERE ((Gruppo Like ('*|[Parametro]|*')))"
Case 4: Gruppo_Sangue.OptionValue = 4
C = " ORDER BY [Gruppo_Sangue]"
E = "WHERE (([Gruppo_Sangue] Like ('*|[Parametro]|*')))"
Case 5: Donazione.OptionValue = 5
C = " ORDER BY [Data_Ult_Don]"
E = "WHERE (([Data_Ult_Don]=[Parametro]))"
Case 6: Sesso.OptionValue = 6
C = " ORDER BY Sesso"
E = "WHERE ((Sesso=[Parametro]))"
Case 7: Condizione.OptionValue = 7
C = " ORDER BY Condizione"
E = "WHERE ((Condizione Like ('*|[Parametro]|*')))"
Case 8: Città.OptionValue = 8
C = " ORDER BY Città"
E = "WHERE ((Città Like ('*|[Parametro]|*')))"
Case 9: Tesseramento.OptionValue = 9
C = " ORDER BY [Data_Iscrizione]"
E = "WHERE (([Data_Iscrizione]=[Parametro]))"
Case 10: Ritardo.OptionValue = 10
C = " ORDER BY [Data_Ult_Don]"
E = "WHERE ((TRitardo(Data_Ult_Don,Sesso)<>0))"
Case 11: NDon.OptionValue = 11
C = " ORDER BY [TotaleDonazioni]"
E = "WHERE (([TotaleDonazioni]=>[Parametro]))"
Case 12: Matricola.OptionValue = 12
C = " ORDER BY Matricola"
E = "WHERE (([Matricola]=>[Parametro]))"
End Select
If IsNull(Parametro) And [Ordine] <> 10 Then E = ""
Select Case [Tipo]
Case 1: D = ";"
Case 2: D = " DESC;"
End Select
Elenco.RowSource = A + " " + B + " " + E + C + D
Me![Elenco].Requery
End Sub
Private Sub Stampa_Click()
Dim Rep As Report
'DoCmd Echo False
DoCmd.OpenForm "Appoggio"
A = "SELECT DISTINCTROW Donatori.Matricola, Donatori.Cognome, Donatori.Nome, Donatori.Sesso, Donatori.Città, Donatori.Telefono, Donatori.DataNascita, Donatori.Gruppo, Donatori.TotaleDonazioni, Donatori.Data_Ult_Don, Donatori.Gruppo_Sangue, Donatori.Particolarità, Donatori.Condizione FROM Donatori"
Select Case [Testo2]
Case 1: Cognome.OptionValue = 1
C = Forms![Appoggio]![Campo] = "Cognome"
E = "WHERE (( [Cognome] Like ('*|[Parametro]|*')))"
Case 2: Eta.OptionValue = 2
C = Forms![Appoggio]![Campo] = "DataNascita"
E = "WHERE (( Eta)=([Parametro]))"
Case 3: Gruppo.OptionValue = 3
C = Forms![Appoggio]![Campo] = "Gruppo"
E = "WHERE ((Gruppo Like ('*|[Parametro]|*')))"
Case 4: Gruppo_Sangue.OptionValue = 4
C = Forms![Appoggio]![Campo] = "Gruppo_Sangue"
E = "WHERE (([Gruppo_Sangue] Like ('*|[Parametro]|*')))"
Case 5: Donazione.OptionValue = 5
C = Forms![Appoggio]![Campo] = "Data_Ult_Don"
E = "WHERE (([Data_Ult_Don]=[Parametro]))"
Case 6: Sesso.OptionValue = 6
C = Forms![Appoggio]![Campo] = "Sesso"
E = "WHERE ((Sesso=[Parametro]))"
Case 7: Condizione.OptionValue = 7
C = Forms![Appoggio]![Campo] = "Condizione"
E = "WHERE ((Condizione Like ('*|[Parametro]|*')))"
Case 8: Città.OptionValue = 8
C = Forms![Appoggio]![Campo] = "Città"
E = "WHERE ((Città Like ('*|[Parametro]|*')))"
Case 9: Tesseramento.OptionValue = 9
C = Forms![Appoggio]![Campo] = "Data_Iscrizione"
E = "WHERE (([Data_Iscrizione]=[Parametro]))"
Case 10: Ritardo.OptionValue = 10
C = Forms![Appoggio]![Campo] = "Data_Ult_Don"
E = "WHERE ((TRitardo(Data_Ult_Don,Sesso)<>0))"
Case 11: NDon.OptionValue = 11
C = Forms![Appoggio]![Campo] = "TotaleDonazioni"
E = "WHERE (([TotaleDonazioni]=>[Parametro]))"
Case 12: Matricola.OptionValue = 12
C = Forms![Appoggio]![Campo] = "Matricola"
E = "WHERE (([Matricola]=>[Parametro]))"
End Select
If IsNull(Parametro) And [Ordine] <> 10 Then E = ""
DoCmd.OpenReport "Elenco Donatori", A_DESIGN
Set Rep = Reports("Elenco Donatori")
Rep.GroupLevel(0).GroupOn = 0
Rep.GroupLevel(0).GroupInterval = 1
Rep.GroupLevel(0).KeepTogether = 0
Select Case [Tipo]
Case 1: Rep.GroupLevel(0).SortOrder = 0
Case 2: Rep.GroupLevel(0).SortOrder = -1
End Select
Rep.RecordSource = A + " " + E
DoCmd.RunMacro "Anteprima"
'DoCmd Echo True
End Sub
Rispondi quotando
