New Query Problem.
I have a Query on four fields. They are all date fields.
I want to see any dates of the four fields that fall in the next 30 day range.
So I want the query to be today + 30 days and if the dates of the four fields do not fall in that range I do not want the data to show up. Any more help out there.
I have a form called subfrm_vactions
rowsource is a query called qryVacations
the query should calculated two things
1 - the difference between start_vac and End_vac in days to calculate the vacation period and put the value in field called Period (working well)
2-the work days which the period between the last day in Previous record (End_Vac) and the (Start_Vac) in the next record (didn't work)
the result is the difference between (End_Vac) and (Start_Vac) in the same record which i don't want
simply i want to calculate the work days.
I have to count the number of days each week (7 days) that a person has worked - simple enough.
But - what if they come off the job within the week?
I have been using the DateDiff function which is fine.
In the database they have a Mobdate and a DeMobDate but if the DeMobDate falls within the week the whole thing falls apart?
Hello everyone,
I have problem with my code here. I am using this code to determine if the LogDate with a weekday of Sunday can be declare as Sunday Work or Regular Work. The 1st week of my entry can determine if the LogDate is Sunday then compute if it reaches a 7 days working, if he is absent even 1 (one) day in his previous working days within the week. His Sunday LogDate is considered as Regular Days instead of Sunday Work. Can anyone tell me what is wrong in this code?
The problem here is the computation of 7 days after 1 week. There should be a 7 days computation every week per month in able to declare Sunday Work or Regular Work. I tried this code but it did not work on 2nd week, 3rd week and 4th week of the month.
How come on 2nd week, Sunday (LogDate) is not considered as Sunday Work even he completed the 7 days (working days) per week? I need help on this ASAP Thanks
Tim
Below is the code i'm using for defining Regular days and Sunday Working Days:
Private Sub LogDate_AfterUpdate()
Dim rst As DAO.Recordset, rs As DAO.Recordset
Dim db As DAO.Database
Dim dteToday As Date, dtePrior As Date
Dim i As Integer
dteToday = LogDate
dtePrior = DateAdd("d", -6, dteToday)
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT [HolidayDate] FROM tblHolidays", dbOpenSnapshot)
rst.FindFirst "[HolidayDate] = #" & dteToday & "#"
'See if the date entered is a holiday
If rst.NoMatch Then
Holiday.Value = 0
Else
Holiday.Value = 1
End If
If Weekday(dteToday) = vbSunday Then 'If dated entered is a Sunday determine if
Dim strSQL As String 'it will be a regular day or a Sunday
strSQL = "SELECT [LogDate] "
strSQL = strSQL & "FROM tblLog "
strSQL = strSQL & "WHERE [LogDate] >= #" & dtePrior & "#"
strSQL = strSQL & " AND [LogDate] <= #" & dteToday & "#"
'Create a recordset of records from date entered and 7 days prior
Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
rs.MoveLast
i = rs.RecordCount 'Count the number of days between the two dates
If i = 7 Then 'If there are seven days then it is a Sunday
Sunday.Value = 1
Else
Sunday.Value = 0 'If less than 7 days then it is a regular day
End If
Else
Sunday.Value = 0
End If
DayofWeek.Value = Format(dteToday, "dddd")
End Sub
Is there a way i can convert the weekend days into working days for example.
5/4/13 1:30 PM is on saturday what function can I use to make this day read 5/6/13 8:00 Am which is monday. Same thing for holidays.
I have a form where a start date is inputted (Inputfrm , StartDate) and a form where the end date of the process is recorded (Inspectionfrm , EndDate) and these both record in the table InputTbl as StartDate and EndDate respectively.
I have created a union query which shows a list of all the dates where there is work recorded (WorkingDatesQry and the column of list of unique dates is "WorkingDate"), and as we run a highly varied schedule depending on time of the year and order numbers I cannot just use a query which says Monday-Friday or Tuesday - Saturday.What I am trying to do is to find the number of days between StartDate and EndDate where there is a date recorded in the WorkingDates query.
Client has asked me to create a report showing summary of monthly sales by day. That was easy. I created a query for the month the user selected and then summarized and group the data by day. Client like the result but would like to see zeros on the report for non sales days. Non sales days are days like holidays and there are no sales.
I am thinking of creating an table with 31 days of zero values and then join the two tables in a query? Or, should I create a temporary table with code and then merge the two tables which the existing query which I can then use for the report?
I have a query and I need the records to display 3 working days before the 15 working day deadline.
I used the following in the criteria box below the received date field and it doesn't pull the correct number of workdays, it's pulling calendar days instead.
<=DateAdd("w",-12,Date())
Can anyone help, thanks for your time!!!
I have a query and I need the records to display 3 working days before the 15 working day deadline.
I used the following in the criteria box below the received date field and it doesn't pull the correct number of workdays, it's pulling calendar days instead.
<=DateAdd("w",-12,Date())
Can anyone help, thanks for your time!!!
I rent out a property , on the rental statement I have a field [Datepaid], [RentpaidFrom] and [rentpaidTo]. I would to have a field that can calculate the rent that is paid to show if the rent is in arrears or in Advance. I guess the code would be something like (datediff ???? etc) but i have no idea what it should be. the calculation should appear on the query as i.e.2 days in arrears or 12 days in advance etc
your help would be much appreciated
merry christmas to you all
Jabez
Dear All,
I'm new to VBA coding. A code below is copied from a friend of mine and I can't make it work. How to call up this function in my form. In my form I have 3 text boxes (StartDate, EndDate and NumOfWorkDays). My form is based on a table.
Please anyone who would help me on this, kindly give me the step by step procedure as I am really novice. Thanks in advance.
'*********** Code Start **************
Public Function WorkingDays(StartDate As Date, EndDate As Date) As Integer
On Error GoTo Err_WorkingDays
Dim intCount As Integer
StartDate = StartDate + 1
'If you want to count the day of StartDate as the 1st day
'Comment out the line above
intCount = 0
Do While StartDate <= EndDate
'Make the above < and not <= to not count the EndDate
Select Case WeekDay(StartDate)
Case Is = 1, 7
intCount = intCount
Case Is = 2, 3, 4, 5, 6
intCount = intCount + 1
End Select
StartDate = StartDate + 1
Loop
WorkingDays = intCount
Exit_WorkingDays:
Exit Function
Err_WorkingDays:
Select Case Err
Case Else
MsgBox Err.Description
Resume Exit_WorkingDays
End Select
End Function
'xxxxxxxxxxxxxxxxxxxxxxxx
Can someone please direct me to the right path.
Your help is highly appreciated.
qwerty70
I have a sub form in a tabbed control that collects client income data. A subform of that [Tax table calc frm] calculates the tax payable and the following code displays the result in the [c1TaxMedi] and [c2taxmedi] fields on the income form.
Private Sub Command122_Click()
'Calculate taxation on income
[Tax Table Calc Frm].Form.Refresh
Me.C1TaxMedi = Form![Tax Table Calc Frm].Form![Text58]
Me.C2TaxMedi = Form![Tax Table Calc Frm].Form![Text70]
End Sub
The problem is that when I put data in the clients wages field then click the command button I get an error message "Run-Time error-2147352567(80020009) The value you entered isn't valid for this field.
When I go into debug the line Me.C1TaxMedi = Form![Tax Table Calc Frm].Form![Text58] is highlighted. If I don't do anything except close the debug window and return to the form the currency is display correctly in wages and if I press the command button again I get the tax to display without any errors.
I cannot fathom what is wrong with this code to get this effect.
Help appreciated Thanks.
Ooops realised I've posted in wrong category, don't know how to move it.M apologies.
I have transfered an MS Access file to my PC from another, but when i try to open the forms in the database, an error occurs.It states that the path is not valid.
How can i correct the path?
Do i have to define the path for each form, report an etc seperately?
Trying to make a shortcut to join the workgroup and open a Db.
I made a shortcut for a Db, the shortcut defalt target was:
X:RC-OfficeRC_OFFICdatabaseProjects.mdb
I edited the target line to:
/wrkgrp ”X:RC-OfficeRC_OFFICdatabaseMS Access Workgroup.mdw” “X:RC-OfficeRC_OFFICdatabaseProjects.mdb”
I get wrkgrp not vaid target. I put the mdb file path first, I get not vaid target for the path to the Db.
I would rather not put in the whole MS Access program file. This is on a server that I don't know much about. Not sure I would get the program file right.
Help?
I am making an application in Access where a number of image files are copied to a folder in the server. I need a way to find out whether the folder in which the images are being copied to exist so that a new directory can be created if it does not exist. Please help with a code to check for the validity of the existing path.
View 2 Replies View RelatedHello,
I apologize if this is already a thread, but I tried my best to search for it and nothing helped. Alright, I set up low-level security for my database using the security wizard and I was wondering if there is a way to track information (username, date/time, etc.) from the auto-generated logon window. I started out making my own login window, but I couldn't get my permissions set up properly, so I figured the given security measures would be best. Everything works fine, I just need a way to track the logins. Any help would be appreciated, thanks!!
Hi,
I tried to search the forums for an answer but I still can't seem to solve the problem.
I receive the "Not a valid bookmark" error message when attempting to open my database. I have tried the compact tool through access and also jetcomp but it just brings up the same error message on access and says "error compacting database" on jetcomp. Can anyone provide a solution to my problem in order that i can either open the database or else retrieve data from it?
Many thanks, any help appreciated
Jon.
I have attached the database in case you have any software which might be of use.
Dear Access Expert
I am looking for an algorithm that verifies if a queue of records is complete.
I will have a recordset with 4 to 15 records. The first field in each record will represents its position in the queue.
If there are any duplicates in the queue or gaps I want the algorithm to let me know.
for example
1
2
3
5
6
8
Would output 4 and 7 is missing.
1
2
3
3
6
Would output (3 duplicated) AND (4 and 5 missing)
Thank you so much.
Hi all,
one of the databases at my place has started acting really strange and was wondering if anyone knows what could possibly be wrong?
there's only one big tble holding about 7.5 k records with approx 10 fields
info that was entered yesterday has now been deleted (by access?) and when you scroll down or go down to the end records, all those records that were there yesterday now show either #error or #deleted and then an error popup appears saying "Not Valid Bookmark"
The UID doesn't appear to be working either, i.e it's not incrementing properly?
any ideas?
In a form named PRODUCTION there are 3 text box for invoice data: xtype, xserie, xnumber
I need valid this data from the INVOICE table, where its key is a compound key (TPINV+SERINV+NUMINV)
I tried with:
Private Sub xnumber_AfterUpdate()
Dim searchinv as string
searchinv=Dlookup("*","[Invoice]", [tpinv]="& Forms![production].[xtype] and [xserie]= &Forms![production].[xnumber] and "&Forms![xnumber]
If searchinv ="" then
MsgBox ("Invoice doesn't exist'")
Cancel = True
End If
End Sub
... but it doesnt work.
I have a simple table with just 5 field. When trying to sort i get error message "the value you entered is not valed for the sort id". I get this for three of the fields.
View 8 Replies View RelatedIs it possible in Access 2010 to have a prompt "Not Valid" in a dlookup?
If =DLookUp("[Lot]","tblBarcode","[Inuse] = -1") is No, then the message appears.
I am trying to link some tables to my front end and the tables are within an encrypted and password protected database.
When I link the tables, it asks me for the passwork which I enter and the tables do get linked to the fron end..
However when I try to attach the table to a combo box or try to open the tables I get a message which says "Not a Valid Password"
So it does allow me to link the tables with the required password but when I try to open the linked tables it gives me the above error.
I am using Access 2010..
It seems I've overstepped in setting up Users and Permissions, in MS Access 2007, on an .mdb. When I enter any of the user names and passwords I've created, I'm told that it's not a valid account name or password. I'm wondering how this could be possible since I'm staring at them in the Snapshot file.
My question is this: I can access the .mdw file as "Admin", is there anyway to unwind this mess?
I have created a text box for people to enter search criteria, e.g. customer surname. The results appear in a list box underneath. When I select the record it should open up the customer's details but in Access 2013 it produces an error "The value you entered isn't valid for this field". The first sub-routine pulls the search data into a Row Source:
Private Sub txtCustomerSearch_Change()
On Error GoTo Err_txtCustomerSearch_Change Dim strSource As String strSource =
"SELECT DistinctRow CustomerNo, [End Date], Surname, FirstName, Address1,
[code]....
I'm creating a database with an Asset register which gives you a simple route to documents related to these perticular assets. My problem is when linking to Excel files. I use the FollowHyperlink method and reference to a Hyperlink in a row of the table. If this Hyperlink happens to be to an excel file (regardless of version) it generates an error stating "Reference is not valid". The odd thing is that the file opens, but is not maximised on opening. I have searched for weeks for a solution but can only find them for Pivot Table problems in excel.
My code is simply;
Private Sub FormName_ObjectName_Click()
On Error Resume Next
Application.FollowHyperlink [ColumnName]
End Sub
This works fine for any file that isn't an excel file. So my question is, what's missing or what needs changing to prevent the error from appearing. I have tried different compatabilities but have had no luck. I also tried a function called GoHyperlink, but had no luck in Access 2007.