the wizard does not have a button to open tables...i have been using this code to open forms...what needs to be changed in order to make it open tables?
Private Sub Command5_Click()
On Error GoTo Err_Command5_Click
Dim stDocName As String
Dim stLinkCriteria As String
I am at my Login Screen, I want it to return to the Login Screen if you select "NO" and Close the DB if "YES"
Here is my current code:
Private Sub Form_Close() If MsgBox("Would you like to EXIT the Database?", vbYesNo, "Quiting Database") = vbYes Then Application.Quit Else ??? End If End Sub
I am trying to open TabCtl86 forms in AddData mode if there are no records in a table for a user chosen form cboClientSearch. The tab control has three pages on it. At the moment I am getting an error saying "the form named '0' is either misspelled or doesn't exist".
I am using this at the moment; DoCmd.OpenForm Controls!TabCtl86, acFormDS, , , acFormAdd, acDialog
I currently have a button that opens a report. the report pulls from a query that has parameters set to "fromdate" and "todate". instead of using dates and parameters that pop up as blank text boxes, I would like to click the button, have a form pop up with a combo box to select all of the options available (currently 23 options) and then click a button to make a report that only displays the record (1-23) selected. I do not need any time constraints because as the databases get updated with more records, there would be more than 23 options to choose from.
I've searched this forum and have been reading for over 2 hours now and still can't find an answer to this (although I have learned a bunch of other stuff :) ). So I appoligize if this have been answered before...
When I open my form my tab control is off screen (above the current view). I can use the slider on the left to move back up to the top of the form and see them... but why can't I make this happen automatically. This happens because one of my tabs is quite long (has several sub-forms on it). I even tried putting an empty label box above the tab control but it doesn't seem to help. I've turned off the Auto-Center and the Auto-Resize for the form. I can't find anything that helps.
I am trying miserably to help a student use the Calendar Control to Open and Go to a specific record
I want to click on a specific date in the calendar in a form eg 09/03/06 and then open the "Bookings" form and go to the record with the field "Date" with the value 09/03/06
Help - I have created a control button in a form using the wizard and in design view it is at the top underneath all the headings (in the form header) but when I go to normal view it is not there. I have checked the properties and it is down as visible yes display always and transparent no. I am now stumped as to why it's not there - any help appreciated!! :)
when i select a button from the active control menu and want to use that button for either next record, previuos record. attach macro, print, i am sure that was part of the menu when selecting the button. i am not seeing that menu when i select the button from the active control could you please tell me why
I have a text filed on a tab control on a form. What I want to do is when the record is opened for viewing I am it changed the contents of that field. The reason that I am doing this is that I am auditing the changes in the database and any changes to any of the fields are recorded on the in this table along with the users windows username.
This would put an entry in the audit table for everytime a record was opened, even if no changes were made to the record and I want to use this information to create a last ten records form for the users to view there last ten records.
I am wandering if someone can help me out on this i have a thermal printer with it you get some ative x components to control the printer like for example what i am tryin to do is kick the cashdrawer which is connected to the printer, Now the activex button does work correctly when click but i have another command button which prints out a couple of pages odf information so what i am tryin to do is have abother cmmand button when clicked run the code and then calls or runs the active x button to open the drawer is there a way i can do is i tried using the call statement with the name of the activex but with no luck.
i would really appreciate it if someone can help me out on this. thanks.
I have form with a number of of combo boxes that filter a query that populates a list box. It's used to track inventory. I want to add a toggle button that when press will filter my query so that it shows only items with a value > 0 in the quantity field. And when not pressed it won't filter by that field at all.
I have a from that has information icons that opens a separate form to support users make the right choice on a form. With each information form users are able to choose "Yes" or "No" and then it returns them back to the form they started. I am having trouble setting the focus to the control the user original left the form from.
Form A Control 1 Control 2 Control 3
Form B Information for Control 1
Form C Information for Control 2
Form D Information for Control 3
For Forms B - C I would like the form to close, open Form A and then set focus to the control that the form was providing information for.For example, if you are on Form C and you make a decision, I want Form C to close, Form A to open and focus to be set to Control 2.
Code: Private Sub image5_Click() Dim sWHERE As String Criminal_Background.Value = "Yes"
a couple of months ago i found a celndar control replacement that Microsoft kindly provided. i have made a few mods that allow me to change the day/week etc. i would now like to tell it to open on a certain date. the reason is that on each of my client records i have 'Future Appointments'. i would like to be able to select a future appointment and click a button that then opens a form that includes the calendar and go to the date of the future appointment. the calendar controls the diary. whatever date the calendar is on the diary matches. so to change to the date of the appointment i need to change the calendar date.
that didnt work as the calendar does not seem to recognise it.
i am totally lost with this as i dont even understand most of the code that is behind the calendar, so i dont know what i am looking for to use to open it on a given date.
Hi, Can anyone advise why I am getting these two error messages in attached image. I am running Access 97. The first message refering to fDesign appears each time I have something open & click on the Design View icon. The only way I can go into design view for a form or table etc is when I am in the tab windows for the table or form highlight it and click on Design.
The second error message refering to the refresh appears whenever I try to run a refresh command button created via the wizard.
I have the same refresh command buttons on other forms I created earlier on & have no problems with them when run. If I create a new refresh command button on same form it works. But any new forms I create I get this error.
Can anyone please advise what I am doing wrong or which settings I should look at as I have tried most settings. http://users.tpg.com.au/roccob/fdesign.jpg Tks
I am one of the guys that the dept. drops 1k to send to the beginner through expert level courses for Access, so I ask patience as I am new to VB coding.
I am working on a database to track patient surgical information. I am using a toggle button to control "patient surgery site" visibility, depending on the number of sites associated with them. They are labeled Site A Site B, Site C
What I want is if a patient only has one site, I press the appropriate toggle (Site_A_Button, Site_C_Button, and Site_C_Button) and only fields pertaining to Site A appear. If they have 2 sites, I can press both of the toggles for A and B, but the C will remain hidden, etc.
Each toggle controls 3 fields - For the Site A button - Site_A, Diagnosis_A, A_Blocks_Check For the Site B button - Site_B, Diagnosis_B, B_Blocks_Check For the Site C button - Site_C, Diagnosis_C, C_Blocks_Check
The *_Blocks_Check also controls visibility for a respective fourth field - Site_A_Blocks , Site_B_Blocks , Site_C_Blocks
So far, I have A and B working just fine. By default, the toggle for A is set to -1 so it is visible by default. Site B and C are default 0. Both A and B work exactly as I want them to, however, site C does NOT. It has identical coding as B, however, it is visible by default (despite the "default 0") and the Site_C_Blocks visibility (controlled by the Check Box) also does not work properly. Here is the VB-
Private Sub A_Blocks_Check_Click() If A_Blocks_Check = 0 Then Site_A_Blocks.Visible = False End If
If A_Blocks_Check = -1 Then Site_A_Blocks.Visible = True End If End Sub
Private Sub B_Blocks_Check_Click() If B_Blocks_Check = 0 Then Site_B_Blocks.Visible = False End If
If B_Blocks_Check = -1 Then Site_B_Blocks.Visible = True End If End Sub
Private Sub C_Blocks_Check_Click() If C_Blocks_Check = 0 Then Site_C_Blocks.Visible = False End If
If C_Blocks_Check = -1 Then Site_C_Blocks.Visible = True End If End Sub
Private Sub Site_A_Button_Click() If Site_A_Button = -1 Then Site_A.Visible = True End If If Site_A_Button = -1 Then Diagnosis_A.Visible = True End If If Site_A_Button = -1 Then A_Blocks_Check.Visible = True End If
If Site_A_Button = 0 Then Site_A.Visible = False End If If Site_A_Button = 0 Then Diagnosis_A.Visible = False End If If Site_A_Button = 0 Then A_Blocks_Check.Visible = False End If
End Sub
Private Sub Site_B_Button_Click() If Site_B_Button = 0 Then Site_B.Visible = False End If If Site_B_Button = 0 Then Diagnosis_B.Visible = False End If If Site_B_Button = 0 Then B_Blocks_Check.Visible = False End If
If Site_B_Button = -1 Then Site_B.Visible = True End If If Site_B_Button = -1 Then Diagnosis_B.Visible = True End If If Site_B_Button = -1 Then B_Blocks_Check.Visible = True End If End Sub
Private Sub Site_C_Button_Click() If Site_C_Button = 0 Then Site_C.Visible = False End If If Site_C_Button = 0 Then Diagnosis_C.Visible = False End If If Site_C_Button = 0 Then C_Blocks_Check.Visible = False End If
If Site_C_Button = -1 Then Site_C.Visible = True End If If Site_C_Button = -1 Then Diagnosis_C.Visible = True End If If Site_C_Button = -1 Then C_Blocks_Check.Visible = True End If End Sub
Now I know this is probably sloppy coding, but it was the only way I could get this to work properly at all, so feel free to critique as well.
I want to actually add additional sites (Site D and Site E), but not until I can figure out why the problem is with just A B and C.
I apologize if this seems a bit confusing, but if anyone could help out, I would be most appreciative!
How to create a Radio Control Button that selects the records with the artists and names of artists for cd's and print a report based on those autoreport records?
I am trying to create a form with control buttons on the form for all the letters of the alphabet. When a user clicks on the button for A, I would like them to only see records that starts with an "A". I assume that I should apply an event to the button's OnClick-property, with a filter, but I can't seem to get it right...any suggestions would be very much appreciated!
Hello everyone, hopefully you can help before I go crazy. i have been working on this problem now for 3-4 days.
I have two forms (ID-Injury Choice) and (Treatments). In both forms I have the control (InjuryID). What I am trying to do is when I click a button on the ID-Injury Choice form, the InjuryID control value is automatically transferred to the Treatments form.
For the life of me I can figure out this simple act. Any help would be appreciated.
I am working on Data entry form where a user can enter the details in the form and save and go ahead, its a single form in default view. I want to provide an edit button with navigation control in this form only where they can edit their wrong record for update.
Private Sub btncard_Click() Dim stLinkCriteria As String DoCmd.RunCommand acCmdSaveRecord stLinkCriteria = "[jobref]=" & "'" & Me![jobref] & "'" DoCmd.Close DoCmd.OpenForm "k_job_card", , , stLinkCriteria End Sub
this button code opens the k_job_card form.
the form opens and says 'Record 1 of 1, (Filtered)
i have a control on the form that opens.. and i am simply trying to assign a default value to that control..
it is a textbox.. for my jobtype field (text datatype)..
is there any particular reason why i cannot assign a default value to a control if it has been placed on a form that has been opened using a form filter?
this is how the Form Data tab is set at the moment..
When the user enters the quantity they require into the orders form I would like to deduct it from the quantityinstock field in the products table.
The above query does work if you add the following code to the beforeupdate event of the orders subform: If Me.NewRecord Then DoCmd.SetWarnings False DoCmd.openquery "qryupdateQuantityinStock" DoCmd. Setwarnings True End If
Although I wanted the query to run from a button (confirm order) on the order form so that the user decides when to deduct the stock.
I cannot put a button onto the orders subfrom where the query should run from and if I place the code on a button on the main orders form it only deducts one order (one product) and not all products on the order.
Can you help me find a way to run the query from a button?
I have read through the threads and found lots of information on stock control, although have not yet found anything similar to this problem. I understand that this is not the correct way to do stock control, although my database is for academic purposes and only requires a simple stock control system.
Any help would be greatly appreciated (sorry for the long post!). :)
