Visual Basic Community

VB 6.0 Data Environments/Reports

2006-05-18T15:11:15Z

I'm using VB 6 with an Access Database (I know... I know...) and I'm trying to get it to generate a report based on user selected criteria.

Basically my database is full of contacts that can be involved in my company's programs. The user should be able to select a program from a dropdown and then print a report of all the contacts participating in that program.

I've been able to make it print every contact in every program, but not for a specific program only

Thoughts?

New To Community

2006-05-04T17:11:11Z

Hey everyone. I'm new to this community, but I've been working with VB 6.0 for a few years now, but haven't done much with database programming. I'm working on a program that will allow a user to create and save databases, as well as switch between them whenever the user wants. I can switch the databases no problem...though it may not be the most effective way to do it (when a user clicks on a particular button, an Open dialogue box appears, they choose the database they want, the file name gets passed into a Global Variable, a Global Function is called, the original form is unloaded, then reloaded [via the global function] with the file name set to the data controls DatabaseName property).

Again, may not be the most effective way to do it, but it works. Now, since apparently databases within VB save on their own, I don't have to worry about a user clicking a "Save" button, but I do need the ability to let the user create a new database. This is where I'm hitting a snag, and none of my books seem to help...unless I'm really dense and just missing it.

Any help would be greatly appriciated. Thanks.

please help!

2005-08-17T20:57:10Z

Hi. I'm trying to "beef up" one of the Access general templates for use, and I'm running into a problem.

I'm using the "Contacts Management" template, and have added a field "ReferredBy" to the Contacts table. I was wanting to add this as a search item on the "Report Date Range" form, so that I can have a report organized not only by date but grouped by ReferredBy.

I hope this makes sense, I am experienced with Access but not very experienced with Visual Basic. I've done a ton with MySQL, and thought this would be related. I guess I'm wrong... ;-)

I've been able to add the ReferredBy to the Report Date Range form. However, I get an error:

Run-time error '2465': Microsoft Access cannot find the field "|" referred to in your expression.

The VBA for the Report Date Range looks like this:

Private Sub Form_Open(Cancel As Integer)
    Me.Caption = Me.OpenArgs
    Me![Referred By] = [ReferredBy]
    Me![Beginning Call Date] = Date - Weekday(Date, 2) + 1
    Me![Ending Call Date] = Me![Beginning Call Date] + 6
End Sub

Everything works fine when I don't have the "Referredby" line in there, but it does nothing with that item... The way the code is now, it seems circular, but my brain can't figure out how to fix it.

Please help. I am so frustrated and just looking for a little help, even just where I need to go to get help.

Thank you!

x-post in sharonme

algorithm

2004-11-05T02:28:40Z

S(n)/(1 - (1 + r)^-n)

I'm writing this loan code and thats the equation that has to be calculate.. I just don't understand how I would do it. Math is a struggle for me. p = rSn(subscript n) / 1 - (1 + r)-n (to the negative n or something like that)

http://www.sontek.net/equ.jpg is a picture of what the equation looks like.

I'm doing the code in Visual Basic.. I have everything setup I just don't know how to setup the equation in the code (I don't know that much math so that equation makes no sense to me at all)

p - is an equal periodic (monthly) payment
r - is interest rate stated as an annual interest rate
n - is the number of monthly payments over the life of the loan
Sn - is the amount of the loan

This is what I tried doing.. But its overflowing.. so if anyone has any ideas let me know

answer = ammount * (number) / (1 - (1 + interest) ^ number)

Inno Setup Toolbar 1.0

2004-08-06T10:07:35Z

Yet another application. This time, it's a Visual Basic IDE Add-in.

Its purpose is to connect to the freeware program called 'Inno Setup', an installation builder for application deployment. Your looking at the screenshot for version 1.0, that took about a day to design and implement - I was a bit surprised at how fast it went together. The main add-in consists of the three buttons viewed above, on a floating toolbar. The toolbar can be docked anywhere in the interface, and remain in its place even after you exit the program and restart it.

The three buttons work as follows:

Script Editor
Creates a default script with the project name plus .ISS, the default script extension, in your project directory. (IE: Project1.iss) It also adds the basic requirements to compile the setup script. After creating the script, the Inno Setup Editor is launched, allowing you to edit and maintain the script.

Compile Script
Starts the Inno Setup Compiler to run the script in the project directory. So basically, once your done writing the script in the script editor, you can - at any time - hit the 'Compile Script' button to repackage your application and prepare it for distribution and deployement. Obviously, this is the useful part.

Configure Toolbar
Brings up the lower window featured in the screenshot, so you can configure the program settings. All settings are stored in the registry, so it will always remember them. Normally, the toolbar will automatically locate the installation directory for Inno, but if for some reason it cannot or is finding the wrong version, you can force it to a different path from here.

Pretty swanky, huh.

Source Code for Toolbar Add-In:
http://www.pscode.com/vb/scripts/ShowCode.asp?txtCodeId=55397&lngWId=1

Quick and Easy Installer for Toolbar Add-In:
http://finalstand.archsysinc.com/files/InnoToolbar/setup.exe

Inno Setup Homepage:
http://www.jrsoftware.org/isinfo.php

Enjoy, and make sure to send any suggestions along to me.

visualbasic @ 2004-07-19T14:45:00

2004-07-19T11:43:24Z

Microsoft Outlook has a type of list called Distribution Lists, but Outlook doesnt have any option to export into CSVs. Conventional wisdom says that this type of work is best left to visual baisc...but, I only know a tiny bit of Java, so does anyone have the heart to write me a conversion program? I know its a lot to ask, but I'm sure it cant be difficult. (or, could someone suggest a different option?)

thanks in advance...

Hardcore Visual Basic by Bruce McKinney

2004-07-17T08:53:49Z

An online version of the book at http://www.mvps.org/vb/hardcore

NEED HELP!

2004-07-17T01:29:46Z

Ok i have an array with 75 elements called balls(74), for an automated bingo program.
The trouble is I am having a hell of a time randomizing the array so it does not have any visible pattern
(ie. 3 Bs in a row, which the odd are like 1 in 125 of normally happening, yet i get patterns like that occuring every game)

here is what im working with...
Randomize()

Dim i As Integer
Dim j As Integer
Dim tmp_value As String

For i = 0 To 74
j = Int((74 - i + 1) * Rnd() + i) 'finds random place in array
tmp_value = balls(i) 'assigns current position
balls(i) = balls(j) 'replaces current position
balls(j) = tmp_value 'assigned original position to replacement's index
Next i

any help would be appreciated

Hi n all that jam....

2004-06-26T06:35:02Z

Hi folks just joined, been mean to look for a VB community for a while but just found it a whole lot easier now I've got a paid account :)

I'm currently a VB / SQL server developer so if I can help any of you guys out let me know, 'cos I'm sure gonna be posting and asking for help as soon as I get something interesting to do at work :)

Ghosty.

addendum

2004-06-17T04:33:03Z

weeeell no response so i guess y'all didnt have time to work it out or this wasnt the right place to ask.

But that's okay!

A friend emailed me a lovely little program which does exactly what I asked for - if anyone else would like to receive it (basically it's a web page with a bit of code behind it - you create a sub folder to your personal outlook calendar, set the page as the homepage and it works it all out for you) I'm happy to share.

Email tumblehometumtum@hotmail.com and I'll send it over

xxx

help with programming Outlook

2004-06-14T07:42:41Z

My question is really an outlook one, which uses VBScript - and I've looked on MSN, and in books, but there's woefully little knowledge around outlook that i can get my hands on..!

I know this isn't strictly VB - but outlook uses VBScript & I'm finding it hard to get help elsewhere. if anyone can help I'll be soooo grateful...

Basically What I want to do is this:

I work in an office which has about 10 users on our server. I want to create a calendar folder in outlook, in the public folders list, called staff calendar, and write macro or a bit of code so that every time a member of staff puts an 'away from the office' meeting in their own calendar, it 'invites' the staff calendar.

If you have any other (simpler?) suggestion for how to create a calendar showing where users are when out of the office in an amalgamated way I'd be very happy to hear it!

I'm inexperienced with VB but know enough to paste code in to the right place..

If this is not your area of expertise/too much work please feel free to ignore this request - I'm asking entirely on the offchance.

Many thanks

Bella x

Somebody help please!

2004-05-27T07:35:08Z

Hello!
I have a some MS Access data base project, but I'm not a programmer and dont know howto I can create form. If somebody
have a 10 minutes and can help, please knock to my ICQ 121142, and I say, what need do. Thank You!!!

visualbasic @ 2004-05-16T23:35:00

2004-05-16T20:36:39Z

Has anyone used the calendar control in .NET? I would like to use the control to show ONLY the days of the current month, and not the trailing and leading days of the surrounding months. The calendar used in LJ only shows the current month's days, but I know that's not written in .NET. Any ideas, or do I have to write my own control?

Thanks. :)

MS Excel 2000 Macro

2004-04-04T21:51:37Z

Would there be anyone out there who has any knowledge of Macros in Excel?

I need to come up with a very simple Macro.
Basically, I have 2 worksheets in 1 file. The first worksheet is a database of names, identification numbers, addresses, blah, blah, blah.

So in my 2nd worksheet, I want the Macro to display the name and contact number of the person when I key in the identification number. Simple right?

Comment on this and I'll probably give you my email address or something.

newbie

2004-02-25T06:37:42Z

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents Timer1 As System.Windows.Forms.Timer
    Friend WithEvents BTNLEFT As System.Windows.Forms.Button
    Friend WithEvents BTNRIGHT As System.Windows.Forms.Button
    Friend WithEvents LBLBAT As System.Windows.Forms.PictureBox
    Friend WithEvents bouncemonkey As System.Windows.Forms.PictureBox
    Friend WithEvents PauseBTN As System.Windows.Forms.Button
    Friend WithEvents quitBTN As System.Windows.Forms.Button
    Friend WithEvents StartBTN As System.Windows.Forms.Button

[Error: Irreparable invalid markup ('<system.diagnostics.debuggerstepthrough()>') in entry. Owner must fix manually. Raw contents below.]

HELP ME! I am stuck with this and my brain has turned to mush!

I want the start, pause and exit buttons to do as they are meant to. I also need the left and right buttons to be activated by keystrokes (eg pressing z = left, pressing x = right) I also want to be able to have a points system, where if the "ball" hits the top of the playing area then 1 is added to the score. i.e. a points system.

<lj-cut>

<code>Public Class Form1
Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents BTNLEFT As System.Windows.Forms.Button
Friend WithEvents BTNRIGHT As System.Windows.Forms.Button
Friend WithEvents LBLBAT As System.Windows.Forms.PictureBox
Friend WithEvents bouncemonkey As System.Windows.Forms.PictureBox
Friend WithEvents PauseBTN As System.Windows.Forms.Button
Friend WithEvents quitBTN As System.Windows.Forms.Button
Friend WithEvents StartBTN As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
Me.bouncemonkey = New System.Windows.Forms.PictureBox()
Me.PauseBTN = New System.Windows.Forms.Button()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.BTNLEFT = New System.Windows.Forms.Button()
Me.BTNRIGHT = New System.Windows.Forms.Button()
Me.LBLBAT = New System.Windows.Forms.PictureBox()
Me.quitBTN = New System.Windows.Forms.Button()
Me.StartBTN = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'bouncemonkey
'
Me.bouncemonkey.Image = CType(resources.GetObject("bouncemonkey.Image"), System.Drawing.Bitmap)
Me.bouncemonkey.Location = New System.Drawing.Point(360, 64)
Me.bouncemonkey.Name = "bouncemonkey"
Me.bouncemonkey.Size = New System.Drawing.Size(32, 32)
Me.bouncemonkey.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.bouncemonkey.TabIndex = 0
Me.bouncemonkey.TabStop = False
'
'PauseBTN
'
Me.PauseBTN.BackColor = System.Drawing.Color.Transparent
Me.PauseBTN.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.PauseBTN.ForeColor = System.Drawing.Color.Gold
Me.PauseBTN.Location = New System.Drawing.Point(0, 24)
Me.PauseBTN.Name = "PauseBTN"
Me.PauseBTN.Size = New System.Drawing.Size(96, 23)
Me.PauseBTN.TabIndex = 1
Me.PauseBTN.Text = "pause"
'
'Timer1
'
Me.Timer1.Enabled = True
'
'BTNLEFT
'
Me.BTNLEFT.BackColor = System.Drawing.SystemColors.InfoText
Me.BTNLEFT.Font = New System.Drawing.Font("Rockwell Extra Bold", 12.0!, System.Drawing.FontStyle.Bold)
Me.BTNLEFT.ForeColor = System.Drawing.SystemColors.HotTrack
Me.BTNLEFT.Location = New System.Drawing.Point(328, 472)
Me.BTNLEFT.Name = "BTNLEFT"
Me.BTNLEFT.TabIndex = 2
Me.BTNLEFT.Text = "<<<<"
'
'BTNRIGHT
'
Me.BTNRIGHT.BackColor = System.Drawing.SystemColors.InfoText
Me.BTNRIGHT.Font = New System.Drawing.Font("Rockwell Extra Bold", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BTNRIGHT.ForeColor = System.Drawing.SystemColors.HotTrack
Me.BTNRIGHT.Location = New System.Drawing.Point(400, 472)
Me.BTNRIGHT.Name = "BTNRIGHT"
Me.BTNRIGHT.TabIndex = 3
Me.BTNRIGHT.Text = ">>>>"
'
'LBLBAT
'
Me.LBLBAT.BackColor = System.Drawing.SystemColors.Desktop
Me.LBLBAT.Location = New System.Drawing.Point(352, 432)
Me.LBLBAT.Name = "LBLBAT"
Me.LBLBAT.Size = New System.Drawing.Size(96, 8)
Me.LBLBAT.TabIndex = 4
Me.LBLBAT.TabStop = False
'
'quitBTN
'
Me.quitBTN.BackColor = System.Drawing.Color.Transparent
Me.quitBTN.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.quitBTN.ForeColor = System.Drawing.Color.Gold
Me.quitBTN.Location = New System.Drawing.Point(0, 48)
Me.quitBTN.Name = "quitBTN"
Me.quitBTN.Size = New System.Drawing.Size(96, 23)
Me.quitBTN.TabIndex = 5
Me.quitBTN.Text = "Exit"
'
'StartBTN
'
Me.StartBTN.BackColor = System.Drawing.Color.Transparent
Me.StartBTN.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.StartBTN.ForeColor = System.Drawing.Color.Gold
Me.StartBTN.Name = "StartBTN"
Me.StartBTN.Size = New System.Drawing.Size(96, 23)
Me.StartBTN.TabIndex = 6
Me.StartBTN.Text = "Start"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.SystemColors.InactiveCaption
Me.ClientSize = New System.Drawing.Size(752, 517)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.StartBTN, Me.quitBTN, Me.LBLBAT, Me.BTNRIGHT, Me.BTNLEFT, Me.bouncemonkey, Me.PauseBTN})
Me.ForeColor = System.Drawing.SystemColors.ActiveBorder
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Name = "Form1"
Me.Text = "GAME"
Me.ResumeLayout(False)

End Sub

#End Region

Dim forward As Boolean = True
Dim downward As Boolean = True

Private Sub start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PauseBTN.Click
Timer1.Enabled = Not Timer1.Enabled
End Sub 'Button1_click

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim x As Integer
Dim y As Integer

x = bouncemonkey.Location.X()
y = bouncemonkey.Location.Y()

'changes direction of bouncmonkey if contacts right/left edge
If (x <= 0) Or (x >= (Me.Width - 2 * bouncemonkey.Width)) Then
forward = Not forward
End If

'changes direction of bouncmonkey if contacts top edge
If (y <= 0) Then
downward = Not downward
'Label.Text = Label.Text + 1
End If

'changes direction of bouncmonkey if contacts bottom edge
If (y >= (Me.Height - 2.5 * bouncemonkey.Height)) Then
bouncemonkey.Visible = False
Timer1.Enabled = False

End If

If bouncemonkey.Top >= (Height - bouncemonkey.Height) Then
Timer1.Enabled = False

End If

If forward Then
bouncemonkey.Location = New System.Drawing.Point(x + 30, y)
Else
bouncemonkey.Location = New System.Drawing.Point(x - 30, y)
End If

x = bouncemonkey.Location.X()
y = bouncemonkey.Location.Y()
If downward Then
bouncemonkey.Location = New System.Drawing.Point(x, y + 30)
Else
bouncemonkey.Location = New System.Drawing.Point(x, y - 30)
End If
x = bouncemonkey.Location.X()
y = bouncemonkey.Location.Y()
'changes direction if ball meets bat
If bouncemonkey.Location.Y >= LBLBAT.Top - bouncemonkey.Height _
And bouncemonkey.Location.X > LBLBAT.Left _
And bouncemonkey.Location.X < (LBLBAT.Left + LBLBAT.Width) Then
downward = Not downward
End If

End Sub

Private Sub BTNLEFT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLEFT.Click
If LBLBAT.Left > 0 Then
LBLBAT.Left = LBLBAT.Left - 50
End If
End Sub

Private Sub BTNRIGHT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNRIGHT.Click
If LBLBAT.Left < (Me.Width - LBLBAT.Width) Then
LBLBAT.Left = LBLBAT.Left + 50
End If
End Sub

End Class 'Form1

</code>

A little help..?

2003-11-19T09:18:06Z

Okey dokey.

I am really newbie when it comes to Visual Basic, but I am trying to making a little program in VB6. I only know what I bothered to listen to last year at college. Anyway, I have a question.. which is probably really stupid, but I couldn't find it everywhere else I looked.

Is there a way to get my application to be the only thing clickable? So, when it's run.. you can't click off onto something else, or change focus with alt+tab or something like that?

Anything that would help would be greatly appreciated as i'm totally stupid when it comes to things like this, heh. Also, this is crossposted to another community or two- so my apologies if you see it on your friends list more than once.

help a VB newbie with simple debugging

2003-11-04T05:29:10Z

This is driving me nuts, not knowing why it doesn't work. I hope there's some kind soul in this com who can and will help me out. Not sure what the rules are, I checked the info, so I'll just put my code behind an LJ-cut. Hope this is ok, let me know if I did something wrong.

The problem: I cannot extract the customer_no and employee_no data out. Its all random what is returned onto my spreadsheet. I've been debugging for days and can't figure it out. Please please help?
the database can be found here fss2000.mdb

Option Explicit
Dim filter As String
Dim filtercriteria As Boolean

Private Sub cbconame_Click()

End Sub

Private Sub cbofilter_Change()

' Determine the filter selected

filter = cbofilter.Value

If filter <> "" And filter <> "No filter" Then
filtercriteria = True
End If

End Sub

Private Sub cmd_cancel_Click()

' Close the form

UserForm.Hide

End Sub

Private Sub cmd_ok_Click()

GetRecords1

End

End Sub

Private Sub UserForm_Initialize()

filtercriteria = False

With cbofilter
.List = Array("Customer_No", "Employee_No", "Order_No", "No filter")
End With

End Sub

Sub GetRecords1()

' This program gets all the records out of a table by using
' The GetRows method of the Recordset object. The records are
' put into a variant variable in an array.

Dim WrkDefault As Workspace
Dim FSS2000 As Database
Dim RS1 As Recordset
Dim DatabaseName As String
Dim SQLString As String
Dim SQLString2 As String
Dim str1 As String
Dim tblstring As String
Dim cndstring As String
Dim cndstring2 As String
Dim cndstring3 As String
Dim sign As String
Dim orderchoice As String
Dim signcriteria As Boolean
Dim qtyAentered As Boolean

qtyAentered = False
signcriteria = False

On Error Resume Next

DatabaseName = ThisWorkbook.Path & "\FSS2000"
Set WrkDefault = DBEngine.Workspaces(0)
Set FSS2000 = WrkDefault.OpenDatabase(Name:=DatabaseName, ReadOnly:=False)

'selecting relevant customer records to display

str1 = "product_a_quantity"

If cbcustnum.Value = True Then
str1 = str1 + ", customer_no"
End If

If cbconame.Value = True Then
str1 = str1 + ", co_name"
End If

If cbcity.Value = True Then
str1 = str1 + ", city"
End If

If cbstate.Value = True Then
str1 = str1 + ", state"
End If

'employee records
If cbempnum.Value = True Then
str1 = str1 + ", employee_no"
End If

If cbsurname.Value = True Then
str1 = str1 + ", surname"
End If

If cbname.Value = True Then
str1 = str1 + ", name"
End If

If cbbase.Value = True Then
str1 = str1 + ", base_pay"
End If

If cbcom.Value = True Then
str1 = str1 + ", commission"
End If

'order records

If cbordnum.Value = True Then
str1 = str1 + ", order_no"
End If

If cbmonth.Value = True Then
str1 = str1 + ", month"
End If

If cbpdtb.Value = True Then
str1 = str1 + ", product_b_quantity"
End If

If cbpdtc.Value = True Then
str1 = str1 + ", product_c_quantity"
End If

'determine sign
If obsmaller.Value = True Then
sign = "<"
End If

If obequal.Value = True Then
sign = "="
End If

If obbigger.Value = True Then
sign = ">"
End If

If txtqty.Value <> "" Then
qtyAentered = True
End If

If sign <> "" And qtyAentered = True Then
sign = sign + " " + txtqty.Value
signcriteria = True
End If

'construct strings

tblstring = "Orders, Customers, Employees"
cndstring = "Orders.Customer_No = Customers.Customer_No"
cndstring2 = "Orders.Employee_No = Employees.Employee_No"

'selecting relevant orders records to display
SQLString = "SELECT " & str1 & " FROM " & tblstring & " WHERE " _
& cndstring

If signcriteria = False And filtercriteria = False Then
SQLString2 = " AND " & cndstring2
End If
If signcriteria = True And filtercriteria = True Then
SQLString2 = " AND " & cndstring2 & " AND product_a_quantity " _
& sign & " ORDER BY " & filter
End If
If signcriteria = False And filtercriteria = True Then
SQLString2 = " AND " & cndstring2 & " ORDER BY " & filter
End If
If signcriteria = True And filtercriteria = False Then
SQLString2 = " AND " & cndstring2 & " AND product_a_quantity " _
& sign
End If

Set RS1 = FSS2000.OpenRecordset(Name:=SQLString + SQLString2, Type:=dbOpenDynaset)

'debug
ActiveCell.Offset(0, 1) = SQLString + SQLString2

Worksheets("Sheet1").Range("a1").CopyFromRecordset RS1

FSS2000.Close

End Sub

Newb

2003-10-22T18:53:00Z

Hey guys, Im new here so I thought I would introduce myself. Im 15 years old and I live in Glendale AZ. I taught myself VB6 from a Microsoft book about a year ago, I have forgotten most of it with school and all, but Im going to take another whack at it this weekend and see if it all comes back to me. Thanks!

visualbasic @ 2003-10-13T18:15:00

2003-10-13T10:15:44Z

I've been teaching myself VB6 for the past couple of weeks and I'm curous about something...

When adding a reference for regular expressions I notice there are two to chose from, both are titled "Microsoft VBScript Regular Expressions" but one is v1.0, the other 5.5.

What's the difference? they both seem to work well enough.

.NET

2003-09-22T13:33:15Z

I've been having a discussion with my boss about moving to .NET.

His opinion is that it's not really been accepted by the industry. I disagree.

How many of you are using it? Is there any sites that show any statistics of what languages people are using, etc?

Thanks...

visualbasic @ 2003-08-26T22:04:00

2003-08-26T19:04:55Z

Hi! I just joined, and I'm looking for other communities around VB.Net or Database stuff, etc. as well.

I do VB.Net for a living, so bring the questions, and we can learn together, though I'm really more of a DBA.

Simple question...

2003-07-09T22:10:33Z

Hello, I started a VB class a few weeks ago, and I just stumbled upon this community. Therefore, hello.

and here goes for my first question...

How could I trigger a btn_Click event to uncheck or check a check box?

Renaming Files

2003-04-03T01:32:55Z

VB6.
I have a form.
Two File Directory Objects.
One that points to one directory.
One that points to another one.

The first file directory has properly named (but ruined) files.
The second file directory has improperly named (but perfect sounding) files.

All I want to do it select a file from the first box, and one from the second box, and click a button, and have the second filename turn into the first filename.

I tried the simple way.

Private Sub btnOk_Click()
File2.Filename = File1.Filename
End Sub

And I tried to screw around with the .Path as well.
But for the life of me (And my sanity at 2:30AM), I can't get it to work.
I've wanted to learn how to do this so I can create a POWERFUL Mass ID3/File Tagger/Namer Application.

Help on renaming files via VB6?

(P.S. The common dialog takes too long for these tasks.)

Type martialing

2003-03-26T09:31:38Z

Greetings and salutations. I'm posting this to a couple of .NET programming communities, in the hope that someone will have an answer to this.

I'm writing, in what I laughingly call my spare time, a personal information management system. This is in response to a similar program that I will leave unnamed, that is supposedly designed for the visually impaired, and wins the prize for "most unintuitive user interface". Anyway, this program wants to support either COM *or* .NET add-ins. Each add-in wants to be able to return an icon representing what type of data it handles, as well as an icon for each data item indicating anything from an unread message to a protected journal entry. What the icons represent is actually completely irrelevant. Of course, .NET lets you declare a parameter of type Image or, for that matter, of type Icon. How does COM handle that? Is there a way to make an Image object from an HICON cast to an UINT? Is the Image object itself COM-callable? Am I unnecessarily complicating things? Should I just give over the notion of supporting COM add-ins for anything?

Favorite ASP server/developing program

2002-10-28T17:40:25Z

Anyone have a favorite ASP server/development program??? What is it?