Search results

Me.Controls("Text" & CurrNumber).Visible = True

C'mon, Rich, this sh*t is getting old...

look for an app called "pretty code print"

Let me try to save you some coding Barry: (no offense intended, Dennis) in a function: Dim charLoc as Integer Dim extLoc as Integer Dim a as String a = "\\server\ehealth\StrayDogs\DogPics\2007\012345.jpg" charLoc = (InStr(1, StrReverse(a), "\")) - 2 extLoc = (InStr(1...

Nice one, Brian:D

startPOS = InStr(1, a, "<DIV") - 1 While startPOS > 0 endPOS = InStr(1, a, "</DIV>") + 5 strLeft = Left(a, startPOS) strRight = Right(a, Len(a) - endPOS) a = strLeft & strRight startPOS = InStr(1, a, "<DIV") - 1 Wend assuming you will always be...

with the ensuing devastation to the gasoline supplies? I'd think that would be a higher priority than retirees and college kids playing on the beaches.

we've been performing cloud seeding for years, but that's just to control precip and in some cases attempt to control hail. There are always rumors, though...heard that there's an installation in Alaska using massive antennas for directed radio/microwave transmissions...but the rumor mills...

Dim a As String Dim strLeft As String Dim strRight As String Dim startPOS As Integer Dim endPOS As Integer a = "This is part one of the string <DIV style=""padding:5px; FLOAT: middle; MARGIN: 5px; WIDTH: 88; BACKGROUND-COLOR: #cccccc; height:8"">" & _ "<font...

Unfortunately, if you are going to enforce the referential integrity, this will happen unless you are willing to create new entries for each change or archive off historical data so that it is no longer part of the enforcement.

As I see it, you have two choices: Create a new column which designates the Before/After status of the entry If you are using an auto number sequence as a primary key, there will be two entries per student, the lesser number will be the before eval, the higher number will be the after.

establish a validation rule for the field and that will restrict the data entry

...and using the Queen's English, he might be able to spell, too :D

modify the Input Mask for the text box instead: '#0/#0/00##' will only allow up to two numbers(leading zeroes not mandatory) followed by the slash, up to two numbers, slash, up to four numbers. To make the numbers mandatory, use '00/00/0000'

you'd prefer Quick Draw McCheney, perhaps? :D

after being unable to find a suitable candidate for PM or come to an agreement, the UK will give up hope... ...the US, seizing upon the opportunity, will offer up GWB as a replacement :eek:

in your form: Private Sub Combo0_Change() Select Case Me.Combo0 Case 1 Do this... DoCmd.OpenForm "myFormName" DoCmd.OpenForm "myOtherFormName" Case 2 DoCmd.OpenReport "thisReport",acViewPreview...

I believe the proper argument for the shell command is vbMaximizedFocus, but you'll get the options if you type a comma after your commandline. after opening, you could also use SendKeys to pass the "F11" full-screen command as well

Your Criteria in the DCount function is comparing a String, therefore the criteria must be wrapped in quotes or DCount looks for a variable with the string name you passed: DCount("[strModelNo]", "[tblAJL_Test]", "[strModelNo]='" & Me![txtModelNo] & "'")

...and Sauerkraut was renamed "Freedom Cabbage"...