I know that that my recent posting will be quite different from what I have previously said. But if anyone noticed earlier, I did say that my office workstation does not have Visual Basic installed, which means I only have the weekend to actually test code before I post it and not because I...
I'm so sorry I couldn't post this code earlier so you could have used it jmarler.
'Copy this code and paste it into your form. Run it to
'see the result
Private Sub Form_Load()
'This variable need not be created
Dim t As Control
'A textbox control is added to the form's control...
open a form, get to the code and type "vb." and intellisense will tell you what controls there are
I hope I understand the question you posted
For your information jmarler, if you noticed, what I did was
Set {control} = New {control}
I did not do this:
Set {obj} = New {control}
These are 2 totally different statements. So, lets not confuse our friend here
Did you close you connection object within your ccon class?
Did you declare the arguement where you pass in "DBServer" as a "DBLoc"?
Seems to me like you are referencing common values here.
You could actually declare variables in a basic module and have the forms in your project use/reference the values rather than pass them directly like
frmSummary.label = frmMain.label
You must always set the variable to a new type and not just any word you use. Remember that forms have control containers and any control created at runtime must be inserted into the form's control container and then loaded so you may see it in your form.
Private sub Form_Click()
Dim anytext...
Add the webbrowser component to your form
You can experiment with this:
Private Sub Form_Load()
WebBrowser1.Navigate2 "http://www.tek-tips.com"
End Sub
Mats are you trying to say that it doesn't really matter if the field is present in the second recordset since you say you just want to get info and thats it. Because if that is so, you can use disconnected recordsets and not try to copy info from an actively connected recordset to another...
I'm sorry Micheal but those might just be experimental code which is why "d" isn't referenced and tapeworm might not have finished the whole of the coding so..... nobody here wants to question if tapeworm is an amateur or know to much of what others are doing as long as they answer the...
recordset.Find (criteria, SkipRows, searchDirection, start)
criteria = eg.("nvName = " & strMyName)
[Conditions you might want to state, <SQL>]
skiprows = eg.(1-???)
[How many rows in the recordset you would like to skip]
searchdirection = eg.(adSearchBackWard, adSearchForward)
[The...
It is a better practice to always use default values for any arguements which you declare as optional. Furthermore,
I suggest you not check if the arguement is missing but instead set the default value as 1.
example:
Private sub inc(c as integer, optional b as integer = 1)
c = c + b
end sub...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.