Modules & VBA :: Creating A Button To Allow Edits On A Form
Nov 4, 2014
So I have a form that allows me to view the information associated with a specific record. Within this form is also a subform that shows additional information about the record from a junction table. I want to create a button that allows me to edit the information on both forms.
I am creating a combo box with a button. In the below vba code, I am getting the string from the combo box. Then, I am trying to use SQL to the corresponding distro lists in the table (same row). This VBA code below is getting a Run-time error '438' Object doesn't support this property or method and it points to the SQL statment in the debugging screen.
Code: Private Sub Command11_Click() Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Dim SQL As String Dim vFld As Variant
I am trying to create a button that opens up a webpage. I get how to create a hyperlink on a button. The problem is, I need to open a specific page depending on the information in a text box.
The text box displays the tracking number for the current record. That number is populated automatically via a control source. The problem is that I need to open different web pages depending on the tracking number displayed. For example, UPS has a specific start to their number (1ZX....). Other trucking companies have a specific format, also.
So how do I tell it to look at the tracking number and then open the corresponding web page?
I have access table that stores details as attached. Just to give an example how data is stored , I copied data from Access table to excelsheet. Now I would like to create a report that will run when a button is clicked on the form and the vba code should display the last 7 dates from todays dates in the report along with all the data and colour the record Green,Amber and Red depending upon the Update Date and Target Date. If the Target date exceeds then that records should be coloured "Red" and if todays date equals to Date then the record should be amber and if greater than Date but less than Target Date then it should be Green.
So the report should display the last 7 dates records from todays date and the appropriate color of each record to let everyone know if its under target, meets target etc.
I am looking for a way to enable a user to fill in a number of fields on a form press a button(CreateButton) and duplicate the records how ever many times is stated in a text box(TxtQty). I also need this to increase the serial number by the amount of times stated in the text box.
There will need to be another text box (TxtNextSerialNumber) stating the next first available serial number
For Example: TxtNextSerialNumber = AD-Oracle-00010 TxtQty = 5 Press CreateButton to create 5 records TxtNextSerialNumber = AD-Oracle-00014
5 new records created with the below fields duplicated and the above happening.
I will then need a message box informing the user of the serial numbers created:
'You have created serial numbers AD-Oracle-00010 to AD-Oracle-00014'
Table Name: ADOracle Form Name: ADOracleTestData
Fields Names: CustomerName: Duplicate PartNumber: Duplicate OrderNumber: Duplicate OrderDate: Duplicate HoseKit: Duplicate Returns: Duplicate Comments: Duplicate SerialNumber: + the amount shown in TxtQty starting on next serial number available.
On the navigation buttons at the base of the form there is a search facility where I can type a record id but I would like to get rid of that and search records either by turning the ID field into a searchable box or by adding a button where I can press it and get a search box up.
I've been able to navigate a lot on my own, but there is one issue I cannot seem to resolve. I have 1 form and 1 table. I have the form set up so that you can enter data, and then press a button, and it will "save" and refresh the form for a new entry. However, I want to be able to pull that entry back up in the form, and fill out additional fields later on.The form is set to data entry = yes because I do want the form to open up as brand new each time.
To sum up my question. I want a text box and search button at the top of my form. When you type an ID number in the text box, and then press search, I want access to populate my form with the information in my data table associated with that ID number.
If I type in the number 1234 and hit search. I want my form to autopopulate with the data in the row for ID number 1234 (all the fields I have already populated). So by searching 1234, the name, phone, background info, etc that is populated in the row will appear.
We have 3 different sizes 1x3 2x3 4x6..I want to make 3 separate forms that have multiple sections that can be chosen.Upon Request I can Supply each separate Label with arrows to show what fields need to be changed for each Sales order.For the 1x3 Labels we Make:
1. ETL - We change model # - We Change if the Labels Says Dry Damp or Wet Listed.
2. MISC. -One Plain Txt Box that can be edited in the center
For the 2x3 Labels:
1.Box Labels -Customer -Item -Sales Order# -Shipping Location (For the Box Labels I was thinking I have a Table that holds all this data and all I would have to make is a Query then a form)
2.ETL -Change Model -Wet Damp or Dry 3.CSA -Change Model -Change the Wattage (3 Different Places) -Wet Damp or Dry 4.MISC -6 Text Boxes (From top to Bottom not side by side)
4x6 Labels: 1.HID Box Labels -Item -Watts -Color -Medium or Mogul Based
Greeting, I am still struggling with my sub-form. Have managed to prevent edit by using the form properties. However I have some fields which have to be updated after the form has been closed. I tried putting the following code in the (Before Update Event) of date issued field for instance.
If Me![DateIssued]=Null then Me![DateIssued].Locked=False end if
Needless to say this didn't help.
I have some fields which cannot be filled in until a later date. These are job records so I have date open, Technician name date completed plus a whole herd of other stuff which has to be filled in as the job progresses.
Any help will be most appreciated, Brian. Zimbabwe
Have the data settings for the form all allow=true And tried the VBA allowedits=true on form open but the form is still locked. Any suggestions about why? Is updating two tables from a two-table query not allowed or??? Thanks,
I'm creating a database about Vets and I need to make a button on my menu form that will open something like message box that will allow me to type in something (in my case Customer ID) which will then apply the filter on the customer form and allow me to do edits. I have only done the macro that will open the customer form but can't figure out how to do the filter part.
I thought "Undo" was only available while in the current record.Here were my steps:
1 - Loaded form that shows 1 record per form page. 2 - Edited a record 3 - Moved to another record with status bar nav arrow 4 - Verified my edit was in the underlying table 5 - Moved back to the original record, again using status bar nav arrow 6 - Clicked my "undo" control and the original data appeared in the form 7 - Moved to another record 8 - Verified my original data was now back in the underlying table
I have a simple split form with datasheet on the bottom and a couple of comboboxes (unbound) on the form header which the user can use for filtering the data. When some users open the form the allowedit property of the form is set to false, because those users can only view the records. But the result is that also the comboboxes cannot be set, hence no filtering!
I am wondering if anyone can recommend shareware or free ware Utilities/code to make Form & Report Creation/Edits easier?
I'm thinking of something like Cub Editor http://www.peterssoftware.com/ce.htm or SmartForm+ http://www.aadconsulting.com/smtfrmplus.html
but alas .... I can't do anything that will edit the registry (company politics says Access and it's Wizards is plenty 'perfect' http://www.dbforums.com/images/smilies/frown.gif maybe I will convince the powers that be but not in short time)
Also the code (or forms / reports built) need to work on Access 2000, 2002 and 2003. or well-commented on how to modify as I'm only modest with writng VBA code.
I have been putting together code from bits I have found online that will create an appointment in Outlook from a date field in my form.
My form has a number of dates and I need to create appointments for each one. Is there any way I can incorporate that into the existing code? Or will I need to add command buttons for each date?
The date fields are: [Date Template Made] [Date of Top Cut] [Date of Bowl Cut]
Code: Private Sub CreateAppt_Click() If Me.Dirty Then Me.Dirty = False End If If Me.chkAddedtoOutlook = True Then MsgBox "This appointment has already been added to Microsoft Outlook", vbCritical
I would like to make clickable labels on my form, so if the user has any questions about the field, clicking on the label would bring up a message box that would give them more information. I know how to write onclick events one by one for every label, but there are a lot of them, and I feel like there has to be a better way.
I put the label names, and the text I'd like for the message box in a table, and I'd like to have a module that will allow me to click on a label, and have the right text come up.
I've researched ways to do this and have come up with nothing. The farthest I've gotten is an array tied to the form open event that just displays all the message boxes from first to last, one after the other. I believe that's on the right track, but is not a workable solution as is. I need to be able to tie the message box to the actual label the user clicks.
I have a subform in datasheet view for tracking calls from clients. The Client Name is a combination of the first and last name. I want to create a text box that allows me to start typing in the client name and it will filter for only those Clients that match. Currently, I have the following code (below) for the textbox, however when I start typing in a client name all the clients disappear from the table. The client name is in a combo box so I don't know if that is making a difference.
Private Sub Text3_Change() Dim strFilter As String Me.Refresh
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
creating a VBA that will allow me to search for a record in Table A, and once the record is found, allow me the option to add that record to Table B. Is this possible to do if Table A and Table B are not formatted the same (i.e. one has more fields than the other)? In summary, creating a VBA that will allow me to search in one table and once the correct record is found, allow me the ability to add it to another table.
what would i write in the onclick private sub of my 'btnCancel'.i need it to do a number of things depending on whether there is data entered in the form fields or whether its completely empty, is there is data being entered in some fields and the cancel button is clicked it should ask whether the user wants to lose all current data as a msgbox, or if there is completely no data in any of the fields and the cancel button is clicked it shoud take me make to the main form where the rest of my buttons work, which is "inmode normal"
i have a form with subform in it, and when i press the save button in the main form it saves only the records in it but it wont save the records in the subform
i found on microsoft this code DoCmd.Save acForm, "New Employees Form"
how can i use it to save both the main form and subform together