Recent content by GTO

'Win98 and VB6 'This will get the network name and all computers and their IPs, that are 'booted to the LAN 'Paste this into a module Option Explicit Dim hostent_addr As Long Dim host As HOSTENT Dim hostip_addr As Long Dim temp_ip_address() As Byte Dim i As Integer Dim ip_address As String...

'Maybe this will get you started Private Sub mscomm2_OnComm() Dim sBarScan as string If iFlag = 1 Then Exit Sub If flag = 1 Then 'Text boxes empty? For i = 0 To 2 txt(i) = "" Next i flag = 0 End If sBarScan =...

Maybe the following will help rs.Open ("SELECT * from ItemInfo where Identifier = '" & sBarScan & "'") iDeptNum = rs(3) 'Get Dept# for scanned item DeptAmt = rs(2) 'Get amt for scanned item This gets 2 items from a record using a barcode which was...

'Why not do what you say you want? Open a file, save the data, and close file.???????????

'*This module currently either '*explodes or implodes a form. '*The larger the "Movement" value the slower the '*explosion or implosion. It is possible to have the form '*explode/implode from various directions although this '*code does not include that option. '* '* Call is...

I used 4 textboxes to display the data because of ease of positioning the text. Maybe this code might help. Vs is a vertical scroll bar. Option Explicit Dim i As Integer Dim selFile As String Dim sScroll As String Dim pth As String Dim iSelect As Integer Dim DeptMax As Integer Private Sub...

It sounds like you are trying to build a Pos system. Will/does it work with a scanner for barcodes. I'm working on one now. I'd be interested in how it's going. What is being incorporated into prog, etc.

'after opening recordset Do Until MyRS.EOF with lstProducts .AddItem MyRS(0) .AddItem MyRS(1) .AddItem MyRS(2) .AddItem MyRS(3) MyRS.MoveNext loop

'Haven't tried this, but you can *************************************************************** ' Name: Highlite a string within another string ' Description:when the sub is called a string is searched in anot ' her string and then highlited. when the sub is called again the n ' ext...

'Any helpful tips on how to accomplish this is appreciated 'How to allow for different fonts(widths) Private Sub cmdTest Dim sSpace As String sBarScan = "077472006809" 'sBarScan = left(MSComm1.Input, 12) rs.Open ("SELECT ItemDescription, Amount, TaxRate from DeptInfo...

Thanks a lot guys. Turns out that I didn't know the correct syntax for the variable. I ended up using woyler's example to get this; rs.Open ("SELECT ItemDescription, Amount from DeptInfo where Identifier = '" & sBarScan & "'") Again, thanks to all who responded.

I want to use a bar code readout in a variable as the = 'variable';) in the where part of a sql statement. I just can't seem to get this to work. It doesn't appear to see the variable. It only sees hard coded info. Does anyone know how to make this work?

'This stuff I aquired somewhere, anyway I'm not the author 'maybe you guys would like to see it anyway 'There are two examples here Option Explicit Private m_lPower2(0 To 31) As LongPublic Function RShift(ByVal lThis As Long, ByVal _ lBits As Long) As Long If (lBits <= 0) Then...

'This might get you by Option Explicit Dim i As Integer Dim chkcount As Integer Dim iCheck As Integer Dim condo As String Dim countStr As String Dim chkArray() As Integer Private Sub Command1_Click() Labelorder = &quot;&quot; condo = &quot;&quot; Lstcondo.ListIndex = 0 For...

'Picked this up somewhere, never tried it, maybe it'll work 'If not, maybe it'll give you a track to start on. Let us 'know if it does, or code that works if you get it going ' 1 create a new standard app ' 2 add a frame on your app ' 2a borderstyle = none ' 3 put a textbox or whatever on your...