I have a button on a form which calls a module to show a calendar form. The user picks date and time, and saves it. The calendar form closes and adds the date and time to a text box on the initial form.I want to save the record so that the underlying table/query is updated, but it's not working. The record is not saved until the initial form is closed.Here's the form vba...
Code:
Option Compare Database Option Explicit Private blnFlag As Boolean, blnSaveIt As Boolean Private Sub btnDelete_Click() On Error GoTo Err_btnDelete_Click
I have been trying to find a calendar that I can put on a form to set up reminders, notes, and other things. I have had no luck finding such a thing. I tried using Calendar Control 9.0, but that will not work for my needs.
If anyone knows where I can get a calendar like this, or if there is some sort of code that will make this happen, please let me know.
I currently have a form where a user can enter the criteria to print a report. For a date based report I would like to have 2 "pop-up" calendars where the user can click the start date and end date criteria. Can anyone recommend a program or add-in that I can use with Access97?
I have started my own MS Access Hints and Tips Club (http://msaccesshintsandtips.ning.com/profiles/blog/show?id=948619%3ABlogPost%3A301) and in an effort to attract new members I am offering a free calendar form.
I haven't seen any other Calendar form (DEMO HERE) (http://www.viddler.com/TonyHine/videos/35/fullscreen)with the advanced features that my calendar form offers, so I hope it's unique. It also benefits from the fact that it is very simple to set up and use on your own form. All you have to do is add two controls a command button to call the calendar form, and a text box to receive date.
you use a simple naming convention: Command button named: "btnDOB" Text box named similarly: "txtDOB"
The "DOB" portion can be any text you like as long as both buttons have the same text, >>> "DOB" <<< Any way Have a look at the DEMO at least! (http://www.viddler.com/TonyHine/videos/35/fullscreen)
I'm creating a Database where I can track quotes, orders, customers, support/faults and products.Is there any way to have a Form that looks like a calendar.. ie this will link to my orders table and show what orders are due shipping on each day.
When I right click a row on the data sheet side of a split form an select "New Record" I want the curser to go to the first field on the single record side. I've placed this in the OnCurrent but it did no good.
Code:
If Me.NewRecord Then Me!Descrfiption.SetFocus. End If
Any way to set the focus to the single form Side of a split form?
Thanks to "Beginning Access97 VBA Programming" by R. Smith & D. Sussman, I was able to implement the use of a calendar form to allow a client to select a date, rather than keying one in. And here I thought I was done with the problem....Wrong !!! The calendar form only works if existing records already have a date(shortdate) associated with the record.
But when I try to create a new record, the date field is "null" and I can't figure out how to pass a date value to the calendar control even though it's receiving a null. I get this "type mismatch" error I've bumped into the part of the code that was supplied via the book where the "property set datecontrol (Byval ctldate as Control) is set, but I can't figure out how to deal with this incoming "null" value from the newly created record.
Can anyone help? I'll check in later on tonight if anyone is needing part of the code as reference to what I'm trying to accomplish.
I have been using a calendar control on a subform and have now split the data into a tabbed form with 4 subforms. The calendar is now entering the date selected into the first record of each subform instead of just the one on the subform that has the focus.
Do I need to add the calendar control to each subform now or is there a way to reference the correct form in my current code?
Private Sub Calendar_Click()
' Enters the selected date into the DateCompleted field
I've creating an Access project, which is at an early stage. I'm using Access 2003 with a default file format set to Access 2000.
I've been trying to update a date field within a table using this piece of code from a Calendar form. The Calendar form has a Command Button called cmd_Accept. Its sub routine is shown below. Both variables, dt (date) and fvr_id (field visit report ID) are global.
The code works - too well! Instead of updating the only the target record, it will either update the first record plus the target record or all records with the same date and I cannot understand why this should happen.
[Field Visit Report ID] is unique, being the primary key for the table, tbl_field_visit. It is AutoNumber generated. I've double-checked the table and all entries in [Field Visit Report ID] are unique. All my MsgBOX displays show what I would expect to see.
As you can see, I've also tried doing the same task using SQL - with exactly the same result.
I've been going round and round with this for days. Should I bin this and go down another route, or can anyone tell me where I'm going wrong?
Any help much appreciated.
Private Sub cmd_Accept_Click()
Dim dbs As Database, rst As Recordset Dim strSQL As String
dt = ocxCalendar.Value ' +++++++++++++++++++++ ' Field Visit Report ID now set from another sub routine. Tested and working. ' fvr_id = Form.[Field Visit Report ID] ' +++++++++++++++++++++ ' MsgBox "The Field visit report ID is " & fvr_id, vbOKOnly ' MsgBox "The date is " & dt, vbOKOnly
Set dbs = CurrentDb Set rst = dbs.OpenRecordset("tbl_field_visit") If rst.RecordCount <> 0 Then rst.MoveFirst
MsgBox "fvr_id = " & fvr_id & " Date = " & dt, vbOKOnly Do While Not rst.EOF If (rst![Field Visit Report ID] = fvr_id) Then MsgBox "The Record ID is " & fvr_id, vbOKOnly found = True With rst .Edit !Date = dt .Update .Bookmark = .LastModified End With End If rst.MoveNext Loop rst.Close
' If found Then ' vbButtons = vbOKOnly + vbExclamation ' MsgBox "Record Found! " & " Date = " & dt & " Field Visit Report ID = " & fvr_id, vbButtons ' If rst.RecordCount <> 0 Then rst.MoveFirst ' strSQL = "SELECT tbl_Field_Visit.Date FROM tbl_Field_Visit WHERE tbl_Field_Visit.[Field Visit Report ID] = " & fvr_id ' Me.RecordSource = strSQL ' MsgBox strSQL, vbOKOnly ' strSQL = "INSERT INTO tbl_Books ([Date], VALUES '" & dt & "')" ' strSQL = "UPDATE tbl_Field_Visit SET tbl_Field_Visit.Date = '" & dt & "' WHERE tbl_Field_Visit.[Field Visit Report ID] = " & fvr_id ' MsgBox "strSQL = " & strSQL, vbOKOnly ' dbs.Execute strSQL ' End If
Before I waste a ton of time trying to do something that just isn't possible, can one of you tell me if the following is possible?
I have a database that I am using for appointments.
Is it possible to have a calendar control on a form that shows all of a person's appointments that occur during the month? For example, Joe has 3 appointments in april. Can I make the calendar show me all three dates (the appointment dates being depressed on the control) that he has appointments on? If so, can you tell me how? I can make it do one date, by making the row source the date scheduled field from the table.
Should I have seven different fields in one record for the appointments that could occur all seven days of the week?
Here is my problem. I am hoping that someone here can be my hero on this one.
I am trying to figure out what would be the best possible way to track my hospital's staffing. I need a form that I can click on the Active X calendar and have it populate the staffing table. I have built the code and it works great.
The problem is that the way the code works now, I have to have a field in my table for every single date scheduled. For example, right now, I have the staffing table like this:
Name Date Scheduled Date Scheduled1 Date Scheduled2 Date Scheduled3
Of course, after a month, an employee will have worked more than four shifts. I really don't want to add a field for every shift they could have worked because then, after a month, I'll have thirty date fields, and after a year, I'll have 365. So, do you have any ideas about how I can do this without having 365 date fields?? Thank you! If you can help me figure this out, you are my hero.
I have a form bound to a table that has a bunch of dates in it. What I want to do, is to be able to have pop-up calendars on the form next to each date field, where the user can select dates from the calendar, then have those dates display on the form, and last but not least, update the date fields in the table.
At the moment, the form I'm working with let's me pick dates from little pop-ups and display the dates, but when I exit the form and then come back into it, the dates are gone! In other words, I'm missing something in the process between the dates displaying onthe form and the dates getting into my table.
If anyone has an idea as to what I might be doing wrong, I wouldappreciate your ideas and suggestions.
Thanks in advance. I don't know where I'd be without this forum!
I am a novice Access user. The idea is to build a visit tracking database. We are currently using excel to input appointments and outlook for statistics and patient data (as contacts). I am basically doing double the work.
The excel sheet is one week (Mon-Sun), the dates are in the top row; the names of patients are in t/he left-most column. The visit is marked by the name of the therapist. So, if John Doe has a visit from Linda on 08/25/12, there would be a "L" in the cell corresponding to the date and patient. There are also initial visits by the head therapist and there is a letter "IV" in the cell to indicate that.
I know that I can import the contact list from outlook and create a table and I know there's a calendar function.
Is there a way to 1. Create a form that will act as a weekly calendar (with each cell in a column having the same date, indicated in the top row) with connection/sync with outlook? 2. Be able to customize this form: add and delete patients in the left column. 3. Have the form count number of visits (# of total visits, # of total visits after the initial visit). In other words keep statistics of various sorts.
i want to implement pop up calendar available on this discussion forum. i match all the propoerties of 'MyDate' in my form with 'MyDate' in "Frm Trial" form of Popup Calender.mdb.
copied 'zsFromCalender' in Popup Calender.mdb.
now the problem is when ever i run the code, i am getting message
Compilation Error: Can't find project or library
and it is heighlighting intDayToday = DatePart("d", Date)
I have a database that has textfields / forms, what I would like to do is to add an option that when the textfield is clicked a calendar will appear and when the user selects the date in the calendar interface, it will insert the date for them.
I have a continuous form bound to a query. I want to filter this form with any date inputted into a text box through a pop-up calendar control. The default date in the text box should be Date().In the query, I set the criteria on Call_Date filled as follows but the form does not requery to return the expected data:
I am trying to make a database for my employees to count their attendance according to the days of the month and then get their salary. How to create a form that show the days of the month and then i can add the names of the attending employees.
Then Af lost from view and Bf appears in form view, with Blabel and Bcombox show the value of Atxtbox.
BUT if I try something like this in Bf when an event happens
Code: Me.Bcombox2.RowSource = "SELECT xx FROM tablexx WHERE yy = '" & Nz(Me.Bcombox) & "'"
Nothing will be shown in Bcombox2, because Me.Bcombox return Null. I know this from doing
Code: MsgBox Me.Bcombox
and the message box will shows nothing. The same thing also happen with the Blabel's caption. In form view, it shows Atxtbox value, but when I accessed its caption's value, it returns Null.
What I wanna do is:
1) Open Af, insert value to Atxtbox
2) clicked Abtn, pass the value of Atxtbox to Bcombox
I have a form with a query based bound combo. The same combo can be found on another form which can be launched from the original form. I want to update the combo on the original form with the same value as the combo on the launched form (after update).
In my after update event I have the following code;
[Foms]![form1]![Combo1] = Combo 2
This doesn't seem to work (I don't get an error but Combo1 doesn't update).
I need to have a field on my form to accept the user keying in the number in this fashion: 200200.1234 but as I currently have it set it accepts only the 200200 portion of this part number. I am a beginner so I am sure this is an easy question for some of the pros out there.
As a footnote the table design has the bin no. as data type - text and I added an input mask of 000000.0000;0; the field on the form is a combo box. Maybe that will make a clear picture for you.
I have a form that is intended to be used for both data entry and to edit/delete records.
The form properties are set to: AllowFilters = YES AllowEdits = YES AllowAdditions = YES AllowDeletions = NO DataEntry = YES
When a user opens the form from a menu they are given the choice for NEW, EDIT or DELETE.
If the user chooses NEW, the properties remain as above
If the user chooses EDIT or DELETE the form should open to a specific record as chosen on an interim form.
I have been using the following code to open the form for EDIT: stLinkCriteria = "[fldID] = " & Forms!frmsearchresults.fldID DoCmd.OpenForm "frmJobInfo", acNormal, , stLinkCriteria, , acFormEdit
However, the form continues to open in Data Entry mode.
I have a public variable that is set to NEW, EDIT or DELETE that can be used to trigger code...
Where should the form properties be set to make sure that the form opens correctly?
On a form i have a text box which holds the date that a file batch was taken to be processed. Each file holds the date of when the batch it originated from was taken. At the moment for ease of use the 'Default Value' of the text box is set to the batch's date.
I want to set it up so i can change the default value of the cell, so that when a new batch is to be processed the new date becomes the default value.
I am invisaging a button which brings up another form with a text box into which the new date can be put. when the form is saved and closed, the date recieved cell on the master form assumes the new default value.
Hi, I am a new member, who has been reading these postings for several weeks, hoping for a few quick answers, but no luck.
I have several issues on form size.
The first is that some of my forms open OK, but they change the form size of the form that opened them. My main form is maximized. When I open a child form, not maximized, the main form, and the open Access windows, such as the DataBase form and any open Tables, Queries, Reports, etc all become non-maximized.
The main form has the dimensions of the last-opened form .mde files, which leads me to believe that there is some Access option that crosses project or database lines. I cannot find it.
If I maximize the main form with the child form open, Access maximizes the child form also. If any form is open in Design View, the Properties window may be on top of everything. As the controls I need are seldom visible in these small windows, I spend much effort resizing windows.
What do I need to do to have a maximized "Switchboard" and smaller child windows/Forms???
I am trying to access the same query/report from different forms. For example I have a StudentAttendanceForm where users select a StudentID and then open the report. The query criteria for ID# is [Forms]!
[StudentAttendanceForm]![StudentID].
Can I access this same report from an event on another form. I'm thinking that if I can some how assign the StudentID from the form I want to access the report from, to the criteria on the StudentAttendanceReport Query, this is possible.
I am new to code but I am thinking something like:
SET [StudentAttendanceQuery]![StudentID] TO [StudentEnrollmentForm]![StudentID] Open StudentAttendance Report
The StudentEnrollmentForm is the other form I want to access the report from
You may need a crystal ball for this one. Let me know what other info you need.
In general I am finding I am copying and tweaking queries to meet specific user needs. For example some want to access a single student and other need "batch" reports.