Newsgroup: it.comp.appl.access
Titolo: Mi serve un aiuto ... per cercare un help

Buonasera
Vorrei saper qual'č il modo, la parola chiave da cercare per sapere
come fare a:
ho una maschera (origine record tbll2) in cui c'č un controllo
(associato al campo miadataTbll2) ed un altro in cui vorrei inserire
la differenza tra la miadataTbll2 ed una che si trova in un campo
MiaDataTbll3 in tabella3. Si puņ fare? Qual'č l'help da cercare?
Grazie a chi mi risponderą
Marina

 MiaDataTbll3 in tabella3. Si può fare? Qual'è l'help da cercare?
Vediti la funzione DateDiff
Ciao, Sib
--
------------------------------------------------------
Non e' grave non capire; grave e' occuparsi di cio' che non si capisce.
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente

 wrote in message
ogOe4.28121$I3.3...@news.infostrada.it...

eh, però facciamo attenzione a non fossilizzarci...
;-)


Ciao, Marina
Marina, marina, ancora non ti sei imparata a postare dopo il quoting...
Comunque facci vedere.... il tuo codice...
Antonio

 wrote in message
85hkl0$hq8$4...@lacerta.tiscalinet.it...

Antonio, ciao e Buonanno :-))
il quoting è scrivere dopo così come sto facendo ora?
Le maschere aperte sono: Anagrafe (con origine dei record= Anagrafe) e
ScreeningEcografico (origine record=ScreeningEcografico).
Ti ricordi la faticaccia per far aprire la sottomaschera? Beh, ho
cancellato tutto perchè dopo un pò Access mi avvertiva che o il record
superava 1KB oppure troppi campi definiti.
Sicchè ho spezzettato la tabella in tante tabelle: mò però il problema
è che non trovo più i dati.
Infatti la data che cerco [DUM] si trova nella tabella Gravidanza: ma
la posso visualizzare nella maschera ScreeningEcografico in un
controllo non associato?
-----------------------------------
Private Sub Form_Load()
Me.Testo8 = varX
Dim varX As Variant
varX = DLookup("[DUM]", "Gravidanza", "[Npaziente] = " _
    & Forms![anagrafe]![NPaziente])
Forms![screeningecografico].NPaziente.Value =
Forms![anagrafe]![NPaziente]
End Sub
-------------------
Prima avevo anche provato a mettere come origine del controllo non
associato Testo8
=[Gravidanza]![DUM]
ma mi compare #Nome
Vorrei sapere: si possono leggere i dati provenienti da un'altra
tabella? Mò mi risponderai sob!
Ciao e baci Marina

tabella? Mň mi risponderai sob!
Con le funzioni aggregate sui domini, Dlookup, Dfirst ecc.
Antonio

 hmmmm...
Che vuol dire hmmmh
Disappunto? Sconcerto o cosa?
Grazie adesso il messaggio di errore del tipo non mi compare + perň
non č che vedo la data cercata: perchč?
Marina

Marina
Marinč, io non ho la palla di vetro, devi illustrare cosa fai, come lo fai,
dove lo fai e che sorte fora!!!
Antonio

 dove lo fai e che sorte fora!!!
Sorte fora?!? What?
Illustro: ho due maschere aperte che hanno origine record in 2 tbll .
Adesso nella 2a maschera c'è un controllo (che scrive i dati in un
campo SettAnamn nella tbll2 ... forse è meglio dire associato al campo
SettAnamn della tbll2).
Questa SettAnamn è la differenza tra me.v168 (che è il controllo della
maschera associato al campo DataTorch nella tbll ScreeningEcografico)
e testo8 (che dovrebbe farmi visualizzare con DlookUp appunto, la
DataUM che è un campo della tbll  Gravidanza).
Ma nel me.test8 non viene visualizzato nulla.
Private Sub Form_Load()
Dim varX As Variant
Me.Testo8 = varX
varX = DLookup("[DUM]", "Gravidanza", "[Npaziente] = " _
    & Forms![anagrafe]![NPaziente])
Forms![screeningecografico].NPaziente.Value =
Forms![anagrafe]![NPaziente]
End Sub
Marina
P.S. Il codice che uso per fare la DiffDate in altre maschere è quello
prelevato dal
sito comune e funziona benissimo .... nonostante che l'abbia
modificato io.
P.S2. Grazie Bisiuccio ...

 > bomba saddam attentato medio oriente
Si,si dai....
ananas,clinton come se fosse antani

 Grazie!
Ecco il codice che si trova a:
http://members.xoom.it/it_db_access/
Differenza tra due date espressa in anni, mesi e giorni. (97)
Fornitore: Silvio Berruti
Public Function DiffDate(Data1 As String, Data2 As String) As String
' Questa funzione calcola la differenza tra due date (Data1 - Data2)
' esprimendo il risultato in anni, mesi e giorni.
' Le date devono essere inserite in formato testo.
' In realtà funziona anche inserendo le date in formato data, ma
' possono crearsi errori dovuti all'interpretazione delle stesse.
' Esempio: #18/02/1999# = "18/02/1999", ma #08/02/1999# = "02/08/1999"
  On Error GoTo Errore_Diffdate
  Dim anni, mesi, giorni, gnm
  ' Vengono calcolate le differenze per anni, mesi e giorni
  anni = Year(Data1) - Year(Data2)
  mesi = Month(Data1) - Month(Data2)
  giorni = Day(Data1) - Day(Data2)
  ' Esegue il controllo per gli anni bisestili
  If Year(Data2) \ 4 = Year(Data2) / 4 And Month(Data2) = 2 Then
    gnm = GiorniNelMese(Month(Data2)) + 1
  Else
    gnm = GiorniNelMese(Month(Data2))
  End If
  ' Vengono apportate le correzioni di range
  If giorni < 0 Then mesi = mesi - 1: giorni = gnm + giorni
  If giorni > gnm Then mesi = mesi + 1: giorni = giorni - gnm
  If mesi < 0 Then anni = anni - 1: mesi = 12 + mesi
  If mesi > 12 Then anni = anni + 1: mesi = mesi - 12
  ' Visualizza il risultato
  If anni < 0 Then
    DiffDate = "Date invertite"
  Else
    DiffDate = "a=" & anni & " m=" & mesi & " g=" & giorni
  End If
Exit_Diffdate:
  Exit Function
Errore_Diffdate:
  Select Case Err
    Case 13: DiffDate = "Data errata o non esistente"
    Case 94: DiffDate = "Inserire una data"
    Case Else: DiffDate = "Errore non previsto"
  End Select
  Resume Exit_Diffdate
End Function
Function GiorniNelMese(Mese)
  ' Calcola quanti giorni ha il mese
  ' Questa funzione non controlla gli anni bisestili
  Select Case Mese
    Case 1, 3, 5, 7, 8, 10, 12: GiorniNelMese = 31
    Case 2: GiorniNelMese = 28
    Case Else: GiorniNelMese = 30
  End Select
End Function
Ciao Marina

...
Antonio,
se ci sei avrei trovato un altro modo: e cioč mettere una casella di
riepilogo.
origina riga:
SELECT DISTINCTROW Gravidanza.NPaziente, Gravidanza.DUM FROM
Gravidanza WHERE
(((Gravidanza.NPaziente)=[forms]![ScreeningEcografico]![Npaziente]));
Solo che adesso il problema č il seguente: il calcolo della differenza
tra le date (una č Gravidanza.DUM) e l'altra č il controllo v168
(associato al campo v168 della tbll screeeningecografico)  mi
visualizza un numero esagerato.
Vuoi vedere che devo cancellare?
Marina

Marina
Antonio

 Antonio
Antoine ... : hai ricevuto il messaggio? Volendo essere gentile per
ripagare minimamente la tua cortesia ho prima risposto a te e solo poi
ho
letto questo messaggio (netiquette si dice?).
Ciao.
Marinè..lla

 >?!?!?!
L'ho fatto ma non funziona:
Private Sub Form_Load()
Dim varX As Variant
varX = DLookup("[DUM]", "Gravidanza", "[Npaziente] = '" _
    & Forms![anagrafe]![NPaziente] & "'")
Me.testo8 = varX
Forms![EcoGenProva].NPaziente.Value = Forms![anagrafe]![NPaziente]
DoCmd.Maximize
End Sub
Mi seleziona in giallo varX= ....
e quando punto il cursore su anagrafe in &
Forms![anagrafe]![NPaziente] mi fa vedere il codice della paziente, ma
quando punto su Me.testo8 = varX mi dice "Nullo". La data nel campo
DUM nella tbll Gravidanza c'è, te lo giuro!
:-(((
Ma allora sono proprio stupida?!?.
Che c'è che non capisco?
Marina :-(((

 Che c'č che non capisco?
A questa domanda non mi so rispondere .
Grazie Bisioooooooooooooooo!!!!!
;-)))))

Marina Buonanno <marb...@NOSPAMtin.it> wrote in message
85qqeo$fkj$1...@nslave2.tin.it...
Sigh, dove sei?

Sigh, dove sei?
Sono stato e lo sono ancora, malaticcio...
Insomma, ora è tutto ok?
Antonio

 wrote in message
8627dg$no5$1...@lacerta.tiscalinet.it...

Quasi ...  a dire la verità no! M'è sorto un nuovo problema: tipo
quello della sub (che poi non hai postato più).
L'ho postato con l'oggetto: combobox  e
Forms!MiaForm!MioControllo.SetFocus (starno ma non funzia)... ma Biso
a parte te ripeto non mi risponde più nessuno.
Perchè, qui ci vuole la sfera magica.
a) Sono troppo banali le mie domende o
b) sono troppe o
c) sono troppo lunghe o
d) cosa?????
P.S. Ma ora stai bene ?
Auguri di pronta guarigione e fatti "sentire" presto
Ciao e bacioni Marina

Auguri di pronta guarigione e fatti "sentire" presto
Un po' meglio, grazie
Antonio

 Un po' meglio, grazie
Vedo, vedo.....
Volpone....
P.S. Trema perchè oggi ho studiato li Report......altro che ingegneri
qui si và sulla luna.... un po' alla rinfusa però....

:-PPPPPPPP
Noo?
Antonio

 Noo?
Naaa ...
Marina :-)

Marina Buonanno <marb...@NOSPAMtin.it>  didn't wrote in the last
message 86adju$t3i$1...@nslave1.tin.it...
:-)
... mi ero dimenticata di scrivere nel msg precedente che il codice
del doppio click l'ho preso da un esempio di Access e che si chiama
inventario domestico. Non ho fatto altro che cambiare il nome del
controllo e della maschera.
Quello che non capisco č perché non funziona: o meglio il codice
funziona pure (perché Farmaci) si apre ma non compare in bella mostra.
Ma sarň stata chiara? O no?
Mah, dimmi di si!
;-)
Bye, bye
Marina

visto?
Diciamo che ho sviscerato solo quel problema che avevi a suo tempo, dovrei
ancora averlo però...
Tu intanto fa quello che ti ho detto
Antonio

 Tu intanto fa quello che ti ho detto
Si capo.
Ciao Marina
P.S. grazie 100.000
eh ehe

eh ehe
snort
Antonio

 snort
Ma perchè? Era una battuta, c'era pure il tuo ehe, ma non ti è
piaciuta.
Marina
:-(
P.S. Se non ti sei arrabbiato risponderò al msg, altrimenti mi
dispiace e non ti secco più.
Cmq ciao

Cmq ciao
Tu sei troppo sulle tue e non hai capito il mio personaggio...
Antonio

Antonio
:-)
Che bello allora non ti sei arrabiato con me ... che faccio allora ti
comunico gli sviluppi???
Marina
P.S. se sulle mie intendi paura di toppare allora anche stavolta: si
hai ragione!
:-)
... però non so chi disse che sbagliando s'impara.. o no?

... però non so chi disse che sbagliando s'impara.. o no?
C'era pure quello che diceva che perseverare è diabolico...
Eh eh eh
Antonio

 Antonio
Attento alle allergie... si avvicina la primavera, ed i fiori
sbocciano!
ha hahaha
My name is "devil" :-)

My name is "devil" :-)
Beh, se mi ti metti con una tutina rossa tutta attillata anche come
diavolessa tmi vai bene...
Antonio