2,155 Posted Topics
Re: As vb5 (hi mate) mentioned, you need to manipulate the ports via API. If you are already struggling with the basics of vb6, this might be a challenging task. Let us know how you progress. | |
Re: also post the error you get when resizing. | |
Re: Agreed, at least post some sort of code, app structure etc. We will gladly help from there. :) | |
Re: Nice in solving it for yourself AND posting the solution. I gave you some rep for that. :) Please mark as solved, thanx. | |
Re: You can try the following code in your macro - Dim data As String Range("A1").Select ''Select a range to check for Null value data = Range("A1").Value If data = "" Then ActiveCell.Value = "0" Else MsgBox "Data is OK." End If | |
Re: It might also be a file naming convention where you have named certain files containg (CON, COMx, LPTx, KBD, NUL, AUX, PRN) etc. Have a look at a full solution from Microsoft [HERE](http://social.msdn.microsoft.com/Forums/en-US/vbgeneral/thread/184301cd-6517-419c-b912-2ba333fb4cc2). Please do not forget to mark this as solved if it worked for you, thanx. | |
Re: Show us the select statements to your tables that you are using to get the data please. That way we can get a much better picture of what you need. | |
Re: Yes, you can. All the connection codes needed for your specific MS Sql can be found [HERE](http://www.connectionstrings.com/), using ADODB. | |
Re: Welcome to Daniweb :) | |
Re: Now, please mark as solved, thanx :) | |
Re: You can use a loop to scroll through the check boxes. The code below can be modified, just change the frm.Controls to your workbook name... Dim Control As Control, xCount As Integer xCount = 0 For Each Control In frm.Controls If TypeOf Control Is Checkbox Then xCount = xCount + … | |
Re: If you are a learner, then start at the begining!! you need to show us what you have learned so far so we can help you... no code, no help | |
Re: mmm. put it in the middle, always works lol. YOU need to give us more info to help you. INCLUDE some code... | |
Re: You do not have to do anyting to add the auto number. When a record gets saved, it will automatically add the following record number. | |
Re: When you installed vb6, did you also install vb6 service pack 6. a Lot of your references was included in sp6. | |
Re: Use the browser object, open it and then add text to the specific boxes you want to. have a look at [THIS](http://www.ehow.com/how_5914496_open-website-vba.html) link, it will show you how to add the browser. Once that is done, you will use code similar to this to interact with the browser - Dim … | |
Re: > Dim repApp As CRAXDRT.Application > Dim cryReport As CRAXDRT.Report You need to set a new instance of repApp and cryReport... Dim repApp As CRAXDRT.Application Dim cryReport As CRAXDRT.Report Set repApp = New CRAXDRT.Application Set cryReport = New CRAXDRT.Report | |
| |
Re: Cool idea. What code do you have so far. We can not do your work for you, show some effort first, we will help afterwards | |
| |
Re: > how to evelop an orphanage management system 1) Get some orphaneges assigned to the system 2) Capture the data 3) now manage it... YOU need to show some effort. if everybody wanted something for free, we all would not have to ask. show some effort, some code etc. and … | |
Re: Your problem is the running of ms data active 2.8. you need to extra upgrades that will run smoothly, including win 8 | |
Re: By using ascii values... You can use the following - ''Set a reference to MS Scripting Library... Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys "{ENTER}" ''For enter OR "{RETURN}" | |
Re: First - > strSQL = "SELECT [Company].* FROM [Company]" This will select ALL records from your table Company. You did not specify which company you want to edit... First get the record from the row the user clicked on in your datagrid. Lets assume you have the Comapny Id in … | |
Re: We have absolutely no idea what you require. You need to be MUCH more specific on your needs. | |
Re: Try the following code - If (X < 0) Or (Y < 0) Or (X > (Image1.Width - 50)) Or (Y > (Image1.Height - 50)) Then Image1.Picture = LoadPicture(App.Path & "\1B.jpg") Else Image1.Picture = LoadPicture(App.Path & "\1BB.jpg") End If I have added the "-50" to allow for the mouse movement … | |
Re: a Normal if then statement will suffice here. You do need to give us more information though - how/Where do you get the numbers?, where are they used, is it displayed in a list etc? | |
Re: Dim x as Integer x = "10" dim rsbookmark as long dim rsdelete as new Adodb.Recordset dim objcommand as new objcommand.Command objcommand.ActiveConnection-strconnection 'my cnn string objcommand.CommandText="delete from tbl_pos_summary where record_no='" & x & "'" objcommand.CommandTimeout=600 set rsdelete=objcommand.Execute x = x + 1 rsdelete.Bookmark = x This should do the trick... | |
Re: sSQL = "INSERT INTO KMB (ItemNo, ItemQuoteNo, GFlag) VALUES ("'" & Parameters.Cells(lRow, 1) & "', '" & Parameters.Cells(lRow, 3) & "')" You need to put a reference to the data object. This can be done, depending on your version of excell - get your solution [HERE](http://support.microsoft.com/kb/163475) from microsoft. | |
Re: OR, just check the value and clear the textbox accorrdingly... If Text1.Text = "0" Then Text1.Text = vbNullString ''CLear text - "" End If | |
Re: Do you have any code that you can show us what you have tried so far? You need to give us more information in order for us to assist you... | |
Re: @ Lenshood, thanx for your reply, this thread is however 4 years old!!! I'm sure the original poster has found an answer by now. :) | |
Re: You can also have a look at [THIS](http://www.bigresource.com/Tracker/Track-vb-VRo8xXCYgK/) link, with a small sample code which might help. It does however seem that the easiest way would be to use the windows OS settings to change from left to right. | |
Re: You can try the following code... Option Explicit 'Add a textbox (Text1) And a Command button (Command1) To a New form And use the following code: 'Usage: Fill in the textbox with the name you want to resolve and click the cmd button i.e. www.google.com Private Const WS_VERSION_REQD = &H101 … | |
Re: I have asked the mods to move your post to [Here](http://www.daniweb.com/hardware-and-software/pc-hardware/storage/105). I'm sure someone will assist from there. | |
Re: Unfortunately you are left with only 1 option, you have to decompile the entire exe (hack) it. There is software out there that can help, but you will need vast experience in decompiling. | |
Re: If I look at what your lappie have, yes, it will be more than ample to handle win 7 ultimate, even though it is discontinued. :) Technology type : Intel® Centrino® Duo Mobile Technology featuring Intel® Core™2 Duo processor T7600, Intel® PRO/Wireless 3945ABG network connection and Intel® 945PM Express chipset … | |
Re: Might be a bit late, try this... ''Private if it is used within your current form or public if called from other forms or sheets... ''It also seems that it will be of a type integer(number) ... Private Const xlCenter As Long = 1 ''Your value here. ''If it is … | |
Re: You can try the following, just change the code to suit your needs - Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) Set objDoc = WebBrowser1.document Set objWind = objDoc.parentWindow End Sub Private Sub objWind_onerror(ByVal Description As String, ByVal URL As String, ByVal line As Long) Set objEvent = … | |
Re: Abu, have a look at [THIS](http://www.techonthenet.com/sql/between.php) link. it will give you the options you need. | |
I have been searching for the answer for 2 months, but still no success. Below the setup and connection string and all checked already. Firstly my errorlog file error = 18456 Severity 14 State 11 (Login failed for user OLDPC/GUEST. Token based server access validation failed with an infrastructure error. … | |
Re: What kind of database are you using, access, MySql etc? | |
Re: Welcome to Daniweb Singh. Enjoy your time here. | |
Re: Firstly, how will your scanner interact with your pc, via usb cable or rs232 cable? Secondly, what code do you have so far for loading the controls with data from your mysql database once the id is determined? |
The End.