Search results for query: *

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.

Thanks for the input guys. I think I will just declare everything as long from now on. Unless I can get away with a byte.

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...

here is the link. http://msdn.microsoft.com/en-us/library/office/aa164754(v=office.10).aspx

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...

Have you considered using the forms openargs property to pass the record# instead of the textbox.

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...

this can be don easily. See create control method but be aware that the form must be in designview to add the controls

As is says "c" & iNodeCount + 1 would not be unique somewhere in oTree.Nodes there is something with that key change code to make it unique

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.

to get the name Dim frm as form set frm = createform msgbox frm.name to clear delete form1 from your querydefs collection

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)...