MS access - Preluarea unui camp in altul intr-un form datasheet

#1
tedeu

Posted 10 February 2017 - 15:47

Junior Member

Grup: Members
Posts: 131
Înscris: 25.09.2006

Salut,
Am o problema de care m-am legat si nu stiu cum sa o rezolv...
Am un subform, datasheet, in access...
am mai multe campuri, dar doua dintre ele ar trebui sa se calculeze automat, de fapt sa preia ...

de exemplu:
ID, ziua , Cantitate zilnica, Cantitate cumulata,
1. 1 10 10
2. 2 15 25
3. 3 10 35

etc...

ideea e ca la cantitate zilnica sa ii introduc eu mereu cat se produce zilnic, iar la cantitate cumulata sa imi adune ce am introdus eu cu ziua precedenta.
Cum as putea realiza acest lucru ?
Multumesc.

Back to top

#2
nexusm

Posted 10 February 2017 - 15:49

Senior Member

Grup: Senior Members
Posts: 2,793
Înscris: 07.07.2011

ai ceva cod scris deja?
pune-l sa vedem in ca stadiu esti.

Back to top

#3
tedeu

Posted 10 February 2017 - 15:54

Junior Member

Grup: Members
Posts: 131
Înscris: 25.09.2006

nu am nimic, pentru ca nu stiu de unde sa incep

e totul facut simplu, pana aici.
Repet, baza de date e Microsoft Access 2013

Back to top

#4
danvlas

Posted 10 February 2017 - 20:54

Guru Member

Grup: Senior Members
Posts: 11,118
Înscris: 04.06.2009

Tu vrei un "running total". In rapoartele Access e (era) foarte simplu. In formulare/subformulare nu merge. In sursa de date ai putea folosi DSum, dar performanta interogarii va scadea dramatic.
N-am mai folosit Access de multa vreme, acum vorbesc din amintiri.

Back to top

#5
tedeu

Posted 14 February 2017 - 16:11

Junior Member

Grup: Members
Posts: 131
Înscris: 25.09.2006

Am incercat cu DLookUp in ControlSource al campului

=DLookUp("[MCumulat]","[Cantitate_Subform]","[ID]=" & [ID]-1)

Si face ce vreau eu, dar cand adaug o noua inregristrare in formular (atentie codul asta se refera la un subformular) .. imi ia ultimul numar din inregistrarea precedenta...

Apoi am incercat sa ma leg de un camp care se numeste zi,
Daca ziua este 1 , atunci campul asta sa fie 0 altfel, sa faca dlookup...

Dar nu mi-a iesit...
atasez codum mai jos.

Private Sub MZIANT_Enter()
Dim MZ As Integer
MZ = DLookup("[MCumulat]", "[Cantitate_Subform]", "[ID]=" & ID - 1)
If Me.Varsta_Zile = 1 Then
Me.MZIANT.Value = 0
Else

Me.MZIANT.Value = MZ


End If
End Sub

Back to top

Anunturi

Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

www.neurohope.ro

MS access - Preluarea unui camp in altul intr-un form datasheet

#1 tedeu Posted 10 February 2017 - 15:47

#2 nexusm Posted 10 February 2017 - 15:49

#3 tedeu Posted 10 February 2017 - 15:54

#4 danvlas Posted 10 February 2017 - 20:54

#5 tedeu Posted 14 February 2017 - 16:11

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
tedeu

Posted 10 February 2017 - 15:47

#2
nexusm

Posted 10 February 2017 - 15:49

#3
tedeu

Posted 10 February 2017 - 15:54

#4
danvlas

Posted 10 February 2017 - 20:54

#5
tedeu

Posted 14 February 2017 - 16:11