25-02-2006, 08:59
|
|
|
|
חבר מתאריך: 13.05.02
הודעות: 8,468
|
|
דרוש קוד ב-VBA שנותן ערך לשדה המחושב בטופס
ואם השדה מקושר לשדה בטבלה, אז הערך יישמר בטבלה.
אני אתן לך דוגמא למשהו שיצא לי לעשות -
מדובר על מערכת הקשורה לבית בד והכנת שמן זית אשר מכילה חישובי אחוז ונפח או כמות שמן בעת הדיווח
(לפי כמות הזיתים וכמות או נפח השמן).
כל שמות המשתנים בקוד הבא הם שמות של שדות בטופס (בו מצוי הקוד) ובטבלה (המקושרת לטופס)
קוד:
Private Sub oilQuantity_AfterUpdate()
oilVolume = oilVolumeCalc(oilQuantity)
oilPercent = oilPercentCalc(oilQuantity, olivesQuantity)
End Sub
Private Sub oilVolume_AfterUpdate()
oilQuantity = oilQuantityCalc(oilVolume)
oilPercent = oilPercentCalc(oilQuantity, olivesQuantity)
End Sub
Private Sub olivesQuantity_AfterUpdate()
oilPercent = oilPercentCalc(oilQuantity, olivesQuantity)
End Sub
כאשר מטעמי סדר ונוחות, שמתי את פונקציות החישוב עצמן במודול נפרד
קוד:
Public Function oilVolumeCalc(oilQty As Double)
oilVolumeCalc = Round(CDbl(oilQty) / 0.92, 2)
End Function
Public Function oilQuantityCalc(oilVol As Double)
oilQuantityCalc = Round(CDbl(oilVol) * 0.92, 2)
End Function
בתקווה שעכשיו זה ברור....
_____________________________________
|