Tracker
 ASP PHP JavaScripts MySQL MS Access MSSQL VISUAL BASIC Subjects/Titles Post Text/Content
HOME    TRACKER    Visual Basic

# Returning A Value

## So I'm working on my gradebook programme. As mentioned in other posts I'm a teacher though not of computers - that's just a hobby.I have a form with 5 textboxes in an array txtMark(0), txtMark(1) etc.Each one contains a mark for a quiz. Now, if a student is missing a mark due to absence or something I want to recalculate the average based on the number of marks available. If there are only 4 marks then the divisor for that average should be 4.Here is my code for the command button to calculate the averagePrivate Sub cmdAverage_Click()intDivisor = txtMark().Count 'sets the divisor to the same number as there are textboxesReCalc (intDivisor)Dim i As IntegerintTotal = Val(txtMark(0).Text) + Val(txtMark(1).Text) + Val(txtMark(2)) + Val(txtMark(3)) + Val(txtMark(4))  'I know that line is clumsy - I'll tidy it up latertxtAverage = CInt(intTotal / intDivisor)End SubI also have a function ReCalc which is supposed to iterate through the text boxes and if any of them are empty, the divisor should be reduced accordingly:Public Function ReCalc(intDivisor) As IntegerDim i As IntegerDim ctr As Integerctr = 0Dim ctl As ControlFor Each ctl In Controls    If TypeOf ctl Is TextBox Then        If ctl.Text = "" Then            ctr = ctr + 1 ' supposed to count how many text boxes are empty            intDivisor = intDivisor - ctr 'supposed to reduce the divisor by the number of textboxes that are empty        End If    End IfNext ctlEnd FunctionUnfortunately it just doesn't work. intTotal is always divided by 5 regardless of how many textboxes contain text. I'm not getting any errors so it must be a logic error but I can't see it. Any help?

Recordset Only Returning Five Records When It Should Be Returning 466
All,

Doing this in excel with VBA. Haven't working in VBA for a very long time but can't see why I'm getting these results.

I run this sql in query analizer and I get 466 records back but when the same sql runs in vba I only get five records back. I checked the conn string to make sure I was running against the correct db. Is it that I'm not setting up my recordset object correctly?

Code:
conSql.Provider = "SQLOLEDB"
conSql.ConnectionString = "Data Source = Test1;" & "User ID=sa;Password=test; Initial Catalog = test;"
'conSql.ConnectionTimeout = 120
conSql.Open

Dim strSql As String
Dim docXML As New MSXML2.DOMDocument

strSql = "SELECT CedingCoID, effectivedate, XMLString " & _
"FROM CAPSProgram " & _
"Where ID > 1 and CedingCoID > 1" _
' "WHERE (CedingCoID = '" & intCedingCoID & "' AND EffectiveDate = '" & CDate(datEffectiveDate) & "' AND Description " & IIf(strDescription = vbNullString, "IS NULL)", " = '" & strDescription & "')")

'Set rstData = conSql.Execute(strSql)
Do Until rstData.EOF
' If Not rstData.EOF Then
globEffectiveDate = rstData.Fields("effectivedate").Value 'set global effective date for future use
globCedingCoID = rstData.Fields("CedingCoID").Value

'End If
rstData.MoveNext
Loop

Returning Value
I'm using the following command to make a sum from a range of cells.

Code:
Dim Pa As Integer
ActiveCell.Offset(1, 5) = WorksheetFunction.Sum(Sheets("BOMA").Range("F5", Sheets("BOMA").Cells(Range("F65536").End(xlUp).Row + 1, 6)))
Pa = ActiveCell.Offset(1, 5)

The program return an error and stops at Pa = ....
Debug shows that Pa = 0 even though the sum in this cell are something else.

Some ideas

Returning From A Sub
Can any one tell me is there a way to return from a sub function
such as:
sub Replace()
blablabla
end sub

is there a way to return to the place in another function where I called this sub from?
if not is there another way I can run the same procuder and come back to my starting point?

Returning A Value From A Sub?
well I have something along the lines of

VB Code:
public sub returnTest(theNum As integer)if theNum = 1 then'return something elseend ifexit sub

But, I don't know how to return something in vb.
I would like to use this sub like..

VB Code:
testVar = returnTest(1)

Returning A Value From An Exe
Hello,

I am trying to make an exe which returns a value to the command prompt when run through the command line. I am using cmd line parameters..

Thanks
Ajit

Mts, Vb6, W2k, Not Returning
It's only been a week and it's time for me to throw this out to bigger brains then mine.

I have a vb6 app that uses MTS objects to retrieve data and do other nifty db stuff. When it was on nt4 I wrote a report engine that used MTS and generated a html report for the user. Dam* users now want me to implement it on w2k.

I register the dll in component services, run the control on the client that calls it:

VB Code:
Set obj = CreateObject("RDS.DataSpace")  Set report = obj.CreateObject("DCISReportEngine.Report", sServer)  'Set report = obj.CreateObject("DCISReportEngine.Report", "localhost")         'should return report url                strURL = report.GenerateReport(Conn, sServer, sSQL, sRepDef, boolDup, boolGroup)

Now running locally it runs fine. But when the code above runs it creates the object (starts the package running on the server) but
returns a null string. It should return a string with a url in it.

So I ask what am I not getting? I added a log file to the MTS dll and it doesn't create the log so I'd guess it doesn't run.

But nothing tells me that it doesn't.

Suggestions? Mine regarding giving back my nt4 have gone unanswered.

Dave

Returning Value From Exe
Hi,

Thanks for reading. I want a VB exe which should return a value say some success or failure regarding the operation happening inside it. Just like a C++ program returning a value to the console. And I want my java program to read this. How can I return the value from my VB program?

Thnx,
Pres.

I Really Don't Know (returning A Value)
My problem is kinda complicated. I have made my own msgbox because the normal msgbox freezes my program and that's not good. But now I can call the function. This opens a form and if it's already openend it put's the info into a type MSGINFO. So far so good. That form raises an event to tell if a button got clicked. Now when that happends I want to return the value to where the sub got called. And that's not possible (I think). But I don't want the sub wich calls the msgbox form to use something like:

DO
DOEVENTS
LOOP until Clicked

and then save in the boolean clicked if it got clicked cause that uses to much resources and gives up to much time. It's kinda complicated but I hope someone has got an answer.

Why Is It Returning Nothing?!?!?
I have this code piece to try and convert a month in numbers to the actual month like 11/ would be november. But I get a blank msgbox when I try this code and I can not figure out why! thanks for any help!

Dim strdate As String
Dim strmonth As String
Dim theday As String
Dim str2 As String
Dim strday As String
Dim chkmonth As String

strdate = Text1.Text

If Left\$(strdate, 3) = "/" Then
Select Case Mid(Text1.Text, 1, 2)
Case "10"
str2 = "October"
Case "11"
str2 = "November"
Case "12"
str2 = "December"
End Select
strmonth = str2
End If
MsgBox strmonth

API Returning Nothing
I got a few problems...
What do you do when you use a GetText Function to get the text on a window and nothing comes back? Like you know for a fact your code is right and bug free. I thinking the window has something blocking API or something. Some windows and objects dont let you use API on them is that possible? Some windows/objects you can't hide. Like Ad bars that dock on ur computer and stuff. How can you hide em? Also I know of one window i have you can SEE it has a title bar and a caption in it, but an API spy can get it's caption.
- How do you get around all of this? -
- How can I hide the windows i want to hide, and get text from objects that have text in em like a text box or maybe password box, or even a label, and captions? -
Maybe theres something I would use instad of API??

My GetText Function:

Code:
Public Function GetText(WindowHandle As Long) As String
Dim TheText As String, TL As Long
TL = SendMessageLong(WindowHandle, WM_GETTEXTLENGTH, 0&, 0&)
TheText = String(TL + 1, " ")
Call SendMessageByString(WindowHandle, WM_GETTEXT, TL + 1, TheText)
TheText = Left(TheText, TL)
GetText\$ = TheText
End Function

Thanks For Returning...
Hi,

I juz like to thank the adminstrators of this discussion board...I had so many questions regarding vb programming during the time the board was not functioning and felt so helpless... I took a long time to figure out how to solve problems compared to when I can juz pose the questions to ppl who help out with answering of questions on this board.

Juz to show my gratitude

Returning Mouse Down
Hey, I'm making a game and I have a bunch of Shapes on my form. When a user clicks on one of the shapes I would like it to return which shape it is so I can add a color to the shape that is clicked.

Example:

o o o o o <----Shapes (In an array 0-4) called shapePeg

^ ^ ^ ^ ^ <----Colored Shapes named shpRed, shpYellow, shpBlue, shp Green shpOrange

now say the user clicks on the shapePeg(2) shape, I want it to return that shape so that when the user clicks on one of the color shapes, the color will then go into the shapePeg(2)

I hope it isn't to confusing.

Help Returning Line Set?
Hi, i have the following problem.

I have a 6 multine textboxes not linked to eachother in any way, EXCEPT.. that they contain information wich is related to eachother..

like this :

Code:

text1: text2: text3: etc

info1 info2 info3
info1 info2 info3
info1 info2 info3
info1 info2 info3
as you can see, the first line of text1 .. contains information relevant to the same line in text2/text3/text4/text5/text6.
if you still dont understand 1 more example :

say we have a chair.. and we put it in a table.

Code:

colour type serial

blue antique 123-3472
red old-style 234-4567
now i want those information bits to be linked to eachother by counting the lines on wich they exist.

say i would want to see what would exist on lines 100~200

so therefor i would need it to do this :

1. Count the lines in text1 , start reading from line 100 .. and stop at line 200
2. print those in any way ( im going to write them to a textfile ).
3. then do point 1 for text2 till text6. and print those also.

how would i go by this?
i know how to count the lines and all that

Code:
Private Sub Count_Click()
Dim Pieces1() As String
Dim string1 As String
Dim lines As Integer
Dim i As Integer

string1 = Text1.Text

Pieces1 = Split(string1, vbNewLine)

For i = LBound(Pieces1) To UBound(Pieces1)

lines = lines + 1
Count.Text = lines

Next i

End Sub
but then i wouldnt know how to read the content of that single line, and even how to read multiple lines.

thank you
Jeroen van Vierzen

Old Toolbar Keeps Returning
Hi all,

Has anybody had problems changing to a later version of a custom toolbar.

I have a toolbar that has a menu on it, once an option is clicked it runs a small VBA program. This toolbar was attached the workbook and when opened appeared on the receiving PC.

I added some more options a while ago and I had a lot of problems getting the new toolbar to appear. Again I've added more options and now I'm pulling my hair out because the toolbar is reverting back the original one, version 1.....

I've asked the user to delete the original file and toolbar. There is now nothing on the machine relating to my custom toolbar. I have then deleted the attached toobars from my workbook and saved. Next step is to reattach the latest toolbar to my workbook.

Again the user still gets the old toolbar from 2 versions ago.

Help!!!!!!

Cheers
Tom

VBA: Returning The Top 'x' Results.
I need to display 'x' number of results.

The 'x' is user defined.
The results are generated by a Query then displayed by a report.

I have tried the SQL TOP command, but it appears you cannot link that to an input box located on a Form direct to the Query.

I have tried to generate an incrementing number field in the query, but this was also to no avail. If this would have worked then I could simply limit the amount to display.

Any ideas on this are greatly appreciated.

Cheers,

Si.

Returning A Value, Not A Formula
Hey all, I need a little help with something pretty basic. I have a macro that performs a simple calculation. How do I return only the result, the integer information, to the cell without the formula tracking along with it?

ActiveCell.FormulaR1C1 = "=R[-1]C+1"

Thanks for any help on this!

XLS MsgBox Returning A Value
I'm an idiot. I'm sure this is a super easy fix and I'm just overlooking something.
Heres what I have

Code:
Private Sub Validate()
Dim EmpName As String
EmpName = Range("B2").Value
Ans = MsgBox("Are you" & " EmpName " & "?", vbYesNo, "Validating")
Select Case Ans
Case vbYes
' Code for yes
Case vbNo
Range("B3").ClearContents
Call GetName
End Select
End Sub
The Message box shows "Are you EmpName?" It doesn't show like, "Are you DrSwaity?" if thats what was in B2. I think it looks good, but obviously not.

One consideration is B2 contains a "=vlookup" formula. There is a value in the cell...

Returning A String From A VB6 Std DLL
I have created a standard (not ActiveX) DLL from VB6 and am trying to return a string to the calling application from the DLL function. The problem is that the string returned is in wide character format (nulls in between characters)...is it possible to return it in narrow character format (no inter-character nulls)?

i whouldnt know what to google to find the answer to this so ill ask on a fourm. i whould like to make a program that can copy itself to another directory. i know how to copy just fine, my problem is that, i dont know how to return the current address of the program. say someone downloads my progam and saves it were ever(c:/downloads/stuff/) for example. how do i make my program return (c:/downloads/stuff/myprogram.exe) as a string, so i can make it copy it and save it to another directory?

Returning Focus To VB
I have a VB program which instructs an Application (AutoCAD), to do a number of things, including "zoomAll". THis sets the focus on the AutoCAD application. Then to proceed with the VB program's Code, I always have to manually click on the VB interface. This returns the focus to the VB program and so teh VB code is resumed.

The problem this is to be a server program so I need ensure that the focus is returned to the VB program automatically.....Any suggestions would really be appreciated.

Thanks

Gwyn

Returning Filenames
Hello.

Does anyone know how to return a list of filenames from a folder.

In a folder say H:Folder there would be some documents. Documentx, Documenty, Documentz. I would like to populate a list in excel with these filenames.

Hope this makes sense.

Martin

Returning The Value From A List Box
Alright, I have a list box and im using my variable.listindex which gets the value of the row that i have selected but i want to take the value that i have in the row. So just tell me.

Returning A Variable
Ok ive made an object, but there is still once piece of code i cant figure out. The object has a few variables (Dim Id As Integer), and has a function to give it the Id. But now If i want to call the ID while the program is running, how do I do it? I have another function called getID() but Im not sure what the command is so i can call that variable and use it. (similar to the return variable command in Java)

Dir Function Returning . And ..
I'm using the dir function to populate an array with the names of folders on a drive. It works fine if you specify the root folder

ex.
sFolders = Dir("f:", vbDirectory)

but if i specify a subdirectory, like this

sFolders = Dir("f:sub", vbDirectory)

it lists all the subdirectories off of f:sub but it also lists "." and ".." for the first two elements of my array.

Is there a way to stop this?
Also, is there a difference between dir() and dir\$()

thanks

Returning Day Of Week
is there a simple function in vb that can return the first day of a given week.

for example week 3 in 2003 gives 13 januari

thnx for the help

Returning Enum
Module:

Code:
Enum type_Defcon
blue = -1
green = 0
yellow = 1
red = 2
End Enum

Public Defcon As type_Defcon
Form:

Code:
Private Sub Form_Click()
Defcon = Defcon + 1
If Defcon > 2 Then Defcon = -1
Debug.Print Defcon
End Sub
This will print the value of Defcon. But how can I print the names? like blue, green etc.

Returning ListIndex
How do i return the listindex from a item in a listbox if i only know the text?

i know how to return the text if you know the listindex

SelItem = List1.List (List1.ListIndex)

But the other way round isn't working...

Returning A Pointer From A DLL
Hi All,

This may be a stupid question (there are no stupid questions, just stupid people asking questions)....

This is my DLL function that returns a pointer to a buffer variable that is passed, as a pointer, the function:

char *PROG_GetHome(char *buff);

and I am trying to build the VB code that calls this function and I am having a little trouble.

Any ideas?

Thanks much, DM

Returning Printer Name
I have an application where I need to store a users selection of up to 6 different printers (various default label printers, etc). I am trying to use the Common Dialog to allow the user to select a printer to store, but cannot determine how to find the printer name once returned from the selection using the control.

Returning An Array
how can i return an array from the function?

waqas

Returning An Error
In A function or Subrotine, is it possible to return an error to what called it? That way I can use the On Error command more easily.

Returning Values From A VB Exe
Hi All,
I am trying to write an exe file (required by a 3rd party vendor I am integrating my system with) that accepts an arguement (the ID of a particular record in a database) and select the values from the tuple associated with the ID from the database, concatenate the selected fields and return this concatenated string.

Is this at all possible. I mean if i create a standard exe, it is the form_load that runs and since it is a Sub it cannot return a value. I cannot use a dll because the vendor explicity states that an executable (exe) file must be used. It is their system that calls my exe file and I do not have control over how it calls my file. All it does it call my file with an input paramenter and expects the string returned when it calls the exe.

Any help is greatly appreciated. I am a novice to VB and I do apologise if my question sounds silly.

Thanks a million.

MI

Function Returning A Value
Could someone show me a quick demonstration of calling a function, and having that function return a value?

Returning A Value From A Form
Hi all,

I'm probably being dense here, but could someone enlighten me on how to return a value from a form in VB6?

Thanks,

-Utini

Returning DOS App Results
Is there a function to return the results of a DOS program into a variable? eg,
xxx ("C:windowssystem32ping.exe google.com", result) would return the output you'd get if you typed that into a dos prompt into variable result? Thanks

Returning Key Value From A Collection
Is there a way to return the key values from a collection?

Here's some code to illustrate what I mean:

Code:
Public Sub Save()
Dim fso As New FileSystemObject, ts As TextStream
Dim outputLine As String, i As Integer, setting As String
Set ts = fso.CreateTextFile(mFilename)
For Each setting In Settings
outputLine = setting.key & "=" & setting '<- if only this worked....
ts.WriteLine outputLine
Next setting

ts.Close

Set ts = Nothing
Set fso = Nothing

End Sub

Of course, the setting.key is invalid. What I want to do is find both the value of each member of a collection, and also the value of the key for each member. I supose I could just rewite the class to store the key and value in a small array, but I was hoping to make a shortcut in this way...

Any suggestions?

Returning The Value Between Two Characters
If i have

<one two three> how do i get the values between the < and the >?

thanks

Returning A Value And How Read It
Hi,

This question its a little simple, but I don't know how do it.

I just need to return a value of my EXE when the commandline have some letter ie. "/V", I need to return a Version of the EXE. and How I can read it from another EXE ???

Thanks
Mike

Help! Regarding Recusefolder Returning
I found this code. Is this code capable of returning just the filename and just the subdirfilename? Example:

I working around this, but couldn't figure this out. any help would be appreciated!!

Code:
Option Explicit

' Written by Allen S. Donker

'************************************************************
' Takes a valid path to a folder and, using recursion,
' fills a listbox with the complete path and filename
' of each file in the folder passed in
'************************************************************

'************************************************************
' Folder/File attributes constants
'************************************************************
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_COMPRESSED = &H800
Const FILE_ATTRIBUTE_DIRECTORY = &H10
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_ATTRIBUTE_TEMPORARY = &H100

Const INVALID_HANDLE_VALUE = -1
Const ERROR_NO_MORE_FILES = 18&
Const MAX_PATH = 255

'************************************************************
' Struct to hold file data
'************************************************************
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

'************************************************************
' Struct to hold data returned from API calls
'************************************************************
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

'************************************************************
' Struct to hold data returned from API calls
'************************************************************
Private gFileData As WIN32_FIND_DATA

'************************************************************
' Windows API declarations
'************************************************************
Private Declare Function FindFirstFile& Lib "kernel32" Alias "FindFirstFileA" _
(ByVal lpFileName As String, _
lpFindFileData As WIN32_FIND_DATA)
Private Declare Function FindNextFile& Lib "kernel32" Alias "FindNextFileA" _
(ByVal hFindFile As Long, _
lpFindFileData As WIN32_FIND_DATA)
Private Declare Function FindClose& Lib "kernel32" (ByVal hFindFile As Long)

Public Sub RecurseFiles(ByVal sFolderPath As String, objListbox As ListBox)

Dim hFindFile As Long
Dim ReturnValue As Long
Dim Filename As String

'Get First Directory Entry. File value returned will end in
'a null-terminated string.
hFindFile = FindFirstFile(sFolderPath, gFileData)

'Exit if there was an Error Getting First Entry
If hFindFile = INVALID_HANDLE_VALUE Then
FindClose (hFindFile)
Exit Sub
End If

'Initialize ReturnValue
ReturnValue = 1

Do While ReturnValue <> 0

'Remove the null charactor from Returned Filename
Filename = StripNulls(gFileData.cFileName)

' If it is a Directory but NOT the "." or ".." directories
' get all the Files in that directory (starts the recursion)
If Filename <> "." And Filename <> ".." And _
gFileData.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY Then

RecurseFiles Mid(sFolderPath, 1, Len(sFolderPath) - 3) & Filename & "*.*", objListbox

Else 'Keep getting files in current psStartingPath

If Filename <> "." And Filename <> ".." And Filename <> "" And Not _
gFileData.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY Then

'Now that we have the file, do something with it,
'in this case, add it to a listbox
objListbox.AddItem Mid(sFolderPath, 1, Len(sFolderPath) - 3) & Filename

DoEvents

End If

End If

' Get Next Entry
ReturnValue = FindNextFile(hFindFile, gFileData)

If ReturnValue = 0 Then

Filename = ""
Exit Do

End If

DoEvents

Loop

' Close Handle
FindClose (hFindFile)

End Sub

Private Function StripNulls(ByVal FileWithNulls As String) As String

Dim NullPos As Integer

NullPos = InStr(1, FileWithNulls, vbNullChar, 0)

If NullPos <> 0 Then

StripNulls = Left(FileWithNulls, NullPos - 1)

End If

End Function

Returning Control From A DLL
Hi,

I have an ActiveX DLL written in VB which is very interactive. From the calling code I can pass and receive data ok. All works fairly well, but my big, big, big problem is that I don't know how to instruct the calling logic to wait until the interactive parts on the DLL are complete.

How do I suspend execution until such time as I enter everything through the calling DLL.

AS

Dll Returning A Handle
hi.

1) I wrote a dll that opens a new window, plays a flash file
and returns a handle in a function.

2) I wrote an app that calls the function that creates the new
flash window in the dll.

the problem is:
the function in the dll dosen't return the handle - it Returns nothing!

the dll code:

Public Function FunctionName( byVal ArgList....)
.
.
.
FunctionName=NewForm.hWnd
end function

what am i missing?

thanks.
yaniv.

Returning 8 Characters From 13
I wanna display 8 characters from a 34 characters long string:

example:

"This is a 26 long character string"

and i only want this part:

"This is "

how do I do that?

thanx

Returning Arrays?
Is it possible for a function to return an array of values (specifically, an array of Bytes)? Here is my current code.

Code:
Public Function bAdd(ByRef b1() As Byte, ByRef b2() As Byte, ByRef bOut() As Byte) As Boolean

You pass it three arrays total (which can all be the same if you wish), and bOut() is the result array.

To call it, it looks something like this:

Code:

What I want is something more 'traditiona', like this:

Code:

Any hope, or am I stuck passing the array both ways instead of setting the function? Thanks

Returning Records
I am using the folowing code to retrieve specific data from an SQL7 DB. If I run the same query copied and pasted from the code
into the query analyzer it returns a record. When run in the code it returns nothing and a record count of -1.

Am I not doing something right here?

Code:

'Create New Connection

'Set Connection string and open connection
With NewCon
.ConnectionString = "Provider=SQLOLEDB;Data Source=localhost;" _
& "Initial Catalog=image;User Id=sa ;Password= ;" _
& "Connect Timeout=15;Network Library=dbmssocn;"
.Open
End With

SQL1 = "SELECT * FROM STORE WHERE INDEX1 = '12345'"

RS1.Open SQL1, NewCon

MsgBox RS1.RecordCount

DLL Returning Recordsets
Hi,

I am new to COM development and have the following questions:

1. Is this the correct way to return recordset (used by ASP)?
2. Should I "Set rsObj = Nothing" in my code?
If Yes, how can ASP (which initiates the COM) use the returned recordset if it is destroyed?
If NO, will there be memory leakage?

Sample Code:

Code:

cnObj.Open("uid.....")
rsObj.Open "select * from authors",.....

Set rsObj.ActiveConnection = Nothing
Set TestRs = rsObj

Set rsObj = Nothing // Do I need this? //

cnObj.Close
Set cnObj = Nothing
End Function

Max Not Returning Anythig
Greeting:

I' trying to use the max aggregate to return the highest key on file so that I can add another record by bumping the returned key up. I'm not getting any errors but I'm not getting anything back on the MAX. The code in use:

Code:
dim Maxno as long

rsSelect = " select max(custacctno) from customers group by custacctno "

Maxno = Maxno + 100
txt_custno = Maxno
end if

After execution maxno is left with 0, and the recordcount comes back full meaning all the records are returned (56) which is all the records on file.

Can someone tell me what I'm doing wrong and or how I can go about getting the highest key on file. I thought the max could do that.

custacctno is defined as a number and the key. Using autonumber is not a choice at this point.

Donald

Not Returning Records
Hi,
I run an sql statement designed to return records based on dates

strSELECT = "SELECT ID, Name, Number, LastAccess FROM UA#BatchReport WHERE LastAccess BETWEEN '" & StartDate & "' AND '" & EndDate & "';"
DataGrid1.Refresh

However this is not returning any records, it should - the info is there in the tables, I have tried it in the SQL server and got the proper result - so I can only think that there is something wrong in the code but I cant see it

If anyone else can I would appreciate any help

Returning A Value On Exit
Hello,

I am trying to write a VB program (say prog1) to call another VB program (say prog2) and wait for it to close. When prog2 closes, I would like it to return a value (preferably a string) to prog1.

I have everything working except for the returning of a value, I can't work out how to do this. I have seen some examples which use ExitProcess but the Microsoft website says that this can cause problems and is unsupported. Anyone got any ideas?

VB6 DLL Not Returning Any Value When Called From C++
Hi,
I made a VB6 ActiveX dll. It contains a simple function that returns the integer value 10.

I tried calling it from VC++.
The CoInitialize and CoCreateInstancefunctions execute successfully, even the actual function call made using the function handle i got from the CoCreateInstance returns Success... however the last parameter which is supposed to contain the "out" value does not return the expected value 10... it remains the same value as when it was initialized.

example:
int returnvalue = 0;
hr = Class1->ExampleFunction(&param1, &param2, &returnvalue);

the returnvalue should be set to 10 but it remains 0...