Forms :: Multiple IF Functions With Button Click
Mar 19, 2013
Multiple IF functions in a form. I have a button that on click will print a report if certain fields in the form have data in them. If not, a msgbox pops up to let the user know that data must be filled and then sets focus on whichever field needs data in the form. There are many IF statements, and they all work fine until I get to a certain one then the remaining IF does not continue.
Here is some code:
If IsNull([Alert]) Then
MsgBox "An alert time is required." _
, vbCritical, "Data Required"
Me.Text591.SetFocus
Exit Sub
Else
If IsNull([Enroute]) Then
[Code] .....
The next IF argument will bring up the msgbox when there is no data, thats great. However, when the user fills in the field and continues with the button click to print the report, the button does nothing.
Here is the next IF, the one with the problem:
If IsNull([Combo608]) Then
If IsNull([Combo620]) Then
MsgBox "You must select either a planned event or an emergency event." _
, vbCritical, "Information"
Me.Combo608.SetFocus
Exit Sub
Else
How to get it to work, to continue with the remaining IF arguments after this one (there are several more)?
Or are there a better way to code this and not have the many IF arguments?
View Replies
ADVERTISEMENT
Sep 20, 2014
I made a database that in one of the forms, I like by clicking on a button the user be able to select 5 excel files with different file names (in the same directory) and then based on the imported file's names, it be stored in 5 different tables.
At the moment by using the bellow code, I can import multiple files (with the same formats) only into one table . My vba code comes as follow:
Function GetAllFiles()
Dim fd As Object
Dim strFilter As String
Dim lngItems As Long
Const msoFileDialogOpen As Long = 3
Const msoFileDialogViewDetails As Long = 2
[Code] ....
View 4 Replies
View Related
Jul 25, 2013
I want to run multiple SQL commands on click of a button. I have these three command,
CurrentDb.Execute "INSERT INTO UserMadeDeviceT(Product, ORESector) " & _
" VALUES ('" & Me.D_NewDeviceTxt & "', '" & Me.D_ORECmb & "')"
CurrentDb.Execute "INSERT INTO UserMadeDeviceT (RatedKilowattPower, KilogramWeight)" & _
" SELECT RatedKilowattPower, Weight FROM UserSelectedComponentT " & _
" WHERE [TotalComponent] = '" & D_ComponentNameCmb & "'"
CurrentDb.Execute "INSERT INTO UserMadeDeviceT (Cost) SELECT SUM (EuroCost) FROM UserSelectedComponentT"
all of these work indevidually and return the correct value but the add three rows to the table. How can I combine these three commands into one so that it will only add one entry?
View 8 Replies
View Related
Oct 19, 2004
I want to clear all the checkboxes in a certain field by using a command button on a form. I could use some help!!
View 3 Replies
View Related
Oct 29, 2014
I have a table with many records, using a form with an update button click event, I would like to update ALL records where the Item in the table = the Item in the form.
There are 6 checkboxes and 6 text boxes that will need to be updated, but right now I am just trying to test if i can even change one text box to keep it simple. I have tried to start by using this:
Code:
Dim mySQL As String
Dim ItemNo As String
Dim SO As String
mySQL = "UPDATE BT200 SET Part = '" & SO & "' WHERE Item = " & ItemNo
DoCmd.RunSQL mySQL
So every time i run this command button, it gives me a prompt "You are about to update 0 row(s)". Nothing gets updated at all, I am clearly missing something vital here.
View 7 Replies
View Related
Jul 31, 2014
I work for a company that manufactures home appliances & electronics. When those products fail within the warranty period, we are obligated to repair the units for the customers.
We have around 200 factory technicians who make those repairs. Each tech is able to make approximately 8 repairs each day. We have a dispatching system that assigns the repairs to the techs based on their availability each day. But the problem is that we have to manually enter and adjust the schedule for all 200 techs every single day, and this takes a lot of time. And of course technicians get sick, take vacation, etc, so we have to adjust the schedule so no techs will be assigned calls when they're off.
The problem: For example, currently when a technician takes off for 2 weeks, the user has to enter 14 individual records for the tech, which is somewhat time consuming. What I need is to program a button click event to determine the two dates (startDate & endDate) and append multiple records from one single entry in the form for each date in between and including the two date fields.
I know I'll probably need to create a loop that will loop through the two dates on the form and append a record for each day, so I can then cross reference the dates to the master schedule dates to make sure that no availability is opened for the techs taking time off.
View 3 Replies
View Related
Jun 7, 2013
Making a small database, Got 1 Table.
1. ContactDetailTable
Got 3 forms.
1. ContactIDForm
2. ContactInfoForm
3. NewContactFrom
In ContactIDForm it contain 1 textbox name 'TextBox' with Button Name 'Btn'
In ContactIDForm there is only 1 Text Box ContactIDTextBox and 1 Button. User Enters ID in TextBox and On Button Click Event it should check data from TextBox in Table name (ContactDetailTable) in field ContactID and if there is record matching, ContactInfoForm should Open else NewContactForm should open with ContactIDTextBox value in it.
View 10 Replies
View Related
Jan 14, 2014
I am very new to Access and have virtually no experience with vb, I'm trying to build a customer database with some forms that enable myself and a couple of others to keep track of customer contact.I have designed my form with 5 buttons at the bottom of the page with different future date values, I have made a field in my database called FollowUpBy and i would like to be able to click the buttons and have access take today's date plus the relevant follow up time-scale and insert that into this field. Also but on a separate note, I have the yes/no box for follow up required is there a way to make the buttons at the bottom and the date picker unavailable (perhaps shaded or crossed out) unless this box is checked?
View 1 Replies
View Related
Jul 3, 2014
I have a form listing out a bunch of clients. There is a button associated with each client that pulls open a new form with additional client information. There is information that is calculated on the backend and stored in the database when a user is inserted or different fields updated (i.e. there are reports that are due different time frames after the clients admission date. I automatically populate the database with those dates once the clients admission date is updated).
The problem I am having is that when I enter a new client or update a current client with new information and then click the button to go to their details page, those auto-populated dates are not populated. I am calling a subroutine that is within a module when the button is clicked. The subroutine works fine at other instances throughout the application so I know there is no issue with the code. I even call it if they click the close button, but before the information is auto-populated, I had to run a Me.Requery on the close button. I think this is because the records are not actually being updated in the database. I even have a DoCmd.Save acForms, "Clients" command before running the Call updateDatabase subroutine, but that doesn't do the trick. I can't run the Me.Requery after the click of the details button because when I do that it always opens the details form to the first ORDER BY record. I think that I need to update the selected record and re-call it in order for this to work.
View 5 Replies
View Related
Jul 3, 2014
What vba code would I use in the on click event of a command button to make another button appear?
View 10 Replies
View Related
Nov 7, 2006
Often I use Labels as buttons due to the fact I can colour them the way I want, and use the on click event to trigger code.
The code below however works for a command button, but not a label button.
DoCmd.OpenForm "frmdatetime"
Do While Forms!frmdatetime!OKFlag.Caption = "False"
DoEvents
Loop
When this code is run by clicking on a command button, it works fine.
If run by clicking on a label, frmdatetime opens, but the mouse will not work on either of the 2 open forms unless you go down to the windows task bar, jump onto another window, and back onto frmdatetime.
If I remove the loop with the DoEvents in it, then the problem does not occur.
Can anyone enlighten me as to why this behaviour occurs.
Thanks
Richard
View 4 Replies
View Related
Nov 25, 2013
I have a continuous form with a button 'Cmd1' & a textbox 'txtMail' which is set to visible no.
When the user clicks Cmd1 - then txtMail becomes visible.
I can do it using vba on the buttons click event but when it executes txtMail for all the records become visible.
How do I use a button's click event on the form's current record - Private Sub Form_Current() so that when the user clicks Cmd1 on the current record only txtMail for that record becomes visible.
I'm using Access 2007.
View 10 Replies
View Related
Jul 2, 2014
In my form, when a button (cmdContactedToday) is clicked, a text field to the left (txtDateContacted) is updated with today's date.
However, before this happens, I want the the current date in txtDateContacted to get stored in another (hidden) text field (txtPreviousDate)
Then when another (undo) button (cmdUndoDate) is clicked, the date in txtDateContacted should get replaced with the date in txtPreviousDate.
I've made it as simple to understand as I could.
View 14 Replies
View Related
Feb 24, 2015
Here is the scenario:
Form 1 - Data entry for a new project
Form 2 - Data entry for a task associated with the project in the Form 1
Button on form 1 that opens Form 2.
What I am trying to do:
Use a combobox on Form Two to choose the Project entered into Form 1, so I can capture the Form1 PK as a FK on Form 2.
Here is the problem:
Refreshing the record on the button click so that the new option entered into Form 1 shows up in the combo box on Form 2.
Full disclosure:
I'm not much good at VBA so I have been trying to do this by customizing the button macro. I have tried Refresh, and Requery, but I can't seem to get it to update the list in the combo box.
2 questions:
1. How can I get this accomplished?
2. Is there a better way to get this data into the table than what I am trying to do?
View 3 Replies
View Related
Apr 16, 2015
How to insert in my table 8 month by using 1 click like this
row one 1/2/2015
row two 1/3/2015
row three 1/4/2015
.
... row Eight 1/9/2015
View 4 Replies
View Related
Jun 20, 2013
From formA I click on button cmdFormB and I open FormB. From formB I click on button cmdFormC to open formC.
Is there a way to open forms formB and formC by clicking on a button on formA?
View 5 Replies
View Related
Oct 14, 2013
So I have a continuous form and I have a button that is pressed when a job is released and it record a date in a field. I wanted to turn that button to disabled after pressed but after lots of reading found that it couldn't be done in a continuous form due to it disabling all buttons . So I decided to just make the code populate the field only if it was a null value so that it wouldn't overwrite a value if someone pressed it more than once. Well the null is my downfall in all this. I cannot make it compare and populate the date when the button is pressed. I have tried all I can find on the net and all I can think of.
View 11 Replies
View Related
Jul 17, 2013
How to open a search form with a mouse click on Button_Search
My idea is to pop up a form where user can enter the search text and select the required name and get back to the old form with all details about the entry. This form alone is workign fine. I want to call it in a mouse click. and pass the data back to old form.
View 7 Replies
View Related
Aug 25, 2014
I get a bizarre situation while I am using MS Access 2010 to select values with Combo Boxes on a form, i.e.:
* After I select one or more values from the drop-down list of a Combo Box, there is no response when clicking OK button using the mouse. It is stalled. I need to do the process again and then the mouse-click on OK button could work: click anywhere outside of the combo box, re-select the values, click OK Button, and done.
* However, I can always use Enter key (on the keyboard) upon OK button to complete the selection.
* The values in the drop-down list of the Combo Box were entered manually.
What is wrong with the combo boxes on the form? Why do I need to do twice to complete the selection using mouse-click? Why the keyboard-click ('Enter') can be always OK but not for the mouse-click?
View 8 Replies
View Related
May 19, 2013
I have 6 text box on the form which are unbound. Now we enter the entry in these boxes then I have update button on the form to update the record in table. all fields should be clear after update the records in table so I can enter the new entry.
I am using ms access 2007. Is there any liberary to add?
Form fields
text1
text2
text3
text4
text5
text6
Table fields
emp_id
batchid
training_name
training_hour
start_date
end_date
View 13 Replies
View Related
Jun 26, 2014
I have a command button using this code:
If Me.Setfilter.Caption = "Search By Hedging Program" Then
Me.Filter = "Hedging Program"
Me.FilterOn = True
cmd.Setfilter.Caption = "Don't Search By Hedge Program"
Else
Me.FilterOn = False
cmd.Setfilter.Caption = "Search By Hedging Program"
End If
Hedging program is the column from the table I am trying to filter, it is a yes/no column. I want it to return all yes values in my query if it says search by hedging program and if it says Don't search by hedging program I want it to disregard the filter. I also have it set so that when I click the button it changes the caption from one to the other. So I don't know if I really need the cmd.setfilter lines because they may do the same as my command button on click function.
View 14 Replies
View Related
May 24, 2013
I currently have a database where new records can be entered in a "New Part" Form and Records can be viewed(but not altered) in a "Part Search" Form. The forms are the same except one is allowed to edit. I have also created another form where I am trying to search the "Part Search" Form via a tracking number. I want to have a text box where users enter a tracking number then click the button to take them to the record on the "Part Search" Form.
View 2 Replies
View Related
Nov 12, 2014
I need to return a folders directory to a text box on my forms record called Files_Directory when i click the Browse command button... The folder will have more folders within it along with documents all relivant to the folder selected, hense the need for just the folder directory rather than a file.
View 12 Replies
View Related
Oct 12, 2005
I have a query that contains a field with 4 codes that I need to replace with values.
Example:
Replace([CE020]![LNCH_FLG],"0","None") Replace([CE020]![LNCH_FLG],"1","Free") Replace([CE020]![LNCH_FLG],"2","Reduced")
Replace([CE020]![LNCH_FLG],"3","State Free")
Replace([CE020]![LNCH_FLG],"4"," Paid")
I get an invalid syntax error, I know if I was to have one Replace function it will works fine, but I’ll still have 3 code to convert.
Any Ideas?
Thanks
--pete
View 7 Replies
View Related
Sep 16, 2004
I have a problem with using two Sum() functions in a multiple join query. It is an Access database that is accessed by VB6.
These are my tables with some sample records:-
Payment(payID, payCustID, payDate, payAmount)
1, 4, 30/09/2004$5.00
2, 4, 30/09/2004$120.00
3, 4, 30/09/2004$20.00
Customer(custID, custName)
1, steven
2, julie
3, blake
4, kate
Invoice(invID, invCustID, invDate, invAmount)
1, 1, 10/09/2004, $50.00
2, 2, 11/09/2004, $50.00
3, 1, 11/09/2004, $150.00
4, 3, 10/09/2004, $20.00
5, 4, 10/09/2004, $5.00
6, 4, 11/09/2004, $120.00
This is my query:-
SELECT DISTINCTROW Customer.custName, Sum(Invoice.invAmount) AS SumOfinvAmount, Sum(Payment.payAmount) AS SumOfpayAmount
FROM (Customer LEFT JOIN Invoice ON Customer.custID = Invoice.invCustID) LEFT JOIN Payment ON Customer.custID = Payment.payCustID
GROUP BY Customer.custName, Customer.custID;
Result:-
custName SumOfinvAmount SumOfpayAmount
blake $20.00
julie $50.00
kate $375.00 $290.00
steven $200.00
The resulting SQL query returns incorrect invoice and payment totals for Kate. The Sum() function has duplicated. Can anyone tell me how I would change my query to fix this problem?
Thanks Steven
View 1 Replies
View Related
Dec 11, 2013
Any way to use multiple count functions in a query with their own individual filters without affect the others?
For example:
SELECT [E&I Table].System, [E&I Table].DeleteRecord, Count([E&I Table].[Status#1]) AS [CountOfStatus#1], Count([E&I Table].[Status#2]) AS [CountOfStatus#2]
FROM [E&I Table]
WHERE ((([E&I Table].[Status#1]) Like "ITR Rcv'd by QA" Or ([E&I Table].[Status#1]) Like "Completed" Or ([E&I Table].[Status#1]) Like "Ready for T/O" Or ([E&I Table].[Status#1]) Like "Reviewed by JVV") AND (([E&I Table].[Status#2]) Like "ITR Rcv'd by QA" Or ([E&I Table].[Status#2]) Like "Completed" Or ([E&I Table].[Status#2]) Like "Ready for T/O" Or ([E&I Table].[Status#2]) Like "Reviewed by JVV"))
GROUP BY [E&I Table].System, [E&I Table].DeleteRecord;
I am trying to count in each column of the E&I table with criteria using WHERE but the problem is when you have more than 1 WHERE it affects the other columns as well... tried a bunch of different ways and I am now having to create seperate Queries than combine them using another Query...
View 6 Replies
View Related
