Is it possible to have a pop-up from a textbox that has a calendar picker.
i.e. if you have a textbox formatted as a date field that has a calendar picker, that pops up every time you click in the box.
I would like a pop up to appear next to the date picker to say please ensure you do not select dates that fall on a public holiday!
Hi All,
I know there are several examples of calendar date and time pickers about so I thought I would offer mine up for critique.
No modules, very little code, code used is simple and can be called from subforms as well as forms.
I used these forms in an application where the users find filling in date and times in the correct format difficult with limited keyboard skills.
If it can be improved let me know..... :)
Garry
PS I think the contributions Banana has been making to this forum are invaluable.
Keep up the good work.
I am looking at a DB I created a year or so ago... Trying to redo and correct a few problems. BUT.... I've used a popup calendar on this one... pops up from the dropdown on a text box. First, when I try to pick a date... an error happens and it closes the DB... prompts to make a backup and reopens the DB.... My problem is I CAN NOT get rid of this calendar!!! I put it in design view... delete the code... Still when I try to click on the little calendar... The same error happens. Has anyone ran into this before???I used the popup calendar from here... http://www.fontstuff.com/access/acctut09.htm
View 4 Replies View RelatedI'm *finally* getting around to getting rid of the ActiveX calendar control in my application. After doing battle with references on other users' systems, the ocx references have finally lost the plot and don't work.
I've downloaded Allen's popup calendar but have a problem since the app uses text boxes, and I need to add the selected date into a table with date fields. Also, instead of clicking an icon (where his instructions say to put "=CalendarFor(SaleDate],...", in my previous code I just call the calendar form from the on click event when the user clicks the date field.
I've tried modifying Allen's code to no avail, and I'm afraid of really cocking things up in all my forms, tables, reports, etc. if I change all may table's date fields to text.
Could someone help me modify the code from text fields to dates? Alternatively, is there any other calendar popup out there that would suit? (I've looked at all of them in the links but haven't found anything.)
Thank you,
Christine
hi.. i have attached a simple db.. 1 table.. 2 fields..
jobdate and jobday
open the form and double click on the jobdate.. it opens a calendar.. when you choose a date it puts it into the jobdate field..
i have created a simple drop down underneath the jobdate with the days of the week..
is there a way to tweak the calendar module so it also chooses the job day.. because the days are clearly displayed along with the number dates.. so it must be possible..
here is the db in 2000 and 97 format..
thanks in advance.. i think this will benefit many users using this calendar
Is there a way to have a pop-up calendar with only a certain day of the week showing - such as all the Fridays only in the month?
View 5 Replies View RelatedIs there a way to ONLY allow users to select a date starting today or in the future using the DatePicker? I want to disable any past dates on the calendar popup.
View 2 Replies View RelatedI have a calendar (calendar1) from which i want to populate a textbox (appt1) when i select the date on the calendar but im having problem with the code;
I tried putting it against the on updated event of the calendar as below, but not sure how far off i am:
Private Sub calendar1_Updated()
Dim myDate As NewDate
myDate = calendar1.SelectedDate
appt1.Text = myDate
End Sub
How can i add date in textbox by simply selecting it from calendar?
View 2 Replies View RelatedI have started converting our Access 2003 to Access 2010 applications. In the past we have used the Calendar to pick a date to place in a textbox. I noticed that this feature will not work in Access 2010.
So I looked around and saw several references to using the calendar pick feature to a textbox...but without success.
How to have a textbox with a calendar icon next to it to populate the chosen date in the textbox?
I wish to export a report to excel, but I wish to prompt the user to be able to choose where to save the file at. How can I have the "Save As" dialog box pop up, with the filter set to "*.xls"?
View 2 Replies View RelatedHow I configure my Form Window to pop up as soon as I open my Access Database?
View 3 Replies View RelatedWhat is the syntax to display a particular record inside of a tab located on a pop-up?
In other words,
I have a pop-up called People_Enter.
On People_Enter is a tabbed control called TabCtl89
On tab (2) is a subform called company_contacts_attachcompany that displays a Single Form record.
I want to open that particular Single Form where EntryId = value
I know how to assign the Where but not how to call the form.
I am using the following code to select files using Microsoft Office's file dialog:
Public Function fTestFilePicker() As String
Dim fdFileSelection As Office.FileDialog, lstrFileName As String
Const kInitialFile = "F:TestbedTest.txt"
Set fdFileSelection = Application.FileDialog(msoFileDialogFilePicker)
With fdFileSelection
.AllowMultiSelect = False
[Code] .....
When I execute it, the file picker goes to the right folder but does not highlight the file test.txt even though that file name shows in the File name text box. Is there any way to correct this?
I've tried to add some basic login (not really security) to my database so that when a different name is entered into the login box a different form is opened.
I got this working but the login form stays in foreground and I can't click anything behind it and can't get to the design view to change any properties of anything.
I've also changed this login form to the startup item so it always loads when i start the database.
Is there way to get back to the design view or do i have to start again from my backup?
Is there and possiblity to have a pop up message box asking for password when changing file extension from accdr to accdb ?
View 6 Replies View RelatedI have set calendar control 12.0 up and everything works how I want it to (click date and peoples names in a table to the left to show scheduled meetings on that day). What I want is to add a string on top of the calendar. For example, this monday I would like for it to say "Memorial Day" on the physical calendar itself.
View 3 Replies View RelatedI have been using the below code for a number of years to send reminders to Outlook and colour them red (my category colour for certain items).
I've been asked to roll out this code to all members of my dept but the category for other people assigned to the red colour is different to mine.
Is there a way to colour the item using the colour name rather than the category name?
Set OutlookApt = Outlook.CreateItem(olAppointmentItem)
With OutlookApt
.Subject = MailSubject
.start = Dte
.End = DateAdd("h", 1, Dte)
[Code] ....
I use the code below which creates an appointment in Outlook default calendar. I need to add a few lines to create the appointment to an alternative calendar in the same pst file. I need to choose between three calendars in which to create the appointment and plan to select the calendar name from a list on the form.
Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Set objOutlook = CreateObject("Outlook.Application")
Set objAppt = objOutlook.CreateItem(olAppointmentItem)
[code]....
I'm using access 2003 with the calendar control 11, this works fine for entering values control whose control source is a date field.
My problem is that now I'm trying to use the calendar to update the value of a unbound textbox and it will not allow me to enter any value other than the default value of the calendar.
I have to update the unbound textbox as I want to use a button later on to update the date field and include a confirmation message before entering to avoid accidental entering.
I am looking to see if i could possibly get code that would allow me to send a calendar invite from Access to Lotus Notes?
View 2 Replies View RelatedI have found a calendar database witch I wanna use in one of my own databases.
But.. on the form the weeks start on sunday, I want the week to start on Monday but I can't figure out how to do it.
I've posted the original database as an attachment. I'd like to know what I have to change in the code and/or in the form to get what i want.
I am very new to VBA. I found some code that will allow me to add an appointment to my personal calendar with using access VBA and it works great. It also allows me to add an appointment to another calendar created under "My Calendars" folder.
I wanted to know how to change the code in order to add the appointment to the SHARED calendar instead.
The main folder is called "Shared Calendars" which is at the same level as the default "My Calendars" folder. Under the "Shared Calendars" folder the calendar is called "Tester".
Here is the code im using at the moment: I believe I have have to change the line of code that is in red but I don't know how.
Private Sub cmdAddAppt_Click()
On Error GoTo cmdAddAppt_Err
Dim outobj As Outlook.Application
Dim outappt As Outlook.AppointmentItem
Dim olNS As Outlook.NameSpace
[Code] ....
I have migrated an A2003 application to A2013 and in one of the A2013 forms I get a calendar icon appear all ove the place.
I uploaded a short video at
[URL]
When the form opens (shows dentist appointments by chair) the icon appears that the very top in Chair 1. I can add a patient, no problem.
When I click on an appointment in Chair 2, the icon appears in the last clicked appointment on Chair 1. When I then click on Chair 1 the icon appears on the last clicked appointment on Chair 2.There is no problem with the A2003 version. I DO NOT use the Calendar icon in my application or any third party software.
I am currently developing a calendar and am trying to open a recordset based off of a SQL string. When I deleted the Where part of the SQL statement, the code ran fine. So I am pretty sure that the problem lies within the Where part of the code. I use this code to filter my query based on txtTaskTypeID but if the value is null then the query is suppose to return all values. I keep getting Run-time error"3061: Too few parameters. Expected 1".
Code:
strSQL = "SELECT tbl1CalendarEntries.ID, tbl1CalendarEntries.Title, tbl1CalendarEntries.StartDate, tbl1CalendarEntries.StartTime, " _
& "tbl1CalendarEntries.EndDate, tbl1CalendarEntries.EndTime, tbl1CalendarEntries.TaskTypeID " _
& "FROM tbl1CalendarEntries " _
& "WHERE (((tbl1CalendarEntries.TaskTypeID)" _
& " Like IIf(IsNull([forms]![frmProductionPlanning]![txtTaskTypeID])=True,""*"",[forms]![frmProductionPlanning]![txtTaskTypeID]))) "
& "ORDER BY tbl1CalendarEntries.Title;"
Runtime Error 3075? I have attached a copy of my database. I am trying to make a calendar form with the list boxes having two columns. It works fine with the strFieldID and strFieldName but when I try adding the strDone I run into the error.
View 6 Replies View Related