Way to clear it up Strongm!
I have not used the VARPTR command since Qbasic when I was poking and peeking pixels. I did not realize it was supported in VBA
I just tried VARSEG but VBA ejects that.
So I'm wasting my time using an integer. I had the same experience as you with an overflow if declared as an integer. But the only reason I declared it as an integer was to reduce memory usage. Since it converts it to a long any way I really don't save any memory I only run the risk of and...
I found this info on MSDN today. Was anyone else aware that VBA converted integers to long. I have used integers in my code where ever possible. Internal functions like on dblclick(cancel as integer) still use integers. I started programing when memory was tight now it seems my practice...
I know this is old thread but I needed a small challenge.
Add a rectangle to your form named box1, red 1PT border, and visible = false
two short functions
Private Function PlaceBox()
Me.Box1.Visible = True
Me.Box1.Top = Me.ActiveControl.Top - 50
Me.Box1.Left = Me.ActiveControl.Left - 50...
Sorry misread, you are trying to capture conus
replace intStart = InStr(1, curStatus, "OCONUS and Foreign Locations")
with
intStart = InStr(1, curStatus, "CONUS Locations")
file name is conus2013a.xls
The file location is under the source of
http://www.defensetravel.dod.mil/site/perdiemFiles.cfm
parse it from there. Here is a real ugly example.
<code>
Private Sub SendtoURL()
Dim HTTP, sURl As String
Dim curStatus As String
Dim intStart As Long
sURl =...
While I don't fully understand what you are trying to do. I did a quick test and anywhere I clicked in my textbox named text1 I could make the à appear with my code below.
<code>
Private Sub Text1_Click()
Dim newText As String
newText = Left(Text1, Text1.SelStart) & Chr(224)
newText = newText &...
depends on how you intend to use the function and what you want it to return
Function fCountry()as control
fCountry = Forms!frmChooseBooks!cmbCountry
End Function as control
or
Function fCountry()as string
fCountry = "Forms!frmChooseBooks!cmbCountry"
End Function as control
That depends on the design of your database not the tree view.
How can you tell from the data stored in your tables which models of Pentium the Dixons carry and which the Dynabite stock?
I don't have a good enough understanding of you data structure to answer the best way, but if you are using...
I know this thread is a bit old but here goes
When loading the treeview child node you specific which node it should be loaded under by passing its key to the add method. Each node needs to have a unique key. Don't confuse key with index.
You add nodes using the add method
.add(Relative key...
If I understand what you are asking the answer is, yes you can. See openreport method in help. You should be able to pass license and document number via the where condition.
Zip code info is not my strength so I could be wrong but
One suggestion to parse this is, pull the zip code info out by using int() or is numeric() and getting it down to 5 characters
the zip code should give you the state info so parsing that is redundant (I think zips don't cover more than...
see strcomp function.
If Trim(myfield & "") = "" is another way
NZ is great as well
If this is a bound control look at the dirty and oldvalue property instead of storing as a tag
if me.dirty then
insert into foobar(myfield) values (field.oldvalue)
end if
This seems to work for me in
Set tdf = dbs.TableDefs!itemstbl
Set fld = tdf.CreateField("newfield", dbInteger)
tdf.Fields.Append fld
Set prp = fld.CreateProperty("Format", 3, 10)
fld.Properties.Append prp
Set prp = fld.CreateProperty("DecimalPlaces", 2, 2)...
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.