I have a code which sends some keys to oracle and performs some actions. What I want is, I need to check a screen in Oracle and then continue or stop, based on the screen. So, I need a msgbox with a yes or no. Is it possible that a msgbox with yes/no be popped up on the screen or oracle? I understand that it can happen on excel screen.
View 2 RepliesI need to connect to an Oracle 10g database using vba. Google has loads of snipets of code but I don't seem to be able to get it to quite work correctly.
This is what I have:
Code:
Sub ADOExcelSQLServer()
Dim Cn As ADODB.Connection
Dim Server_Name As String
Dim Database_Name As String
Dim User_ID As String
Dim Password As String
Dim SQLStr As String
[code]....
When the connection attempts to open (red code) I get the following error:
Run-time error '-2147467259 (80004005)':
[Microsoft][ODBC Driver Manager] Driver's SQLSetConnectAttr failed
My best guess is that I do not have the correct drivers installed... If this is the case which drivers do I need and where can you get them from?
I have a report that I import from an Oracle database.. My problem is "Sometimes" Column "L" is there and sometimes it isn't. It is a blank column that the system uses as some sort of place holder & I need to test if its there, then delete. See example below ...
View 20 Replies View RelatedIt says that she has to install excel when she tries to open a folder from oracle. I tried to associted to excel but it did not work.
View 2 Replies View RelatedI'm generating a report on an oracle based software which then I export to Excel. Unfortunately the dates come out very messy. I've included an .xls file with the dates. They are untouched. As you can see, some are left aligned some right aligned. Nevertheless, all dates are of the format dd/mm/yyyy with zeros (0) automatically omitted - this is how they're shown on the Oracle report, I've changed nothing.
I want all the dates on column B to have the same format as the date on cell D3. Of course, the format must remain dd/mm/yyyy.
Please feel free to ask me questions if any of this is confusing.
I am currently querying data from an Oracle database through MS Access and then passing it to Excel for the user to work. Not all users have MS Access so I would like to automate the data pull from Excel
Database information:
The DNS is: a150
The Tables are:
MFE.Items
MFE.Vendors
Sample SQL string would be:
I Have a workbook which consists of 50 worksheets and i use Edit query window to pull the data from oracle on all these sheets. We run this once in a month. I have to go to every sheet and execute this code which is time consuming and i have to change the date value everytime. macro that can execute this process at once and we should give the date only once.I use OLEDB driver to connect to oracle.
Attached is the Command line code.
Select protocol, patient, Page, (date_indexed) Indexed,(first_entry_date) FirstPass,( second_entry_date) SecondPass,trim( modified_date) modified, trim(CRF_ERROR_COMMENT) Comments from JJA38377_96_crf where date_indexed>='1-May-11' and date_indexed
I am running Excel 2007 and connecting to an Oracle DB.
I have created a VBA macro to connect to an oracle DB and retrieve data then place it in a table. The code works, but it uses DSN entries which are specific to my computer. I want to be able to distribute this Excel spreadsheet to others in my company and have them be able to click one button and update the data. I figure the most logical way is to connect to the DB using an IP address that should work for anyone on the intranet.
How do I modify the connection info below to have it connect via IP?
I tried "Data Source = 10.1.1.10orcl" and "Data Source = 10.1.1.10", both of which VBA dislikes.
Here is what I have now:
Code:
Sub Create()
Dim Servername As Range
Set Servername = ActiveWorkbook.Sheets("Summary").Range("B16")
Set StartDate = ActiveWorkbook.Sheets("Summary").Range("B3")
[Code] ..........
I am attempting to use MSQuery to extract records from an Oracle transaction table by passing user defined Date/Time field parameters.
So if the date range for the query is for Fiscal Period 10 of this year, my parameters would be:
[StartDate] = #2002/10/1#
[EndDate] = #2002/11/1#
Daily transaction activity is in the early morning hours ending at 6:00AM so my Criteria is:
Between [StartDate] + .25 and [EndDate] + .25
Note: The +.25 represents 1/4day = 6hrs (6:00AM)
If I use the hardcoded Start/End Dates, my query works fine, but if I try and
pass the dates as parameters I get "ORA-00932 inconsistent datatypes" error. And I can't seem to pass the Date/Time combination successfully....
If anyone has encountered a solution for how to pass a Date/Time Paremeter into MSQuery I would love to hear how you did it.
I'm starting to pull my few remaining hairs out!
[ This Message was edited by: Tuner on 2002-11-07 12:23 ]
[ This Message was edited by: Tuner on 2002-11-07 12:28 ]
[ This Message was edited by: Tuner on 2002-11-12 12:51 ]
One of my engaging tasks at work is to disable/enable general ledger accounts (accounting speak) in our Oracle ERP application using one of their forms.
In this case it would be a list of gl accounts and to the left of the gl account would be a check box that I can click.
Checked means enabled.
Blank would mean disabled.
If I have a list of currently enabled gl accounts that are to be disabled (unchecked) then I have to do so one by one. I can click with the mouse on the checkbox or I can using the keyboard use the space bar followed by the down arrow key and repeat. As fun as that sounds sometimes I'm faced with dozens or hundreds at a time.
Therefore my question is can I automate this using VBA? or any other tools out there.
Using Excel Office 2007, Oracle ERP (9.5.8) I think - it's old
I'm having some issues importing external data from an Oracle 9i database.
Here is what is happening:
I am initially able to import data from the table I want to into Excel.
I do this through "Data -> Import External Data -> New Database Query" where I have my .ORA data source. I'm able to log in using my user and password and import the table. My problems come after I import this first set of data.
If I try to "Edit Query…" I get an error box that says "[Microsoft][ODBC Driver Manager] Driver's SQLSetConnectAttr failed".
If I try to "Refresh Data" I get two error boxes. The first is just: "[Microsoft][ODBC driver for Oracle][Oracle]" and the next says: "[Microsoft][ODBC Driver Manager] Driver's SQLSetConnectAttr failed". It then prompts me for the User name and password of the DB I'm connecting and after I enter the information, I get the same two error messages.
Also, if I attempt to establish another connection following the "Data -> Import External Data…" steps I run into a different problem. Upon entering the information for the User Name and password prompt I get two error messages. One says "!" and the next box says "Couldn't read this file". Once I click "OK" in those boxes, the Microsoft Query window automatically opens with nothing in it.
I can't seem to figure out why I can initially pull down data and then cannot succeed afterwards. I'm unable to connect to the DB I have through Excel until I completely closed all Microsoft Excel instances.
I also use this data source in Microsoft Access without any problems.
I currently have an Excel file with the ODBC connection and using my own SQL. Doing it this way would require the super user to go into each sheet then to the SQL each time to change the dates. I know there is a way to allow them to simply change the dates in cells H1 (or H1 and H2) then refresh data and whoolaa it would be updated.
My goal if possible via this board and all the knowledge available would be to have a spreadsheet allowing a super user to change the date in Cells H1 and H1 & H2 on sheet Tst1 and have the data returned to sheets (Tst2, Tst3) based on my own SQL statements.
Here are some parameters that I think you might need to know.
(And as you may guess I do not have much VBA experience so if at all possible use my naming convention shown below. and feel free to write for a first grader.)
User Name (not actual): "UID"
Server (not actual): "DEV"
Password (not actual): "PWD"
File Name: Excel_ODBC.xls
Sheet Name: "Tst2"
"Tst3"
Output Cell: "A1" for both sheets.
Oracle table name: UAB .................
How do you add icons into a message box. ie a warning triangle etc.
View 3 Replies View RelatedSo i would like a message box to appear upon opening that asks the user "Are you sure this is the most recent copy of this workbook?"
Click Yes would simply close the message box and allow user to continue
Click No would close the workbook immediately without saving and also without prompting to save ( i have =TODAY() function within the workbook so the workbook will instantly be different from the current saved file and will for sure prompt the 'Exit without saving' warning box
Office 365 is my setup if that makes a difference.
I need to trigger a message box if 2 conditions are met: A1>1 and A2>1 Message "Limit Exceeded".
On searching I've found some code but can't get it to work;
Option Explicit ....
I have the following spreadsheet
Column A-------------Column B------------Column C
Invoice No.-----------Part Number---------Classification
8200001733----------LX+150SV-----------9010.90.9000
---------------------SE+68763001--------8501.31.4000
---------------------GJ+1000-------------8528.30.8040
---------------------LX+150SV-----------9010.90.9000
---------------------GJ+1055-------------9013.30.2020
---------------------SE+2222-------------" "
---------------------GJ+67210------------8419.39.3311
---------------------GJ+100217-----------" "
What I need is two sets of VBA Code and 2 message boxes for the above scenario:
If Range C3:Last row contains a blank cell then Message Box ("WARNING: All items are not classified" refer too C6 and C8)
If Range C3:Last row contains "8528" or "9013" then Message Box ("WARNING: There is an FDA/FCC requirements for this file refer to C4 and C5 - create an Attachment from the scan folder and save as Attachment3-FDAFCC documents).
Is it, by any means, I can display the value of a cell adjacent to a match in a column range in a message box ?
I am searching for the answer to this question past 1 hour on the internet !
As part of a macro I would like to add a piece of code that will make a pop up window appear, something like: "Please open the file ABC"
Can someone tell me what code should I add to my existing macro ? (I have just recorded the macro as I am do not know coding)
I need a VBA script that will allow an input either Text or Numerical and then search an entire workbook (5 sheets) and find it. It would be nice if it posted the information on the 1st sheet from where the macro will be run, Then I could use VLOOKUP and retrive the rest of the information.
I have a workbook with a ton of Purchase order Numbers, Vendors Name, Work Orders etc... and I have to search through them regulary. I have used the FIND button and it works, but when I try to record a macro with it I get stumped. Im Sure this is easy for you GURU's that program for a living, but for me, well.....Lets just say I am at a loss. I have tried this:
Sub FindPON()
Dim MyPON As Variant
MyPON = InputBox("Please enter your search criteria")
On Error Resume Next
Range("frmParts").Find(What:=MyPON, Lookat:=xlWhole).Activate
End Sub
I do not want to use comments box or data validation
I want to use a macro
cells C14, C32, and C49 are drop down list
If user selects "MFRHTC" from drop down list in either one
I want a message box to pop up and end when user clicks the OK button
this is what I currently have but is NOT Working
If Not Application.Intersect(Range("C14, C32,C49"), Target) Is Nothing _
And Target.Count = 1 _
And Target.Select = "MFRHTC" Then
Msg = "Units will provide the following in order to have ammunition Fed Ex to HTC's " & vbCrLf
Msg = Msg & "" & vbCrLf
Msg = Msg & " POC" & vbCrLf
Msg = Msg & " Unit ship to Address" & vbCrLf
Msg = Msg & " Phone Number" & vbCrLf
Msg = Msg & "" & vbCrLf
Msg = Msg & "" & vbCrLf
Msg = Msg & "Input the required info in the Comments Box"
MsgBox Msg, vbInformation, "FED EX AMMO INFO REQUIRED"
End If
End Sub
When a workbook is opened, is it possible to have a "welcome" message appear before the worksheets can be accessed?
I would like to create a "message" and two boxes that say "enter your name" and "enter your password".
These will be dummy boxes, but the user wont know that
I have following code to pop up the message box, but it does not pop up itself, I have to run the macros evry time. Is there any solution.
All I want if in Cell "C20" has the message " Check your Margin" than the message box pop up and should have the message as defined in my below code. Also, is this possible that the message should come in one box.
Private Sub Find_Criteria()
Dim i As Variant
Dim FindRange As Range
Set FindRange = Range("c10")
For Each i In FindRange
If i = "PLEASE CHECK YOUR MARGIN" Then
MsgBox "a) Check Provisional Sum allowances and Discounts"
MsgBox "b) Check with Brian if a base price review was required and missed"
MsgBox "c) Check for double ups in Timberline"
MsgBox "d) Check all big ticket items in Timberline ie. Trusses, bricks, plaster, paint and Site Works)"
MsgBox "d) Check if any items were underpriced in the contract and provide feedback to Brian"
MsgBox "e) Review and discuss any allowances with me." & " "
End If
Next i
End Sub
I've got a Macro that, when activated, allows the user to cancel a demand and highlight that row red when completed, here's the
Sub Cancel_DMD()
Dim datatoFind, sRemark As Variant
Dim sheetCount As Integer
Dim counter As Integer
Dim currentSheet As Integer
Dim searchRange As Variant
currentSheet = ActiveSheet.Index
datatoFind = InputBox("Demand Number To Cancel {(}Ensure correct Demand No. entered{)}:")
If datatoFind = "" Then Exit Sub
sheetCount = ActiveWorkbook.Sheets.Count
I also need to insert a MsgBox that pops up before exiting. The MsgBox needs to be in two stages, the first will ask "Have you contacted the Demands Clerk to cancel?" with "Yes" or "No" buttons. If "Yes" is clicked, then the macro completes and exits, if "No" is clicked, then the sencond stage will appear.
I am wanting a pop up box to appear when a certain value is reached in my worksheet.
My worksheet is a schedule of training, and we have the same columns duplicated over monthly tabs, i want a message to appear if a certain column named " Trainers" has reached 30. Would this be possible? I would like it to pop up with what cell it is that has reached this number.
I ve a formula in cell A2 of Sheet1. Say now formula value is 10,000,002 (this will change based on other calculation).
What I need is, whenever cell A2's formula value will become greater than 10 M, following pop up message will be shown: ....
Is there a way to add a message pop up in Excel to say that whenever cell c9 is > than .90 the pop up message should say "Please create exception"?
View 9 Replies View RelatedI have a list of products ranging from A2:A28. I have a formula which randomly selects 1 product from this list.
=index(a2:a28,randbetween(1,counta(a2:a28)),1)
and it works fine.
My question is whether or not i can output the results of this formula into a message box?
Title: Your Selected Product Is:
Results: forumla above
Buttons: OK
I have a lot of links on my excel page, links going to videos. Everytime I click the link, I have this message :
"there might be viruses... are you sure you want to open this file?"
I know there must be a way to take this message off : I worked with it for months, and then it suddenly disappeared. But now that I formatted, it's back again
message box properties. i m using this
View 3 Replies View RelatedBelow is a message box with an input bar inside the message box. I am able to put a prompt message on top of the input bar but i am finding it difficult to enter another message underneath the box. I want to have the text "Continue?".
[Code] ......
This is what the promt message with the input box looks like : Untitled.png
So basically right underneath the input bar i would like to have the word "Continue?"