Visual Basic 4 / 5 / 6 Forum

I AM VERY NEW TO THIS VBA/MACROS. I GOT NEW JOB AS VBA PROGRAMMER. HERE IS MY QUESTION I HAVE ONE MAIN FOLDER IN THAT I HAVE 10 SUB FOLDERS, IN EACH SUB FOLDER I HAVE 10 WORKBOOKS. NOW I NEED TO COMBINE ALL WORKBOOKS INTO SINGLE WORKSHEET. I WROTE A CODE WHICH WORKS FINE BUT IT ALSO OPENS SOME XML DOCUMENT ALSO, NOT SURE WHY IT OPENS...

hi guys, i want to add attempt onto my password so that the person login in only has a limited amount of attempt they can try to enter the corret password but I have no idea how to do it can someone guide me on how to do it. this code works fine if the person makes a mistake. (It does not let the person log in but it does not give the person...

Hi, I have a spreadsheet filled with an employees' checking times. I want to remove the bottom and top ten percent of checking times per day. However, there are hundreds on days within the spreadsheet and all the days are in the Date Column. I'm assuming a if - percentile function would be the best way to isolate these bottom and top times but...

I am trying to complete an assignment and I am stuck on correctly keeping a running sum of items as I add them to a ListBox control. Can anyone show me a code snippet that would do this? Each time I add a new item the previous total (sum) should be added to the new item to keep a running total. thanks.

I have a messagebox that asks if I want to delete a specific ebook from my listbox. The message says, "“Do you want to remove the x eBook?” the x needs to be the title of the book selected. This is what I have: Private Sub btnRemove_Click(sender As Object, e As EventArgs) Handles btnRemove.Click ' removes the selected line from...

I have a messagebox that asks if I want to delete a specific ebook from my listbox. The message says, "“Do you want to remove the x eBook?” the x needs to be the title of the book selected. This is what I have: Private Sub btnRemove_Click(sender As Object, e As EventArgs) Handles btnRemove.Click ' removes the selected line from...

I'm new to programming and got stuck with an issue and was wondering if you could lend a hand. I have an Access database I'm building a front end for in VB 2010, I was able to connect to the database to retrieve records. I built a search feature and was able to find records with it, but I have searched and searched the web and can't find the right...

I need help whit a problem when i try to test my program this message appears C:\Users\Ivan\Desktop\empresa.bas(404) error 124: Expected 'END SUB' in 'End Sub' Here you have that part of the code: Sub IncrementarS() Dim X as Double CLS Input "Dame la clave del empleado al cual se le va a incrementar el sueldo",...

I need help whit a problem when i try to test my program this message appears C:\Users\Ivan\Desktop\empresa.bas(404) error 124: Expected 'END SUB' in 'End Sub' Here you have that part of the code: Sub IncrementarS() Dim X as Double CLS Input "Dame la clave del empleado al cual se le va a incrementar el sueldo",...

i built a small dictionary of words for this purpose but highlighted words allways dissapear from the rtb after the keypress_event?Help!!

I want to know the answer because I can't finish my project the error say "object required" This is my code Frec.Open "select * from " & txt1.text & " where " & txt4.text & "=" & "'" & txt.5.text & "'", newcon, adopendynamic, ad lock optimistic Set txt2.datasource = frec Txt2.data field = "emp_I'd" Set txt3.data source = frec Txt3.data...

I am trying to get the answers to a multiplication problem into a simple list box. The answers should be 1 2 3 4 5 6 7 8 9 10 2 4 6 8 10 12 14 16 18 20 3 6 9 12 15 18 21 24 27 30 4 8 12 . . . 45 50. Here is my code: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click For i As...

: Unknown error. ; Press "OK" and I get: Run-time error '-2147467259 (80004005)'" Method 'Refresh' of object "IAdodc' failed

How to display a 3 arrays in a single label? as in: dim roll(3)as string roll(0) = "Yellow" roll(1)= "red" roll(2)= "green" So I want to display yellow,red and green in a label how do you do it?

how we split a string like if string is even (abcdef) then print afbecd or string is odd (abcde) then print aebde@

http://www.mutuissimo.it/iban-x.asp Based this url i need to get all value in the form of result, after i click on button:calcola cin e iban for test use: Codice ABI (es.: 01005) Codice CAB (es.: 73980) Conto corrente:01578

Hello. I am currently working on a macro for Word that will: 1. Copy a selection 2. Open Excel (loading all add-ins) 3. Paste the selection on Excel. The difficulty I have with the code below is that the add-ins do not load when the instance of Excel starts. Any help would be appreciated. Sub Exportwordtoexcel() Dim wordDoc As...

Why am I getting an error "Sub or Function is not defined"...Here is my code Option Explicit Public Report As New CrystalReport1 Public mvCn As New ADODB.Connection Public Function printReport() Dim strConnectionString As String Dim rs As ADODB.Recordset Dim strScript As String

The codes are working in admin account, but in user account once the Main form is close and open again all the button are already enabled. Please help. thanks Private Sub Form_Load() On Error Resume Next If Not IsNull(Me.OpenArgs) Then Me.lblUserType.Caption = Me.OpenArgs Me.cmdLogout.SetFocus Me.Caption = " "

I am using micro soft rich text box control 6.0 in the visual basic form. i am using the mangal font in that control. when i wrote some thing in hindi language it will display correctly but when press the space bar the "space will not appears" when i pressed it one more time a space a appears. please help me how i wrote by using the...

Hi, this is my first post so hoping I do this right. I am trying to run a SUB in Microsoft Visual Basic for Applications, but I keep getting the following error: "Compile Error: With object must be User-Defined Type, Object or Variant." The SUB is attempting to freeze panes in many worksheets within an Excel workbook (Excel 2010). This is the...

Hello, I'm totally lost with 2 issues, reason for which I required you help. 1. I have a main form with unbound fields and a subform (with this I'm writing data in tbl). What I'm doing is to call in a subform field, a data from main form. I did like that: On an "save" button I add the code - Forms!Invoice!.Form! = Me!Invoice_number.Value...

Option Explicit Sub createPDFfiles() Dim ws As Worksheet Dim Fname As String For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Fname = "C:\Users\User\Desktop\Test1\" & ActiveWorkbook.Name & "-" & ws.Name

Hi guys, i am writting this vb.net 2012 program connected to local sql databse that is to track the time in which a staff comes to work for that day and time in which he/she close for that day by the staff enter its id number, and at the end when the admin login, he/she will she the resumming hours and closing hours of all the staff. thank you,...

i am using visual basic 6 sp6... i want to include an AniGif.ocx file to play a gif file but it gives an error of "this OCX not registerable as activeX component"..... how can i resolve it