Visual Basic 4 / 5 / 6 Forum

I am trying to count every single click i did in the command button. And all i want to ask is what will the code be? I want to do like this: If a click once, a message box will appear that i have clicked it one time like that. Please help me :)

Private Sub Yes_Click() Sub StandardSpecs() ' ' StandardSpecs Macro ' ' Range("D11:E11").Select ActiveCell.FormulaR1C1 = "5/12 (Std)" Range("D12:E12").Select

I am trying to perform a macro that adds a new column, then put a formula in the columns to find a certain word I am looking for. Everytime I rerun the macro, it inserts a new column, which I dont want to happen. I want the macro to insert a new column, then keep that column to display the results of the formula. Does anyone know how to do this?

Am creating a lodge management system and my system is not able to reduce the number of rooms when one checks in and when they checkout it doesn't automatically add.please help me with the codes am using VB6.0

dear sir my record is to be print like this: - chemical name chemical code basic chrome sulphate bC001 .......... ..... .......... ..... Nearly hundred of chemical name with code is to be dislayed, i am using

The script below is designed to send an email when file appears in a folder; the subject is set to the filename and the body includes the file path. If I run the script from my C drive, the email is fine; if I run it from a server the email has a blank subject and no filepath. Does anyone know why? Thank you strRejectionsSourceFolder =...

I have this problem with my Autocompletion program in VB.NET where you cannot delete text after Autocompletion because once you do that, you cannot be able to Autocomplete again: The cursor gets very sticky when you press the backspace to correct an error. Sometimes the words are hidden and you cannot see what you're typing after deleting...

How do you add Scintilla in VB 2010?

im trying to create a car park system but my MDIform 1 has an error. here is my codes. Private Sub MNUADDUSER_Click() MDIForm1.Hide FRMMANAGE.Show End Sub Private Sub MDIForm_Lo() End Sub

I have two tables; tblTime,this contains the emp#, Date, start time and end time. The 2nd table, tblUnits contains the emp#, Date and individually time stamped unit quantities. I need to add the units between the start and end times. Not sure how to do this. I've attached an Excel file showing what I'm working with.

Hello every one. i am trying to catch duplicate values from a data. in the picture when i want to add new record, then if the record already exists then go to that record and fill all the boxes, then i will press the update button,but if not, then add new value. field is indexed. Capture.JPG! so how to code that? i need it very much. here...

Hi, I am writing a program that uses, if this, then that or else move to next answer. I want to make all answers go to only one box to view answers. Right now I have to use several labels, one for each 2 questions, so when they hit calculate, it shows up on several lines and some are not in line, ( will skip a label box to the next label)

I have made two table in Ms Access (a) Product Information (b) Sell Information. "Product Information" Contains those fields. 1. Product ID 2. Product Name 3. Category 4. Purchasing Price 5. In Stock "Sell Information" Contains those fields. 1. Sell ID

Hi To give a bit of background this is an asset register for all assets and pat testing database in one. Two tables concerned are asset register and risk assessments. The reason the tables are separate is because not all items will need a risk assessment. I have a form for adding items to the register which has multiple tabs the first one...

I would like to automate a data entry part on a website however the site is constructed with VIEW STATE hidden, please advise how to read values from View State through VBA? I would like to have all the input fields name so that I can push the data through code Thanks in advance

I'm trying to get the row indices based on my multiple selected cells on a DataGridView. How can I do that in VB.NET? This is what I have:If e.RowIndex >= 0 Then Dim row As DataGridViewRow row = Me.DataGridView1.Rows(e.RowIndex) sno.Text = row.Cells("F2").Value.ToString sname.Text =...

to find a first digit of number with output in visual basic studio 6.0 plzzz give me program this question

Hi from a novice. I have a written a Vb macro to copy a formula with variable NAME elements but don't know how to use the F2 key in conjunction with the F9 key followed by enter to convert a concatenated text string to a formula. See below: Cell E38 '=IF(I42="S";IF(VALUE((+B42-(INDEX( Cell E39 'Barclays Cell E40 ';COUNTIF(INDEX( Cell...

have created a form in which i call other forms from the main form .. When i click a particular button twice there is an error .. Can anyone help me to solve my problem.. The error is::: ERROR 3705 "Operation is not allowed when the object is open"... Here i am l posting the code so that you all may get some idea... Dim Connection As...

Set rs = New ADODB.Recordset ssql = "Select * from tblorder WHERE CustomerID ='" & custid & "'" rs.Open ssql, conn With rs If .RecordCount > 0 Then Do While Not rs.EOF cbodelete.AddItem = rs.Fields(productsize) .MoveNext Loop

EL_SUCCESS = 0 EL_ERROR = 1 EL_WARNING = 2 EL_INFO = 4 EL_AUDIT_SUCCESS = 8

How to make a timetable system in vb 6.0? I want steps and some codes

I am trying get the input box name and feed some data in a webpage. The website I am trying to work is not showing an details about the elements due to the VIEWSTATE set to hidden. I read some articles that Page.prerendercomplete will helps to identify the objects before it moves to VIEWSTATE hidden status. Please advise whether I can get...

I have created a table in oracle by coding it in vb 6.0 ... using Con.execute "create table <table name> I want to replace that with a text.text Help me with the code

I have been trying to use a command button in Access to print a report to the default printer without showing the printer selection screen first. I finally got it to do that using the following code that I found from someone else on your site... Private Sub Command29_Click() DoCmd.OpenReport "rpt_stamp_label", acViewNormal, , , acHidden ...