AndreRet

This part is incorrect, change code - > SQLReceiptService = "select * from ReceiptService Where Service = " & txtreceiptno SQLReceiptService = "select * from ReceiptService Where Service = '" & txtreceiptno & "'"

a Few things... First the question, you do not have code within the option1 part of your if statement to update the record. You do have it in the option2 part though. Change the code to - If Option1.Value = True Then Option1.Caption = "Female" ''rs!Gender = Option1.Caption You do …

Why don't you just add the text to the textbox txtdel when a user selects a value in combo box? ''In combo click event... txtdel.Text = cmbCombo.Text ''Assuming thats what your combobox is called... Now make the connection to database, open recordset, get the value and save it ''Database connection …

You would use something similar to - MyCell = ActiveCell.Address

Depends on where you are loading from. I have 2 TB full of music (142000 songs) and another 1 TB full of videos (91000 videos) including kareoke songs. I tend to change my playlist as I go along. :)

What code do you have at the moment?

As for the original poster, I have asked that this be moved to vb.net.

Add a string value to each and just add them all together - ''In the top of your code window just after Option Explicit, the following... Dim strOne As String, strOption As String, strResult As String, strAll As String In each controls events (checkbox_click, Option_click etc events) strOne = TheStringSet …

That is because you have used LIKE in your sql statement and not = . What it does is when you search using like, it will search ALL records where there is a match. Say strID = kim1234 it will return all records containing k, i, m, 1, 2, 3, …

You can still use this in one form load event, not recomended though - res usage overload... ''For FlexService... Set connS = New ADODB.Connection Set recS = New ADODB.Recordset Set recS1 = New ADODB.Recordset Set recS2 = New ADODB.Recordset Set recS3 = New ADODB.Recordset ''Open recset from same tables here …

Copy your ocx over to the SySWOW64 folder. It handles ALL win 32 dll and ocx files. It will NOT run from your system32 folder. Also, register it via your command prompt. The error means, Error accessing the OLE (Object Linking and Embedding) registry. You need to copy the MSCOMCTL.OCX …

Dani who??? OH, Dani Horowitz ;) She made all of this possible. Makes me look like a demi-god lol. Only joking. Few people ever say thank you Dani - THANK YOU - 5 years down and I STILL enjoy it here!!!

I had a darts tournament with some buddies on valentines day, Told me wife that I HAD to go to this but that I made a booking for a full on womens treatment on the saturday, only time they were open for an open booking. IT WORKED!!! I had an …

@Diafol - AND some afrikaans, I now for sure!! For me, I can speak in any language you like. If you do not understand me, I know what I'm saying (normally at 02:00 in the morning at a party) :)

This is normally where I will start using public variables... In a module add the following - Public strUsername1 As String, strPassword As String, strLogout_Date As String, strLogout_Time As String ''Note, string values used, you have already formatted all dates and times etc... In your logout form - Private Sub …

The OP mentions $19 in his heading, $9 in his post and then $10, seems that we want to make some money, not sure how much. I am from the old school, chores are still the best to achieve this if it is only a few bucks. No pc will …

Simple art seems to be the way of the world right now, here's mine... ___ ----- ____ by johnny walker - walk the line ;)

> conn.ConnectionString = "Provider=Microsoft.Jet.OlEDB.4.0;Data Source=" & App.Path & "F:\my computer project\ParlourDesign.mdb;Persist Security Infor=False" This is your problem right here. You are telling the connection to go to your app whilst you refer to an F drive as well. If your app is on f drive, its trying to open to …

Have a look at [this](http://www.planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?txtCriteria=library+inventory&lngWId=1) link with plenty of sample code from planet source code...

Not sure what you are asking... Is it a number that you want to break down into chunks i.e. 1250 will return 1000, 200, 50?

Label2.Caption = Format(Now, "hh:mm:ss") Or... Label2.Caption = Format(Time, "hh:mm:ss")

Form1.Text1.Text = Form2.Text1.Text Unload Me ''Form1 is your main form, form2 is the form where you get the data from. After you have the data, close the form...

I actually had the same scenario a while ago. There is no real solution to your problem because of admin right and non-admin right users. There is some software that you can use to protect a folder but that will mean that you have to run 3rd party apps to …

The error refers to a naming convention where the spelling is incorrect. Gio through your code and double check all database names, table names and field names where the calls are made. There is nothing wrong with your dll, its the call to the database that is returning an error.

Do the following... Private Sub txtContact_No1_LostFocus() On Error Resume Next ''This is bad coding, rather do proper error trapping (my 2cents worth :)) If txtContact_No1.Text = "" Then MsgBox "Fill up the field to avoid error.", vbOKOnly + vbInformation, "Employees" txtContact_No1.SetFocus Exit Sub ElseIf Not IsNumeric(txtContact_No1.Text) Or Val(txtContact_No1.Text) <= 0 …

I normally like to break things down into steps, better to keep track if things start going wrong... If Not rs.EOF Then lblAllowable.Caption = Round(Val(lblRate * 30 * 0.4), 2) lblAllowable.Caption = Format(lblAllowable.Caption, "#,##0.00") Ado.RecordSource = "Select Lastname, Firstname, Middle_Initial, Rate from Employees where Employees_IdNo Like '" & txtSearch & …

Try the following... Private Sub cmdSearch_Click() Set rs = New ADODB.Recordset rs.Open "Select Lastname, Firstname, Middle_Initial, Rate, Date_Hired from Employees where Employees_IdNo Like '" & txtSearch & "'", cn, adOpenKeyset, adLockPessimistic If Not rs.EOF Then Ado.RecordSource = "Select Lastname, Firstname, Middle_Initial, Rate, Date_Hired from Employees where Employees_IdNo Like '" & …

Please show is all the code where you ask the sock to listen for data and where you catch the arrival of said data.

[This](http://www.google.co.za/webhp?sourceid=chrome-instant&ion=1&ie=UTF-8#hl=en&tbo=d&sclient=psy-ab&q=edit+or+delete+row+in+datagrid+in+vb6&oq=edit+or+delete+row+in+datagrid+in+vb6&gs_l=hp.3...81439.102006.0.102185.37.24.0.0.0.0.1809.12711.5-1j2j4j3.10.0.les%3B..0.0...1c.1.2.hp.ABxdnCZD4q4&pbx=1&bav=on.2,or.r_gc.r_pw.r_qf.&bvm=bv.42080656,d.d2k&fp=ec500416a05f8c7d&ion=1&biw=1280&bih=909) link will return tons of links to the exact solution for your problem. Unfortunately we do not supply code without showing us some of the code you have already. :)

I agree with Jim on this. Also making use of silent downloads. Obviously the necesarry approval was obtained when a new installation was made to a client. After that it is our responsibility to see that the app runs 100%. @TnTinMN, agreed. All the installer has to do is to …

Change this part... Set DataReport1.DataSource = rs If Not rs.EOF Then DataReport1.Sections(4).ForcePageBreak = rptPageBreakAfter DataReport1.Show rs.MoveNext End If to ... If Not rs.EOF Then Set DataReport1.DataSource = rs DataReport1.Sections(4).ForcePageBreak = rptPageBreakAfter DataReport1.Show rs.MoveNext End If I am not sure why you would want to show 40 seperate report pages though. …

I would use an if statement to check if ñ has to be entered if just n was pressed... If KeyCode = vbKeyN Or KeyCode = vbKeyn Then ''code to convert to ñ ... End If Code to convert to symbol, I would imitate the alt key press event with …

What code do you have so far? You will be making use of inner join statement if you have primary keys set to your tables fields.

This is C code. I have asked that it be moved to C...

If you say analizing the code, do you mean the actual code itself? Also, what would you like to check? Is the app crashing? Is the app running but slow? etc...

Which means that you have a problem with resizing and not screen resolution. Give us a bit more info please or a picture etc.

What is your table name and the fields that you need to get the data from? Once you have clicked on the combobox you have a value that you can search from now. Make the connection to your database, create your sql statement to search the table with the returned …

You can use the format function - Text1.Text = Format("0.3195", "#00.00") You can also try - Left(cStr("0.3195"), instr(cStr("0.3195"), ".") + 2))

What does the error say?

Same as per your previous post, have a look at [this](http://www.daniweb.com/software-development/visual-basic-4-5-6/threads/445773/update-access-database-from-listview-in-vb-6.0) discussion.

Please mark as solved anisha, thanx. :)

The following should do the trick - con.Execute "insert into tbl values('" & Replace$(Text1.Text, "'", "''") & "','" & Text2.Text & "') ", adCmdText ''Assuming that Text1 will return the apostrophe character... ''Note the double '' inside there to still make the sql work.

Have a look at this current Daniweb discussion [here](http://www.daniweb.com/software-development/visual-basic-4-5-6/threads/445773/update-access-database-from-listview-in-vb-6.0). It will give you all the options needed as per your question...

Try the following - Dim xYear As Integer, xMonth As Integer, xDay As Integer, xResult as String xYear = rs!year ''Change rs to your record selector name... xMonth = rs!month ''Also change the field names year, month, day to your field names... xDay = rs!day xResult = xDay & "/" …

Use a for loop to get every field value and add it to a counter total - Dim xRecords As Integer, xTotal As Integer ''Assuming that you are trying to get a number total!! xTotal = 0 For xRecords = 0 To rs.RecordCount - 1 ''Or however many records were …

Fix the following - '" & txtLanguage.Text & " ', TO '" & txtLanguage.Text & "', Also send a messagebox for each textbox value to make sure that the correct values is returned i.e. a string, an integer etc. and that no empty values is in there somewhere. Once tested …

Is the combo going to be loaded with data, some own selected text etc? What code do you have so far. We do not do homework here.

Use the FileSystemObject that is part of the Microsoft Scripting Runtime (scrrun.dll) You can use something like - Public Function ReadTextFileAsString(IN_sFilePath As String) As String Dim myFSO As Scripting.FileSystemObject Dim myTextStream As Scripting.TextStream Dim myString As String 'Create a new FileSystemObject Set myFSO = New Scripting.FileSystemObject 'Make sure file exists: …

You can try something like - Option Explicit Private Declare Function sndPlaySound Lib "winmm.dll" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Private Sub Form_Load() WebBrowser1.Navigate "http://www.daniweb.com/software-development/visual-basic-4-5-6/4" End Sub Private Sub WebBrowser1_StatusTextChange(ByVal Text As String) Call sndPlaySound(vbNullString, False) End Sub Private Sub WebBrowser1_UpdatePageStatus(ByVal pDisp As …

I would do it similar to this... Dim LiRandomNumber As Integer, xRandom As Integer, xList As Integer, xLabels As Integer For xRandom = 1 To 10 LiRandomNumber = Int(10 * Rnd) + 1 lstNumbers.ListIndex = 0 ''Add a ListBox with its visible property set to False... For xList = 0 …