Topics Tagged with visual-basic-6

Can anyone help me to create a code to count how many words that are greater than 6? I am creating a readability test to calculate number of words etc. from three differente txt files. This is from my third and last private function. All help appreciated big time! :) I have translated some of the words in the coding to make it easier to understand what it does... Option Compare Database Option Explicit Private Const ordDeler As String = ",:;.!?" `Private Function findLongWords(ByVal bok As String) As Double Dim tegn As String, fil As String, linje As String Dim …

Hi, Front end Vb6, back end.. access... connection.. ODADB... can someone please help me with the code for login and password.

i somehow got the gist of adding items and filtering the already inputted ones but i cant seem to know how to start a loop where the code searches for similar items in the listbox before adding new items. when trying to run my code, it does filter out the similar items yet it still add info/items in the listbox. below is a a part of my code. If counter = 1 Then lstboxProd.Items.Add(cmbBoxSel.Text) lstboxPrice.Items.Add(txtPrice.Text) lstboxQty.Items.Add(txtQuant.Text) lstboxTotal.Items.Add(txtPrice.Text * txtQuant.Text) counter = counter - 1 Else For index As Integer = 0 To lstboxProd.Items.Count - 1 If cmbBoxSel.Text = lstboxProd.Items.Item(index) Then …

Ok I have a workbook that have 5 worksheets for a 5 year span. On each of the worksheets are there is a list of countries that make up the combobox (which works perfectly). On my userform I have a frame on the userform that represent each worksheet. **My problem is that I can't get the textboxes to populate based on the combobox selection. If that country is on three of the sheets I need for it to populate according to the year.** This code works perfectly with the exception of populating my label boxes with line one starting with …

I am a drafter using autocad and I know a littttttle bit of VB6. We just happen to have it installed on our computers and I wanted to create an application that can do this: 1. Takes the # input from text1 and text2 and waits for the user to hit "Ok" (command click) 2. Upon clicking, the information from Text2 gets multiplied by 0.75, and the total sum is then compared to Text1 with a less than or equals to equation. 3. the comparison then Decides if the sendkeys will say "G152B" or "CB152B" to Notepad Without words i …

I am working on the workshop selector in Visual Basics 7th Edition chapter 5 and I just can't get the calculate total button to work after trying numerous different codes. Here is the criteria for the program. 3 list boxes, 4 buttons, 2 labels. The application allows the user to select a workshop from lstWorkshop, Then select a location from lstLocation. Next btnAdd takes the selected workshop and location attached to a set amount of days and a registration fee and multiplies the days by a Lodging fee and outputs this number in dollar form. After multiple workshops/locations have been …

How we can a make a setup file in vb6 as other software need to install ( Like need a product key to Install )

Hi, I run a VB6 programm that open Excel.xlsm I close the VB6 programm Excel.xlsm is always open I run a VB6 programm How can I work on the already ope n Excel.xlsm and not open an other Excel.xlsm? My OS = Windows 10 Thanks in advance for your help Jean-Claude

I have an Epson receipt printer (Model number: TM-T88V), but I cannot use it. I do not have a POS (point of sale) software that will let me do what I need to do, nor do I have the knowledge I need to understand the developers guide manual that comes with the printer. Seen here: (https://files.support.epson.com/pdf/pos/bulk/epos-print_xml_um_en_revk.pdf) I want to make a receipt that looks identical to a competitor company, but with my own information; e.g. different items, prices, and logo. I have the same exact printer as them, and they use the printers default font. This font however is built …

Hi, I have one doubt. I did creat a new software from vb 6.0. Database management system. I am using MS access database. that is saved and connectivity in my C drive. And I did out put the exe file. What i need na, i did install this software one of my computer and another one computer ( 2 systems). But when i am use that software from 2nd computer then the data need to save first computer(But i am using Access database connection path is my first computer). how can i solve this. pls help

Private Sub btn_addc_Click() On Error Resume Next If Me.txtAddc.Text = "" Then MsgBox "Please fill up", vbInformation, "ADD CATEGORY" Exit Sub End If If Me.btn_addc.Caption = "ADD" Then If rs.State = adStateOpen Then rs.Close rs.Open " Select * From tbl_category WHERE CategoryList ", db, adOpenStatic, adLockOptimistic If rs.RecordCount > 0 Then MsgBox "The Category you have entered is already Existed", vbCritical, "Error" btn_refresh_Click Me.txtAddc.Text = "" Me.txtAddc.SetFocus Else With rs .AddNew .Fields("CategoryList") = Me.cmb_addc.Text .Update End With MsgBox " Category Successfully Added.", vbInformation, "CATEGORY" btn_refresh_Click End If End If End Sub

Hi, I got a project to load a pdf into a picturebox in vb6. How do I handle that? Is there anyone who sell that .ocx? is there anyway to do it? Thanks

Dim Values As Range Dim CurrentSheet As Worksheet Set CurrentSheet = ActiveWorkbook.ActiveSheet Set Values = Rows(5) For j = 0 To 20 For i = 1 To Values.Cells.Count - 1 Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _ Formula1:="=Delimit2!$A$" & i, Formula2:="=Delimit2!$B$" & i Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Font Color = -16383844 TintAndShade = 0 End With With Selection.FormatConditions(1).Interior PatternColorIndex = xlAutomatic Color = 13551615 intAndShade = 0 End With Next i Next j In this I code, I would like to increment column A to C and B to D after For loop of i gets over.

Hi all.. How i can make a report without using database. Data can directly from the active form. Thank you in advance

Hi, I need to convert a binary notepad file into a text (readable) file using VBA. Is this possible with just using VBA code? If so what would that code be? Thanks

Hi Folks, This is Raghuveer I am very new to the vb programming I need to display the data in flex grid.Please give me the guidence

Hi, guys I am working on vb project, which will save client database. I've done the coding of ADD, NEW, SAVE, EDIT button. Now, I am stuck at DELETE button. When I delete any particular client then I want my client_id (it's a column in my access database) should get updated (like if I have five clients in database and if I delete 3rd client, then the client_id should start from 1,2,3,4; not like 1,2,4,5) I am using ADODB and Ms-access at backend, please help!!!!! for DELETE, I've done following coding: [CODE]Private Sub cmdDelete_Click() If rs.State = 1 Then rs.Close …

Hey, M designing d RFID based LIbrary management system. For d same i have designed n entire software in VB6.0 and DB as MS ACCESS.. A RFID reader will b connected to a RS232 port of computer.. so weneva a TAG is detected by RFID reader, the information of dat tag should gotta save in VB forms and Feild FOR EXAMPLE:- Tag detected!---> fields like STUDENT NAME BRANCH unique ID fields should logged Private Sub Command1_Click() With MSComm1 'make sure the serial port is open If .PortOpen = False Then .PortOpen = True 'send the data (including a tailing carriage …

How to add, subtract, multiply and divide 2 different numbers from 2 different form. Pls help me. The code i think is way too simple example: (Result.text = result) (Text1.text = number from form2)(Text2,text = Number from form3). the code i think is like this and this one is not working: Public Sub Command1_Clicked() Result.text = Val(Text1.Text) + Val(Text2.text) End Sub Pls help me... i cant sleep because of this problem.

Dear Fellows, I have an Inventory Management System and a Point Of Sale. App is working well on a local network. But now i would like to connect my Point Of Sale app through internet to another computer another city where the Inventory Management System with Acccess 2003 Database is installed. How Can i Share My Access 2003 Database Through Static IP and How Can I Fetch or Save Data From my POS to shared database. Please Help. Thanks

i have started system calculater in vb.net using process.start() method but i want to retrive it s value in textbox , how can i do that

I'm new to daniweb community.it seems to be veyr useful.hope now someone wil definetely help me solve my problem in vb6. I've a combo box that displays the name of the customers and also a text box that must display the number of the customer.. but in my project i'm able to display the name of the customer in the combo box but the value of text box is not updated.. i'm using ms access as back end.. could any one pls help me with code

hi im trying to generate autonumber in visual baic 6 using data control can any oe help me

it means if user insert "n"(number of case) in textbox than click the "Next" button, in datagridview set to "n" number of rows. i don't know what code i use, please help me, please check attach file, thank you so much

How to can i do like this: datagridview1.row [i] = input value , and results(calculated) in datagridview2's row[i] = output value. it means input row and output rows are neeb to be same. i need to connect them. please help me.

1.PLease help me, How to call input values from datagridview.(unlimited rows) I tried this coding, but it's not working, didn't show any answers. private void dataGridView10_CellContentClick(object sender, DataGridViewCellEventArgs e) { for (int i = 0; i < (dataGridView10.Rows.Count); i++) { DataGridViewRow row = dataGridView1.Rows[i]; groundproperty[0] = Convert.ToDouble(dataGridView10.Rows[i].Cells["Column1"].Value); groundproperty[1] = Convert.ToDouble(dataGridView10.Rows[i].Cells["Column2"].Value); groundproperty[2] = Convert.ToDouble(dataGridView10.Rows[i].Cells["Column3"].Value); groundproperty[3] = Convert.ToDouble(dataGridView10.Rows[i].Cells["Column4"].Value); groundproperty[4] = Convert.ToDouble(dataGridView10.Rows[i].Cells["Column5"].Value); groundproperty[5] = Convert.ToDouble(dataGridView10.Rows[i].Cells["Column6"].Value); groundproperty[6] = Convert.ToDouble(dataGridView10.Rows[i].Cells["Column7"].Value); groundproperty[7] = Convert.ToDouble(dataGridView10.Rows[i].Cells["Column8"].Value); groundproperty[8] = Convert.ToDouble(dataGridView10.Rows[i].Cells["Column9"].Value); } } 2. Second quistion in groupbox of 'OUTPUT VALUE' didn't changing, just showing one row, how can i do ? i need, if user insert unlimited case of …

hi, i want to automate visual studio 2015 from an external VBA to build a solution, and i do not know what should i do , automate directly vs compiler or i should automate IDE, who can help me with advice and source code yosri.bensalah@outlook.fr

Hello im having trouble with my code ! we are asked to organize a list of names from a text.txt file the make them show up into a lits box (got that part down :) ) . then from the list box we are asked to create an array and sort that array (using our own sorting method) and organize the names using a button in assending order and another button organizing the array in decending order. the results from the orders names should appear in another list box . i have gotten only the last name in the list …

can you please help me in vb6. The program is like this: In the program you want to search a name in the databse. In order to do that you must enter a value in the textbox and click the search command button. can you help me guyss!! geezz thank you

Dear All , I am working on a project which will read a 1d barcode by a barcode scanner and once barcode is scanned this barcode will turn to product description and picture of the scanned product on the screen. The aim is to show product details ( use, ingredients , picture ) once barcode is scanned. How such project can be realised. Thanks in advance. Eddy Garcia