10,991 Topics
 | |
| | I have 2 radio buttons on my form which are both different forms of tax. I have a label which has the amount of money i need to multiply the tax by depending on which radio button the user chooses. 1 radio button has tax of 16.5% and the other …  |
 | One of the most important things to understand when automating office, is that it's heavily [search]OOP[/search], and therefore you are forced to work with objects. In order to create an object that is external to your application (for example an office application, whereas a button or textbox would be internal …  |
 | Hi all, How i changing the color of label caption dynamically, so it looks like highlight text changing color. Thank you. |
| | Hi! I need help for my program.. I add a search the Adodc in my program with a combo box category, but when i run the program and search... the category "ID" not searching.. this is my codes [CODE] Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "Type To … |
| | I want to add a new PropertyGrid control every time an item is added to a ListBox. I have a ListBox, with an "Add Item" button underneath (and also a "Remove Item" button). Every time an item is added to the list, I want to create a new PropertyGrid corresponding … |
| | Can anybody help me in filling an Access database table in one field from a serial port using VB 6.0.Data coming from the serial port can be seen in the VB text box line by line.I want to store every line under a field and can manipulate.How can i use …  |
| | i have a form with a listbox. the listbox can be edited (things added/deleted) and when the form is closed i would like the items in the listbox to be saved when the red "x" in the top right corner is clicked any ideas? |
| | Hi! Please help me with my search functionality...searching using textbox and retrieving the data into a listview. here is my code: [CODE]openrstJCcaseInfo "select * from JCcaseInfo" If Not rstJCcaseInfo.EOF Then caseinfo.ListItems.Clear Dim m With rstJCcaseInfo While .EOF = False If LCase(txtsearch.Text) = LCase(rstJCcaseInfo.Fields("CaseTitle").Value) Then Set ls = caseinfo.ListItems.Add(, , rstJCcaseInfo.Fields("CaseStatus").Value) … |
| | When Creating a query using the sear Criteria Builder . I keep getting the error : " The schema returned by the new query differs from the base query " I no this means that the error is due to the query attempting to return too little columns i have …  |
| | please help me on my school project it is called "faculty evaluation system" my project is used to evaluate faculty members,i will use the following softwares, visual basic 2008 editon, ms sql server 2000, and crystal reports, what i want to do is their will be a question and it … |
| | whenever i run my code it says method or data member not found my code is such Private Sub cmdConnect_Click() Dim lngComPort As Integer Dim lngMachineNum As Integer Dim lngBaudRate As Long Dim bConn As Boolean Me.MousePointer = vbHourglass If cmdConnect.Caption = "Connect" Then DoEvents lblStatus.Caption = "Connecting Device..." lngComPort … |
| | Hi, I’m looking for a VBA code which would analyze 2 Excel tables from one Sheet and build up a new one in separate Sheet. Basically one table lists folders and groups granting access to those folders; while the other one lists Groups and its Members. Here’s how it looks …  |
| | in form1 i have two listboxs listbox1 listbox2 loadbutton and savebutton this code will write listbox1.selecteditem into a txt file and loadbutton will load info in listbox2 but i want when i click loadbutton it check if that item is already exist in listbox2 , if not so write selected …  |
| | Hey everyone, I am lost on the exception that I have getting thrown at me right now. SqlDateTime overflow. Must be between 1/1/1753 12:00:00 AM and 12/31/9999 11:59:59 PM. What I am trying to do on my site, which is Windows Authenticated on an internal network, is capture the users … |
| | I am trying to add a button to outlook's tool bar using a Macro.The problem is that the button appears but on clicking it nothing happens,I suspect I am supplying parameters wrongly to the OnAction method. The call[CODE]Call AddToolbarButton("My very own button", "Click here", "!<Sub/UserForm>")[/CODE] The method it's self: [CODE]Function … |
 | Hi all I need help with connecting to and manipulating a microsoft access 2007 database using code in visual basic 2008 express edition. It's for a project I'm doing for University that's due on the 12th of October:S. Please help me out in whatever way you can - links to … |
| | How to connect the radio button to a listview in an examination system, whereas if you click a radio button of your choice as the answer of respective question and numbering..the answer will be shown to the listview control that serves as my answer sheet? |
| | How to connect the option/radio button to listview control using ADODB connection? That is,right after when you click a radio button as the letter of your choice..then it will automatically shown to the the listview control as the answer sheet..for the respective question..and numbering..? Using the VB 6.0.. Example: 1. … |
| | I have a proble. How can i call andd compute all the record in may database(MS Access) Please gave me some idea or Code Thx |
| | I have a listbox and would like to save the items added/deleted when the form closes. any ideas? |
| | [CODE] Public Function removespace(ByVal strtext1 As String) As String If Not Len(strtext1) = 0 Then For K = 1 To Len(strtext1) If Mid(strtext1, K, 1) = Chr(13) Then strtext1 = Replace(strtext1, Chr(13) & Chr(10), ",") End If Next Else strtext1 = "" End If removespace = strtext1 End Function[/CODE] |
| | [CODE] Public Function AddSlashes(ByVal chk1 As String) As String [COLOR="Red"]Dim ss As String Dim ss1 As String Dim spl As String Dim i1 As Integer Dim j1 As Integer[/COLOR] spl = "$':<>[]{+}""\" ss1 = " " Dim l As Integer Dim chk As String ss = chk1 For i1 = …  |
| | How are you, I need some help with the following code (Attached Form1 & AccountClass). I am trying to figure out the following: - Figure out the code in ButtonWithdrawal when the amount is bigger than 0. - Show the (Balance) in ButtonBalanceInq. - Show the List of transactions in … |
| | below is a link for my screenshot [IMG]http://www.fileden.com/files/2008/3/26/1838035/Pictures/vbkoh2.jpg [/IMG] in my sreenshot it must print all what it is in in column1 which is: aaa bbb ccc [CODE]DataReport6.Show DataReport6.Sections("Section2").Controls("label1").Caption = DataGrid1.Columns(1) [/CODE] plz help.. tnx.. :)  |
| | hello guys ! here's my code , how can i put my data into adodc2 from adodc1 ? look .. there's some error there .. do help me .. Private Sub Command1_Click() Frame3.Visible = True Frame1.Visible = False Frame2.Visible = False Text3.Text = Val(qtyOnHandTxt.Text) * Val(Text1.Text) End Sub Private Sub … |
| | Hi, In the following code (Class & Form1), I'm trying to figure out the following: - Create an array that stores the 'Clients' (first name, last name, account number) - 'Button List' the array with the (First Name , Last Name , Array Value , Account Balance) I attached the … |
| | Hi, I am trying to "Show" an error message for the user in two cases: 1. If he/she did not enter a correct value for a String. 2. If he/she did not enter a correct value for a Decimal. I know I have to use Try & Catch but each … |
| | Hello, I am trying to make a random number generator (its not really a random number generator, more a random order generator) that puts the numbers 1, 14 in a random order, without duplicating the numbers. That is the problem I am having it will often select the same number … |
| | hie..I've bin working on a program that reminds other students how many days are left to write the final examination,including weekends.....this program is supposed to read as from now onwards up until 23 April 2012........help me with an idea of interface and program Code |
| | Hello guys! Can you help me this type of error? Run-time error '8574': The object 'Employee ID:' was not found This is the code: [CODE]Private Sub cmdPreview_Click() Dim rsq As New Recordset rsq.Open "SELECT * FROM qRecord where EmpID = " & Val(txtEmpID.Text) & "", con, adOpenStatic, adLockReadOnly, addUnknown If … |
The End.