Error when adding axModi to Windows Form.

ISV Open Discussions

Index ‹ Microsoft ISV

- Previous
  - 1
    - In desperate need of help. I am new to these forums, and so if this isn't the right place, please don't just say that this isn't the right place, and rather, inform me as to which forum this truly belongs in, as I'm guessing becaue this issue involves more than just 1 item (i.e. there's more to it than just VBA). The ultimate issue pertains to Macros. We have an internal program that uses Visual Studio 2003, VB.Net, Framework 1.1, along with some VBA within the Word Documents. This internal application has about 80 documents and forms pertaining to mortgages and deeds of trust. A user selects the necessary documents, inserts information into text boxes, dropdowns, checkboxes, etc, and based on that, when they click on the generate document button, a Word document is supposed to generate. The problem that we are having is some random users (none in our main office in Charlotte) get the Enable Macro popup from Microsoft Office Word 2003 during the generation of the document. The other problem is that this is completely sporadic, and there is zero consistency (i.e. it's not like one particular document is causing this, or a certain type of data entry). Because it's sporadic, we highly doubt that it's a registry error as then it ought to happen all the time for that user. We have a few documents where you should get the Enable Macro popup when you go to open the generated document, but this should never occur during generation. Any ideas Thanks in advance, Patrick. Tag: Error when adding axModi to Windows Form.
  - 2
    - CD Key/Part # trouble I have a similar kind of problem. I was organizing an action pack and I separated the sleeves that had cd keys on them from the cds that they went with. My question is, do the part numbers on the plastic sleeves, that came with the action pack binder, match up with part numbers that can be found on the cds. I just hope that there is an easier way to solve my problem than manually installing all of the cds and trying every cd key until they all match. That would take for ever and my boss would kill me. Help me, please!!! Tag: Error when adding axModi to Windows Form.
  - 3
    - How to allow cookies for Windows Live ID I haven't had a problem logging into Hotmail until today. But I've followed ALL the instructions for allowing cookies & still can't log into MSN, Live ID or Hotmail. I receive the error message further below. Do I have to download something from Live ID Thanks! Cookies must be allowed Your browser is currently set to block cookies. Your browser must allow cookies before you can use Windows Live ID. Tag: Error when adding axModi to Windows Form.
  - 4
    - Excel - CheckBox Tick Color Thanks, but I really don't want to do all of that. With an average of fifteen per sheet, and one sheet that has five hundred checkboxes I think I'll be able to manage until MS adds the property. But thanks Andy, It does in fact work! If I only needed to do a few then I might be interested in tackling it. Tag: Error when adding axModi to Windows Form.
  - 5
    - Loop causing MS Word freeze As Count is declared as a Integer the initialize value wil be zero. If you want to specify a value for the variable you need to do so in your code before the variable is used. In this particular case as you are using a userform the Initialize event of the userform is where you would set the value. Private Sub UserForm_Initialize() Count = 1 End Sub Tag: Error when adding axModi to Windows Form.
  - 6
    - iexplore.exe - Application Error I discovered the problem. It was because of Yahoo Toolbar add on. I uninstalled it and now it works fine. Marty Tag: Error when adding axModi to Windows Form.
  - 7
    - Accessing a subform, error 2455 Hi, we also have the same problem. On 50 PC all works fine, but at one Terminal Server it doesn't work (4 of 5 PC with the same Database). If we open the form on time create the subform new, it works. After saving and restart the form it doesn't work. greets from Austria. Tag: Error when adding axModi to Windows Form.
  - 8
    - Is Office2003 still does not support passing command line arguments to VBA? Hi All, Back in the Office 97 days I tried passing command line arguments to VBA code within a doc file and it didn't work. In the end I found a workaround that was a bit of a hassle to implement but did what I needed. Today, I found myself in a need of accomplishing a similar task in the Office 2003, plus the solution must also work in the Office 2007. I was wondering if MSFT finally added the command line arguments support in VBA or I need to go back to the old tricks. Basically I'm looking to do something like: winword.exe "MyDocument.doc" "/cmd MyVBAArgument1=A MyVBAArgument2=B" Thanks, Aleksey Tag: Error when adding axModi to Windows Form.
  - 9
    - Sort rows within a range Hi, Pretty good code if you have only just started ;) One thing to be aware of, and this depends totally on your data, is the use of .End(xRight) will cause problems if there are empty cells in the range of cells being sorted. If the end of each row varys it may be better to find the end cell by coming at it from the far right using xlToLeft. Also you are adding +1 to the counter when specifying the range and sortkey. It would be better to increment the counter once before using it and then remove all the +1's. If this impacts on code lines further on in your routine you can always create another variable to hold the value. Counter = Counter + 1 Range(Cells(Counter, 6), Cells(Counter, Columns.Count).End(xlToLeft)) If you have a named range for you data then you could use this. Dim rngRow as Range For Each rngRow In Range("NamedRange").Rows rngRow.Sort Key1:=rngRow.Cells(1), Order1:=xlDescending, _ OrderCustom:=1, MatchCase:=False, _ Orientation:=xlLeftToRight Next Tag: Error when adding axModi to Windows Form.
  - 10
    - Automate the Excel Camera Tool I'm dashboarding with Excel and have everything finished except for programmatic placement of camera objects. Here's the gist: My dashboard selects an image to copy with the camera tool based on the results of various lookup and choose functions applied to data pulled from an ODBC query embedded in a worksheet. The Camera object is placed on a display worksheet so that the dashboard is nothing more than a worksheet with a collection of camera objects referencing various data and images from other hidden worksheets. My question is: how do I automagically determine the display position of the camera object based on data in another worksheet For instance, if Sheet3!A1 equals C14, then I want a particular camera image to show up at Sheet1!C14. The idea is kind of like an autogenerated map - if the data says a "red truck" is in "texas", then I want a camera object pointing at "red truck" to pop up in the location "texas". I have everything working except that the resultant image has to be manually placed - how do I do this programmatically Please note that everything I know about programming came from the back of a Wheaties box. Thanks. Tag: Error when adding axModi to Windows Form.
  - 11
    - Licensing the NTFS sepcifcation Hi, We're writing an embedded application that reads and writes data to removable media via USB. I have successfully implemented a FAT driver for our arhcitecture and now we would like to support NTFS. We understand that the specification for NTFS is privatly held within MS. So I'm wondering how to start the process of licensing the specification. Where do we start Who is the best person to contact initially Thanks, Ben Tag: Error when adding axModi to Windows Form.
  - 12
    - SpeedUp a Macro in Excel - Disable Functions I have added those lines after reading your post of course It does not stop the functions I've acreated in my modelues from runing. Tag: Error when adding axModi to Windows Form.
  - 13
    - Ex 2002 VBA, Activate First Available Cell in "A" I need to please know how to call the first unused cell in Column A, activate it and put it at the top of my view area. If I have 7,369 rows of data populated, tomorrow it will be even more, each day I would like to do some work in VBA, which I know how to do, without referencing specific cells. Once complete I need to put my cursor (highlight) in the next unused "A" cell and put it in the left upper corner of my visible sheet. No cell numbers required, maybe the cell past lastused Thanks in advance for any help. Tag: Error when adding axModi to Windows Form.
  - 14
    - Using VB in MS Access Ok, I have no knowledge of VB. I am attempting to co-opt a bit of someone elses database. I am using 2 combo boxs in a form header to search for a specific record using 2 different fields. If the record exists than the fields in the detail section of the form are filled in. If it isn't located then nothing happens. One of the two fields is a key field with a numberic autonumber. This search works just fine. The second field is not a key field, it is a name. This one gives me: Run-time Error "3079" The specified field "Name" could refer to more than one table listed in the FROM clause of your SQL statement. I only have 2 tables in this database, and the field "Name" only exists in one of the 2 tables. Any help is greatly appreciated. Here is the VB code from the original database. Private Sub Combo64_AfterUpdate() ' Find the record that matches the control. Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[ID] = " & Str(Nz(Me![Combo64], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub Private Sub Combo66_AfterUpdate() ' Find the record that matches the control. Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Name] = '" & Me![Combo66] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub Tag: Error when adding axModi to Windows Form.
  - 15
    - Why is it so ? Hi, I uploaded a product map file recently, and one of the exe was having version 7.31.0.0 But, when I go to the Product Rollup page, I can see an event for that exe having version 7.20.0.0 . As I understand, mapping process considers the version of that file also. Can anybody explain why 7.20.0.0 is listed instead of 7.31.0.0. In other words how come version 7.20.0.0 event were mapped for 7.31.0.0 mapped file Also the reported events were not sent from my side. Actually this product is used by many users across different timezone and once I uploded the map file, thses events also started showing up. Regards, Dhon Tag: Error when adding axModi to Windows Form.
  - 16
    - vlookup I am using vlookup and I want to obtain the value in column B for the second occurance of the lookup value This code comes up with error DestCity = WorksheetFunction.VLookup(" Line#1 CITY ", Range("CPARSdata"), 2, 0) _ And WorksheetFunction.VLookup(" Line#1 CITY ", Range("CPARSdata"), 2, 0) If I use the first part before the "And" it will find the results to the first occurance. Please help! Tag: Error when adding axModi to Windows Form.
- Next
  - 1
    - Blue Star Infotech Offering on SharePoint for ISV and End User Organization Hi All, As a quick introduction I represent Blue Star Infotech, part of Blue star limited a $300 Mil group. We are based in USA & Europe. We are Microsoft Gold Certified Partner. I wanted to discuss and offers our expertise in building products around SharePoint to ISV community. My Company can help ISV's using SharePoint Build products on SharePoint technology faster and more efficiently. For end user organization my company can offer customization, support and independent testing and audit of application on SharePoint. Our service offerings cover the entire gamut starting from consulting, BI, data recognition, customization, and integration. We have an expertise to map the desired functionality to OOB feature list. We can manage site and content security, capacity planning, and storage management. I am wondering if the members of this group would be interested in looking at this service offering. May i request the group to visit my company website at http://www.bsil.com,in case anyone has any query please direct it to me and I will be happy to get it resolved regards Siddhartha Tripathi Tag: Error when adding axModi to Windows Form.
  - 2
    - Autoexecuting macros How do you make a macro run as soon as the Excel file it is attached to is opened The version is Excel 2000. I have searched the help files and some forums already. Does anyone have any advice Tag: Error when adding axModi to Windows Form.
  - 3
    - Making an array in Excel with the file names of a particular folder Hi I would use a section of one of your worksheets to store the names, and read this into the array when the macro is run.Alternatively, you can hardcode the names into your code if they never change. Tag: Error when adding axModi to Windows Form.
  - 4
    - error message when closing ie7 The computer administrator profile is not having this problem only the other users on my home computer. Upon closing the browser this pops up: iexplore.exe Application error The exception unknown software exception (0x0eedfade) occured in the application at location 0x7c812a5b We have ie7. Can someone help Tag: Error when adding axModi to Windows Form.
  - 5
    - Newbee - Insert previous cross-ref from the dialog box I would like to have a template that users can work on, and then later go through and select a paragraph or a word to be designated as a cross-reference. I would then like to create a macro that would pop open the cross-reference dialog box (type set to "numbered items", and type set to "paragraph text" as defaults), and have the items list already highlighted so the user pretty much launches the macro, scrolls to the cross reference item they want to insert and hit enter to insert and close the box. I don't want them to have to select the ReferenceType, ReferenceKind, etc. I know that this has got to be something simple and I'm overlooking it. I tried to record a macro to do it, I was having to put things like vbTab & "%m" to select stuff because I didn't know how to stop the macro have the user interact with the dialog box. Now thinking about it, I'd really like to just have a Dialog box that only displays the cross-references I've created show up without using the standard Microsoft box Is that possible Please, steer me in the right direction if I am off here. The application here is for a user to type a "Heading" and give it a cross-reference (can I set a style that automatically assigns a cross reference to the name (e.g. if the user applies the "heading" style to the text ). Then the user, later in the document presses the "macro button", a dialog box of previous references pops up, the scroll to the one they want, hit enter and it inserts it. Sorry, I don't know the proper language to use here; and maybe that is part of my problem. I just got "knighted" to this. I appreciate any input, even if it is "go read..." Thanks. Ferrell Tag: Error when adding axModi to Windows Form.
  - 6
    - Need Help on how to use library file (Win32 API) Hi All, Can any one help me on how to use Library files in Excel VBA. I have pasted here some sample. If possible which website can i refer to know about more about this. How to declare and use the constants Private Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long Thanks in advance. Bye Tag: Error when adding axModi to Windows Form.
  - 7
    - Easy msgbox Query Sorry about that. Tag: Error when adding axModi to Windows Form.
  - 8
    - Cannot read Office 2007 DVD I actually saw that KB article before posting, but it didn't solve the problem. Seeing as I could reproduce the issue on three separate drives, I was convinced that it was either some kind of incompatability or defect in the disk. Ultimately, I just opted to make a direct copy onto a DVD R+, which worked fine on all my "problem" drives. I think it's safe to say that something about these DVDs troubles a certain type of DVD/RW drive. At least I have a work around--DVDs are cheap. Thanks to all who shared their knowledge. Tag: Error when adding axModi to Windows Form.
  - 9
    - iexplore.exe - Application Error (EVERY TIME I CLOSE IE7) :( I just installed Norton 360. I'm running on IE6. The same/similiar error message occurs. I checked the event viewer logs and provides the following explanation: The program could not load a driver because the program user doesn't have sufficient privileges to access the driver or because the drive is missing or corupt. To correct the problem, the article goes on to suggest these solutions: Ensure that the program user has sufficient privileges to access the directory in which the driver is installed. Reinstall the program to restore the driver to the correct location. Based on this information, I can guess what occured and a possible solution. The installation of Norton 360 caused a file or registry entry to become changed, deleted or corrupted. The other possible cause could be a bug/incompatability in the software. The solution may be to un-install and re-install Internet Explorer. I have yet to try this. Good Luck Tag: Error when adding axModi to Windows Form.
  - 10
    - Word: How to you determine the current cursor position For one of my macros to run, I have to ensure that the cursor position is not in a table or in a frame when the user activates the macro. How can I find our the current cursor position Once I can determine that the cursor is positioned in a table or a frame, I can then code a message box to instruct the user where to put their cursor to run a certain routine. Tag: Error when adding axModi to Windows Form.
  - 11
    - duplicating VBA objects Hi all, on a form, i've got 10 textbox in a row. lets say that i've got x rows. the user need x+1 rows. how do i add the last row thanks. Tag: Error when adding axModi to Windows Form.
  - 12
    - Copying and Deleting the duplicate records in an excel sheet and Copying the same Deleted records into another sheet Instead of doing this in one macro, I suggest you to do this in 2 stages. Key Generation and then Scan procedure. This keeps functions more resueable in the futrure. 1) you make an extra column by combining the partial key columns. It is better to insert an special separater to make sure you don't end up with the same key like this, he + llo = hello and hell + o = hello. 2) Compare the primary key and start copying the row and delete it. I am only going to provide you with few helper functions. Everything else should be easy for you. The LastRow function will gives you the true last row in your desired range so you can loop each row from top to last row. The Find_inOneColumn functions will tell you if duplicate value is found in the same column or not and has an optional Return parameter you tell you where the duplicate is found. This is not needed if you sorted the rows with your new primary key. This is used for keeping the original records' order. There are other ways to keep the original ordering, but, nah. Hope this helps. '========================= Code ================================================================ Function LastRow(Optional rTest As Range) As Long If IsNull(rTest) Then Set rTest = ActiveSheet.UsedRange If rTest Is Nothing Then Set rTest = ActiveSheet.UsedRange Dim lTest As Long Dim iCol As Range For Each iCol In rTest.Columns With rTest.Parent.Cells(Rows.Count, iCol.Column) If .Value <> "" Then LastRow = .Row: Exit Function lTest = IIf(.End(xlUp).Row > lTest, .End(xlUp).Row, lTest) End With Next LastRow = lTest End Function Function Find_inOneColumn(vWhat As String, Optional vAfter As Range, _ Optional vLookIn As emFindParameters = LookIn_Formulas, _ Optional vLookAt As emFindParameters = LookAt_Part, _ Optional vSearchDirection As emFindParameters = SearchDirection_Next, _ Optional vMatchCase As Boolean = False, Optional ByRef vReturn As Range) As Boolean Dim CurrentCol As Long If IsNull(vAfter) Then Set vAfter = Range("A1") CurrentCol = vAfter.Column Find_inOneColumn = Find(vWhat, vAfter, vLookIn, vLookAt, SearchOrder_ByColumns, vSearchDirection, vMatchCase, vReturn) If Find_inOneColumn = True Then If CurrentCol <> vReturn.Column Then Find_inOneColumn = False End Function Function Find(vWhat As String, Optional vAfter As Range, _ Optional vLookIn As emFindParameters = LookIn_Formulas, _ Optional vLookAt As emFindParameters = LookAt_Part, _ Optional vSearchOrder As emFindParameters = SearchOrder_ByRows, _ Optional vSearchDirection As emFindParameters = SearchDirection_Next, _ Optional vMatchCase As Boolean = False, Optional ByRef vReturn As Range) As Boolean If IsNull(vAfter) Then Set vAfter = Range("A1") On Error Resume Next Set vReturn = Nothing Set vReturn = Cells.Find(What:=vWhat, After:=vAfter, _ LookIn:=vLookIn, LookAt:=vLookAt, _ SearchOrder:=vSearchOrder, SearchDirection:=vSearchDirection, _ MatchCase:=vMatchCase) 'SearchFormat:=vSearchForma ' took out for Excel2000 If vReturn Is Nothing Then Find = False Else Find = True End If End Function Tag: Error when adding axModi to Windows Form.
  - 13
    - Using C# Events over COm-Interop in VBA Hi, i am trying to write a DLL with Code writen in .NET / C# that can be acces in VBA Applications via COM-Interop. Everything seems to work so far, but: I have an Event in my C# Class that i want to acces in the VBA code: --- Public Class VBATest { public event EventHandler OnLogin; public void Test() { ... if (this.OnLogin != null) { this.OnLogin(this, EventArgs.Empty); } } } ---- Now i want to add an event Listener in my VBA Code to the OnLoginEvent. Is there a way to do this or are C# like Events are not Supported to be use over Com-Interop in VBA BTW: If someone knows any tutorials about C#/.Net -> Com-Interop -> VBA (Excel), let me know Thank you very much for any Help! Tag: Error when adding axModi to Windows Form.
  - 14
    - Excel VBA - Best way to SQL Insert if SQL Update fails What would be the best way to do this Try/Catch I was trying to check all the records to find the date/hour key but I thought there might be a better/quicker way to check if the record exists...or rather, if the update fails. Would this work Is there a better way to do this or is my thinking wrong Is there a way to check if an update fails...would it throw an exception Thanks for the help! Tag: Error when adding axModi to Windows Form.
  - 15
    - Using DCount function in a Report group footer Hi Van, Thanks but I still can't work this out. My statement now looks like this: =DCount([Task ID],[Tasks],"[Task ID] IN (SELECT DISTINCT [Task ID] FROM [Tasks]") When I run the report I am prompted for a parameter value for 'Tasks' - which I don't know what to enter - clicking OK just gives an error for the count. I have also tried it like this which produces no prompt but gives the same error result: =DCount([Task ID],"Tasks","TaskID IN (SELECT DISTINCT [Task ID] FROM Tasks") "Tasks" is my table. I have now tried saving the report's query to a named query and refering to that as the domain as follows: =DCount(["Task ID]","[Q_ServiceCount]","[Task ID] IN (SELECT DISTINCT [Task ID] FROM Tasks") This produces same error (no prompt for param value). I've also tried it like this: =DCount("Task ID","Q_ServiceCount","[Task ID] IN (SELECT DISTINCT [Task ID] FROM Tasks") Which also doesn't work - same error. I have tried looking up the help on calculating a running sum but it doesn't say anything about excluding repeating values. You are correct in surmising that my use of the 'distinct' keyword is because there are duplicates. Is there any way to get more information from Access on the details of the '#Error' Thanks Tag: Error when adding axModi to Windows Form.
  - 16
    - Error 380: Invalid property value:Help Me Please Im working on some coding for an assignment i was given and i neede help as fast as possible. I have been recieving an error message that reads as follows: Run-time error: "380" Could not set the Value property: Invalid property value Ive used F8 in attempt to locate the problem and i have highlighted where i believe the problem is in the coding below: Dim Row As Integer Dim nop As Integer Dim cellc As Integer Dim nosuppliers As Integer Private Sub countchange_Change() countchange.Max = txtnop + 1 txtcount.Text = countchange Sheets("magazine").Select Row = Val(txtcount) + 6 Range("A" & Row).Select ctitle.Text = ActiveCell.FormulaR1C1 Range("B" & Row).Select cissue.Text = ActiveCell.FormulaR1C1 Range("C" & Row).Select cisbn.Text = ActiveCell.FormulaR1C1 Range("D" & Row).Select cbuyprice.Text = ActiveCell.FormulaR1C1 Range("E" & Row).Select csellprice.Text = ActiveCell.FormulaR1C1 Range("F" & Row).Select cstockb.Text = ActiveCell.FormulaR1C1 Range("G" & Row).Select cstocks.Text = ActiveCell.FormulaR1C1 Range("H" & Row).Select cstockr.Text = ActiveCell.FormulaR1C1 Range("I" & Row).Select csupplierno.Text = ActiveCell.FormulaR1C1 Range("J" & Row).Select cinterval.Text = ActiveCell.FormulaR1C1 Range("K" & Row).Select creleasedate.Text = ActiveCell.FormulaR1C1 Range("L" & Row).Select cnreleasedate.Text = ActiveCell.FormulaR1C1 Range("M" & Row).Select cgenre.Text = ActiveCell.FormulaR1C1 Range("N" & Row).Select ccprofit.Text = ActiveCell.FormulaR1C1 Sheets("suppliers").Select Row = Val(csupplierno) + 6 Range("c" & Row).Select csupplierc = ActiveCell.FormulaR1C1 If txtcount > txtnop Then csuppliername.ListIndex = 0 Else Range("B" & Row).Select csuppliername = ActiveCell.FormulaR1C1 End If End Sub Private Sub csuppliername_Change() csupplierno = Val(csuppliername.ListIndex) + 1 Sheets("suppliers").Select Row = Val(csupplierno) + 6 Range("c" & Row).Select csupplierc = ActiveCell.FormulaR1C1 End Sub Private Sub submit_Click() Sheets("magazine").Select Row = Val(txtcount) + 6 Range("A" & Row).Select ActiveCell.FormulaR1C1 = ctitle.Text ctitle.Text = "" Range("B" & Row).Select ActiveCell.FormulaR1C1 = cissue.Text cissue.Text = "" Range("C" & Row).Select ActiveCell.FormulaR1C1 = cisbn.Text cisbn.Text = "" Range("D" & Row).Select ActiveCell.FormulaR1C1 = cbuyprice.Text cbuyprice.Text = "" Range("E" & Row).Select ActiveCell.FormulaR1C1 = csellprice.Text csellprice.Text = "" Range("F" & Row).Select ActiveCell.FormulaR1C1 = cstockb.Text cstockb.Text = "" Range("G" & Row).Select ActiveCell.FormulaR1C1 = cstocks.Text cstocks.Text = "" Range("H" & Row).Select ActiveCell.FormulaR1C1 = cstockr.Text cstockr.Text = "" Range("I" & Row).Select ActiveCell.FormulaR1C1 = csupplierno.Text csupplierno.Text = "" Range("J" & Row).Select ActiveCell.FormulaR1C1 = cinterval.Text cinterval.Text = "" Range("K" & Row).Select ActiveCell.FormulaR1C1 = creleasedate.Text creleasedate.Text = "" Range("L" & Row).Select ActiveCell.FormulaR1C1 = cnreleasedate.Text cnreleasedate.Text = "" Range("M" & Row).Select ActiveCell.FormulaR1C1 = cgenre.Text cgenre.Text = "" Range("N" & Row).Select ActiveCell.FormulaR1C1 = ccprofit.Text ccprofit.Text = "" Range("O" & Row).Select ActiveCell.FormulaR1C1 = txtcount.Text txtcount = Val(txtcount) + 1 Row = Val(txtcount) + 6 Range("A" & Row).Select countchange.Value = txtcount + 1 txtcount = countchange.Value Range("C" & "2").Select txtnop = ActiveCell.Value End Sub Private Sub UserForm_Initialize() Sheets("magazine").Select Row = 7 Range("A" & Row).Select ctitle.Text = ActiveCell.FormulaR1C1 Range("B" & Row).Select cissue.Text = ActiveCell.FormulaR1C1 Range("C" & Row).Select cisbn.Text = ActiveCell.FormulaR1C1 Range("D" & Row).Select cbuyprice.Text = ActiveCell.FormulaR1C1 Range("E" & Row).Select csellprice.Text = ActiveCell.FormulaR1C1 Range("F" & Row).Select cstockb.Text = ActiveCell.FormulaR1C1 Range("G" & Row).Select cstocks.Text = ActiveCell.FormulaR1C1 Range("H" & Row).Select cstockr.Text = ActiveCell.FormulaR1C1 Range("I" & Row).Select csupplierno.Text = ActiveCell.FormulaR1C1 Range("J" & Row).Select cinterval.Text = ActiveCell.FormulaR1C1 Range("K" & Row).Select creleasedate.Text = ActiveCell.FormulaR1C1 Range("L" & Row).Select cnreleasedate.Text = ActiveCell.FormulaR1C1 Range("M" & Row).Select cgenre.Text = ActiveCell.FormulaR1C1 Range("N" & Row).Select ccprofit.Text = ActiveCell.FormulaR1C1 Range("C" & "2").Select txtnop = ActiveCell.Value Sheets("suppliers").Select Row = 7 Range("C" & "2").Select nosuppliers = ActiveCell.Value Range("B" & Row).Select cellc = 0 Do While cellc <= nosuppliers csuppliername.AddItem (ActiveCell.FormulaR1C1) cellc = cellc + 1 Row = Row + cellc Range("B" & Row).Select Loop Sheets("suppliers").Select Row = Val(csupplierno) + 6 Range("c" & Row).Select csupplierc = ActiveCell.FormulaR1C1 Range("B" & Row).Select csuppliername = ActiveCell.FormulaR1C1 countchange.Max = Val(txtnop) + 1 End Sub If you need any more info on the program dont hesitate to ask. Please try to help me. Tag: Error when adding axModi to Windows Form.

Genaro Sanchez

I added the COM Component for MODI (V.12.0) Using Office 2007 version and Visual Studio 2005

When i try to add the control to the form. I get an error: "Failed to import the ActiveX control. Please ensure it is properly registered."

How can I add this control Is there a patch for this problem

Also I try with MODI (v.11.0) Office 2003 and VS2005, and the same problem.

Thanks a lot.

Top

Re: Error when adding axModi to Windows Form.

dineshkrishna108

Hi,
I had the same problem. Navigate to the folder C:\Program Files\Common Files\Microsoft Shared\MODI\11.0. In the run command type Regsvr32.exe and leave a space.Now drag the file MDIVWCTL.DLL in the directory said above to the run command textbox.And give enter.
Upon pressing enter u will get a msf succefully registered. Then u will be able to get the namespaces by intellisense.
be sure to add axinterop.dll to ur bin/debug folder where the exe resides.

Regards
dinesh
Klient Informatics
Chennai
India

Top