duplicating VBA objects

Visual Basic for Applications (VBA)

Index ‹ Microsoft ISV

- Previous
  - 1
    - SpeedUp a Macro in Excel - Disable Functions well... With ActiveSheet .EnableCalculation = False .EnableCalculation = True .Calculate End With Code Block Application.ScreenUpdating = False Application.EnableEvents = False ActiveSheet.EnableCalculation = False Range("N6").Select While (ActiveCell.Value <> "FIN") If ActiveCell.Value = 0 Then Selection.EntireRow.Hidden = True End If ActiveCell.Offset(1, 0).Select Wend Application.EnableEvents = True ActiveSheet.EnableCalculation = True ActiveSheet.Calculate Application.ScreenUpdating = True Tag: duplicating VBA objects
  - 2
    - Ex 2002 VBA, Activate First Available Cell in "A" This is mine, yours and one other great helper, I removed one of my lines to stop this thing from highlighting the entire A column of eCell below the target cell. Thanks for your help. Sub ZzSetup() Application.CommandBars("Web").Visible = False Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True Dim colNum As Integer colNum = 1 Dim eCell As Range Set eCell = Columns(colNum) _ .SpecialCells(xlCellTypeBlanks).cells(1) eCell.Select ActiveWindow.ScrollRow = eCell.Row Sheets("Zion").Select End Sub Tag: duplicating VBA objects
  - 3
    - 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: duplicating VBA objects
  - 4
    - Why is it so ? Thanks Dhon, I looked at your XML mapping file sent to wer@microsoft.com and compared the results to the data we have related to your company in Winqual based on the current mapping and I think I have found what you are referring to... Your mapping file has a module with a version of 7.0.2.0. For conversation sake, we will call this jason.dll version 7.0.2.0 . This file seems to have crash a process with a version of 7.20.0.0. We will call this Dhon.exe version 7.20.0.0. Because of this crash and the mapping of jason.dll version 7.0.2.0, you are able to see the process name of Dhon version 7.20.0.0 in the event list even though Dhon version 7.20.0.0 may have been explicitly mapped to another product in your rollup list. This is very much related to my post here . Kind regards, -Jason Tag: duplicating VBA objects
  - 5
    - 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: duplicating VBA objects
  - 6
    - Error when adding axModi to Windows Form. 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. Tag: duplicating VBA objects
  - 7
    - 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: duplicating VBA objects
  - 8
    - 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: duplicating VBA objects
  - 9
    - Making an array in Excel with the file names of a particular folder Hi Bartyb, I am moving this thread from Visual Basic Express Edition forum to the Visual Basic for Applications (VBA) forum, since the issue is related to Excel VBA. There are more VBA experts in the Visual Basic for Applications (VBA) forum. Thanks for your understanding! Tag: duplicating VBA objects
  - 10
    - error message when closing ie7 I've been having the same problem. I trawled through my add-ons disabling & enabling until I found the offending article then disabled it. Hope this helps. Tag: duplicating VBA objects
  - 11
    - 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: duplicating VBA objects
  - 12
    - 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: duplicating VBA objects
  - 13
    - Easy msgbox Query Adamus, Thank you for the reply. I tried: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Sheet1.Range("C11").Value < 0 Or Sheet1.Range("C12").Value < 0 Then MsgBox "Enter Larger Value." End If End Sub And still get nothing. Ideas Jackie Tag: duplicating VBA objects
  - 14
    - Cannot read Office 2007 DVD There must be more people that have run into this problem, because there's a support article that covers this topic, with a number of options. http://support.microsoft.com/kb/924619 If these suggestions don't allow you to read the disk, there's a section towards the bottom of the page that discusses replacement options. Hope this helps, -brenda (ISV Buddy Team) Tag: duplicating VBA objects
  - 15
    - iexplore.exe - Application Error (EVERY TIME I CLOSE IE7) :( The same exact thing is happening every time I close IE7. The location number is different for me (0x7c812a5b). Immediately after clicking okay for that error window... I get another. It reads "Runtime error 217 at "039EFD29". Browsing around the site here... this seems to be some sort of conflict between IE7 and Norton 2007. I read in a thread for the runtime error to do the following: Control Panel > Internet Options > Advanced (tab) > RESET Tag: duplicating VBA objects
  - 16
    - 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: duplicating VBA objects
- Next
  - 1
    - Copying and Deleting the duplicate records in an excel sheet and Copying the same Deleted records into another sheet Hi Can you post some example data so that what you are asking is clearer please. Also will it always be the same columns Will the data be continuous or will there be blank lines Regards ADG Tag: duplicating VBA objects
  - 2
    - 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: duplicating VBA objects
  - 3
    - Excel VBA - Best way to SQL Insert if SQL Update fails If your table is indexed you can always open a recordset , set the index, then search for your key field(s). The nomatch property of the seek method tells you where a value is found or not, then you can edit or add the record. Below is an example from Excel where data is written back to Access when the user changes column AN Private Sub Worksheet_Change(ByVal Target As Range) Dim db As DAO.Database Dim rs, rsAll As Recordset Dim x, Ono, LineNo As Long Dim Co, Otype, Osuf As String If ActiveCell.Column = 40 Then x = ActiveCell.Row If ((Me.Cells(x, 3).Value = "OM") Or (Me.Cells(x, 3).Value = "OS")) Then Set db = DBEngine(0).OpenDatabase("P:\Outstanding Eng orders.mdb") Set rs = db.openrecordset("Outstanding Orders") Set rsAll = db.openrecordset("All Orders") rs.Index = "PrimaryKey" rsAll.Index = "PrimaryKey" Co = Me.Cells(x, 1).Value Ono = Me.Cells(x, 2).Value Otype = Me.Cells(x, 3).Value Osuf = Me.Cells(x, 4).Value LineNo = Me.Cells(x, 5).Value rs.Seek "=", Co, Ono, Otype, Osuf, LineNo If Not rs.nomatch Then rs.Edit If ActiveCell.Value = False Then rs!capital = False Else rs!capital = True rs.Update End If rsAll.Seek "=", Co, Ono, Otype, Osuf, LineNo If Not rsAll.nomatch Then rsAll.Edit If ActiveCell.Value = False Then rsAll!capital = False Else rsAll!capital = True rsAll.Update End If rs.Close rsAll.Close db.Close Set db = Nothing Set rs = Nothing Set rsAll = Nothing End If End If End Sub Tag: duplicating VBA objects
  - 4
    - Using DCount function in a Report group footer It is possible to include the double-quote in a double-quote-delimited String. However, to delimit Field name in Access / JET, you need to use the square bracket [ ], e.g. [Task ID], not single or double-quotes. The Domain must be a Table or a saved Query, not a "group" as defined by the "Sorting and Grouping" in the Report. Perhaps, you can use a hidden TextBox [txtCount] on your Report with ControlSource as = 1 and set the Property "Running Sum" to Yes/True. Since you use the keyword DISTINCT, I guess that there are duplicates that you don't want to count, you may need to use sub-group for each [Task ID], place the TextBox [txtCount] in the GroupFooter of the sub-group (set the Visible Property of the TextBox and the GroupFooter of the sub-group to No/False so that they are not visible). Check Access Help topic "Calculate a running sum" which can explain better than I can ... Tag: duplicating VBA objects
  - 5
    - 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: duplicating VBA objects
  - 6
    - Windows Error Reporting - handling unanticipated errors The following forum thread suggests we can handle unanticipated errors as long as WER is allowed to report them too: http://forums.microsoft.com/msdn/showpost.aspx postid=1029239&siteid=1&sb=0&d=1&at=7&ft=11&tf=0&pageid=0 Confirmation or otherwise would be appreciated. Thanks. Tag: duplicating VBA objects
  - 7
    - Is there a better way to debug. I learnt all of my programming in Java and used to use the command prompt/debug window extensively to print information out to. I could use this to check flow and determine when things were executed, the order and more information about the workings of the code. In VB I have been using Msgbox along with the Str() command. This is rather intrusive to the operation of the system. It also makes it hard to determine the order. I thought of dumping stuff to a text file but thought that is rather complex and not as useful as a command prompt. Any suggestions would be great. If a text file is the best option an example would be great. Tag: duplicating VBA objects
  - 8
    - Display a value in a looping status Hello. I am working on a program that requires me to generate a status of the program I am writing. Up to now I can display every string values out onto the txtDisplayText box but except that last one which the value was generated from the serial port Code Snippet Dim sRx_Buffer As String Dim sRx_Msg As String commSerial.Output = stringValue sRx_Buffer = commSerial.Input sRx_Msg = Conversion(sRx_Buffer) *Conversion function* txtDisplayStatus.Text = txtDisplayStatus.Text & _ "From Serial device: " & generatedValue & vbcrlf & vbcrlf I let it run in a loop function. Everything shows up except the last one. I set a breakpoint to check what's in the commSerial.Input. I did see some values but the variable could not capture the string of data that is from the serialComm.Input. Any help on this Thank you very much. Tag: duplicating VBA objects
  - 9
    - Excel Macro Help needed for the code in excel Marro... I have a backend excel file in LAN server, which acts as main database... and n numbers of fronend excel file with n numbers of users...... I have written a code where data will be submitted from frontend to backend in a click of a button.... I want to check if the backend excel file is open somewhere/anywhere before executing the code further.... Tag: duplicating VBA objects
  - 10
    - Subscript out of range with a simple sql :-( [newbie to VBA] Iam getting the exact same problem. I just started in VBA last week. I am trying to learn from a problem. This is an already built code and iam learning. The code works fine when i open following FOUR files: 1) 2263A1.txt 2) 2263A1(version 1).txt 3) 2263A1(version 2).txt 4) 2263A2.txt The following 2 files contain DATA and some Macros. 5) Data Arrangement 2.3- 04-26-07 6) LN STD Ct Iam getting problem "Run-time error 91 Subscript Out of Range" and the debugger points me to the line with the * and marked in RED whenever I open only one file i.e. "2263A1.txt" instead of opening all 4 (1 through 4) 'find the first workbook of data and activate it For i = 1 To Application.Workbooks.Count Step 1 If InStr(Application.Workbooks(i).Name, "Data Arrangement") = 0 And InStr(Application.Workbooks(i).Name, "Macro") = 0 _ And InStr(Application.Workbooks(i).Name, "STDCt") = 0 Then firstbook = i Exit For End If Next If doFourPlates Or doTwoPlates Then * Application.Workbooks(firstbook - 1 + wb).Activate End If If StrComp(Worksheets(1).Range("A1"), "SDS 2.3") = 0 Then Adjust End If Please let me know how to fix or atleast give me some directions. Thanks and much appreciated. Tag: duplicating VBA objects
  - 11
    - VB code in Access forms Hi, i'm a beginner in the VB code world but enjoy making things happen in the rare instances that they do! I'd really like some VB code / help for the following: I 'm designing a database with user input forms and am stuck on how to use VB code to make it do the things i want it to... I want code to do the following: For each new record i only want the parent form to be accessible for data entry, after all its fields are in then the subforms which appear on the same form can then be made accessible for data entry. Problem is i don't know how to refer to the NewRecord property via VB and then turn on / off the data entry properties of the subforms. I would also like to know how to use the value of the current record (automatically incremented with every new record), ideally i'd like to sync this in with a reference number on the actual parent form. Any help much appreciated. Catherine Tag: duplicating VBA objects
  - 12
    - Run-time error '13': Type Mismatch i always get this error when i try to run...does anyone know what's the problem Code Snippet Option Explicit Private Sub UserForm_Initialize() UpdateData cbxDept.AddItem "Marketing & Sales" cbxDept.AddItem "Supply Chain" cbxDept.AddItem "Purchasing" cbxDept.AddItem "Technical & Production" cbxDept.AddItem "Research & Development" cbxDept.AddItem "Finance & Control" cbxDept.AddItem "Human Resource" cbxDept.AddItem "Globe & ISIT Services" End Sub Private Sub cmdPrevious_Click() If txtRow.Text > 1 Then txtRow.Velue = txtRow.Value - 1 UpdateData End Sub Private Sub cmdNext_Click() If txtRow.Text < Range("Database").Rows.Count Then txtRow.Value = txtRow.Value + 1 UpdateData End Sub Private Sub txtFName_AfterUpdate() Range("A2")(txtRow.Text).Value = txtFName.Value End Sub Private Sub txtLName_AfterUpdate() Range("B2")(txtRow.Text).Value = txtLastName.Value End Sub Private Sub cbxDept_AfterUpdate() Range("C2")(txtRow.Text).Value = cbxDept.Value End Sub Private Sub txtRow_AfterUpdate() If txtRow.Text < 1 Then txtRow.Text = 1 ElseIf txtRow.Text > Range("Database").Rows.Count Then txtRow.Text = Range("Database").Rows.Count End If UpdateData txtFName.SetFocus End Sub Private Sub UpdateData() txtFName.Text = Range("A2")(txtRow.Text).Value txtLName.Text = Range("B2")(txtRow.Text).Value cbxDept.DropButtonStyle = Range("C2")(txtRow.Text).Value End Sub thanx Tag: duplicating VBA objects
  - 13
    - ReportFault() vs. WerReportCreate/WerReportSubmit() on Vista Claus Brod wrote: Hi all, I'm experimenting with the available APIs for error reporting. On XP systems, I'm using ReportFault(), which seems to work as expected- it displays the WER dialogs, sends data to the Winqual site (including minidump data), launches a debugger when asked for by the user etc. That doesn't sound correct to me. In my experience, ReportFault() just returns frrvLaunchDebugger when somebody hits the 'debug' button and it is then up to you to do the launching. Are you sure you're not just seeing the exception go all the way out to the Unhandled Exception Filter provided by the O/S, which itself calls ReportFault() and knows how to launch the debugger Tag: duplicating VBA objects
  - 14
    - Access Data Project, form bound to Sproc, need to update, etc I have an Access Data Project. SQL Server backend, access forms. I have a form bound to a stored procedure. The storede procedure is based on two tables. The form needs to update and delete records in one of the tables. I set the Unique Table property to the table I need updated. When I try to update a record I get the error'This recordset is not updateable" It worked fine when the record source was he table. The second table can remain unchanged and it's field should be read only Does anyone know how to hook a form up to a sproc I have tried several solutions, but can't find the one that works. Mike Tag: duplicating VBA objects
  - 15
    - Conditional Formatting Problem/Bug? It should work fine. It seems like you're not applying the .Select property to let the code know how or where to apply the code. Try objxlSheet.Range("A1:A5").Select Then all your with block Adam Tag: duplicating VBA objects
  - 16
    - Creating new table in Access 2003 Dear, I would like to pick up few rows from existing table in Access 2003 and put them into new table via VBA. Any solution Thank you in advance! Tag: duplicating VBA objects

gilad_gy

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.

Top

Re: duplicating VBA objects

Andy Pope

Hi,

You can add controls at run time with code like the following.
Private Sub UserForm_Initialize()

Dim cntTBox As MSForms.TextBox

Set cntTBox = Me.Controls.Add("Forms.textbox.1")
With cntTBox
.Name = "textbox11"
.Top = textbox10.top + textbox10.Height + 3
.Left = textbox10.left
.Text = "hello World"
End With

End Sub

Top

Re: duplicating VBA objects

gilad_gy

Hi,

well that is a great code thanks for that.

i'm having a trouble to remove a Object....

a few strange errors occurs....

i'll be happy if you could help me with that...

thanks gilad.

Top