ms-access


Updating Table with Interval visits based on other table's start and end date


I designed an MS Access app for our maintenance department to control the visit schedule.
I have 2 main tables:
Project data (Project name, no of visits, contract start date, end date, amount, etc...)
PPM (no of visit, scheduled date of the visit and visit type)
Currently we are adding the data on the new project in the first table, and then we are updating the second table with the dates Manual. e.g. if I have a project start on 01/01/2017 and it will end on 31/12/2017 and we have to conduct 4 visits (Quarterly). So we are updating the 2nd table as the following:
Visit no 1 02/01/2017 Quarterly Visit
Visit no 2 04/01/2017 Quarterly Visit
Visit no 3 07/01/2017 Quarterly Visit
Visit no 2 10/01/2017 Quarterly Visit
This to be able to get a schedule report.
The question is: can I have a way to fill the 2nd table (PPM) automatically based on start date and end date and no of visits of each contract?
Yes, requires VBA code. Something like this:
Sub CreatePPM(dteStart As Date, dteEnd As Date, strType As String)
Dim x As Integer, dteVisit As Date
dteVisit = dteStart
Select Case strType
Case "Quarterly"
'code here
Case "Daily"
While dteVisit <= dteEnd
CurrentDb.Execute "INSERT INTO PPM(VisitNo, VisitDate, VisitType) Values(" & x & ", #" & dteVisit & "#, 'Daily')"
dteVisit = dteVisit + 1
Wend
End Select
End Sub
Modify code as required to handle different visit types. I have to say coding for the Quarterly type does seem to be challenging.
Then figure out what event to put the code into. Perhaps a button click or AfterUpdate event of Project data entry form. Will probably need additional code to make sure records are not entered multiple times.
When you develop code and have specific issue, post question.

Related Links

Resize form based on if subform visible
MS Access search for record by textbox instead of dropdown
Uniqueness Constraints in MS Access
Application Icon path in MS Access
Microsoft access is a mere file or data-base server
Is ACE/Jet's IN operator or CHECK constraint 'broken'?
Form.CurrentRecord=1 and Form.RecordSet.Absoluteposition=-1
email using Access and VBA without MAPI
MS Access Properties
Will Access support 35- 40 users writing to a Access database
Trying to limit input on a field
Sorting by month in MS Access
How to add a menu item to the default right click context menu
ASP Access Database web site on Windows 2008 Server running IIS 7
How to populate field descriptions in MS Access
Version control for VBA file

Categories

HOME
ibm-bluemix
pdf
zeromq
deezer
appx
iterator
adb
convolution
mouse
append
volttron
row
gz
messages
event-handling
ups
clojurescript
systemc
highlight.js
nhibernate-envers
scichart
xlsxwriter
java-3d
abi
tar
phpfox
nhapi
fifo
buck
dbclient
libuv
socialengine
nameservers
javascriptcore
column-family
pim
form-data
bower-install
http-digest
vxworks
space-complexity
withings
sharefile
opshub
temporary-files
azure-ml
firebase-admin
heightmap
pango
qsslsocket
errordocument
recursive-datastructures
sqlclient
dtexec
sqldf
django-scheduler
webdriverjs
word-vba-mac
xcb
bonobo
nsfilemanager
clang-static-analyzer
jwplayer7
lttng
pickadate
ptrace
reactive-banana
jmeter-maven-plugin
dundas
unity5.2.3
p2
notify
nstableviewcell
responsive-slides
ceil
jquery-layout
comexception
gnu-smalltalk
oam
inbox
tws
kyotocabinet
referrer
dice
datawindow
dsn
multipage
netbeans-6.9
dotnethighcharts
asyncfileupload
libc++
xmemcached
xtype
krl
gdlib
jquery-ui-droppable
filtered-index
nhibernate.search
substrings
javap

Resources

Mobile Apps Dev
Database Users
javascript
java
csharp
php
android
MS Developer
developer works
python
ios
c
html
jquery
RDBMS discuss
Cloud Virtualization
Database Dev&Adm
javascript
java
csharp
php
python
android
jquery
ruby
ios
html
Mobile App
Mobile App
Mobile App