Search results

Just adding a little more detail. :)

With a total of 4 posts I would imagine the reply would be - What? ================================= johnob ... Putting your code in the appropriate tags makes it easier to read. Private Sub codeWithoutTags() ' This is code without tags End Sub As opposed to [code]Private Sub...

As you are using an Input Mask is the underlying field type, Number (Single) or Number(Long)? It may be that the numbers have been stored as 2014.0010, 2014.0020 - 2004.9000. Is this field used elsewhere or is it just in the one table? If it's only in one place it may be easier to fix. Are...

There are no criteria involved in the code above nor does it change the title bar, so I suspect there is something being affected elsewhere.

I would check to see whether the three fields, you could add more by concatenating them, had any characters in them. You would have to check in the Current() event of the Form and also the AfterUpdate() event of each of the controls. Private Sub isNewClientVisible() Dim strTemp as String...

I'm glad it worked out. :)

Personally I would rewrite it as a series of 'OR' statements. A Boolean flag (blOutOfRange) starts with the value of False and if any of the subsequent statements is true then the flag gets set to True. Finally the flag is used to set the Visible attribute of Me.POOS Dim blOutOfRange as Boolean...

As I say, you need to create an update query to run against your table (Remedy CCRR data?). When you use the Access query creator on the lower half of the screen will be where you add your fields. You would add the memo field (theFieldInQuestion) where it says "Fields:". When you choose...

Probably the same way as the current occupants with tomahawks. ;) Original Tomahawk - a type of axe made and used by Native Americans Modern Tomohawk - a cruise missile built in the United States

There was a similar thread on automatic numbering system where I came up with a function which would do the job you want. It's based on the idea of using DMax + 1 but is configurable. Public Function nextIdString(ByVal nisFieldName As String, ByVal nisTableName As String, ByVal nisPrefix As...

Since you are doing an import I would probably create an Update query with Field:"theFieldInQuestion" and Update To: addCrLfBeforeDate("theFieldInQuestion") and run it after the DoCmd.TransferText acImportDelim line.

Before: 2012/05/23 3:13:45 PM XXXXXXXX This is not considered an emergency, but should be reviewed in more detail to see if this site does require an upgrade PRIOR to the National rollout. A custom solution would be developed, that once implemented, could become the standard product in similar...

An unzipped version (260Kb), if that's of use, and the code of the two functions. Public Function strFingerprintGet(ByVal theString As String) Dim lngIndex As Long, strTemp As String, strChar As String For lngIndex = 1 To Len(theString) strChar = LCase(Mid(theString, lngIndex, 1))...

In the attached database I've managed to package the functionality into two functions: strFingerprintGet() - Takes a string as a parameter and returns a string of "A", "N" etc. addCrLfBeforeDate() - Takes a string and returns a string with added CRs, uses strFingerprintGet() for create a...

Currently putting together a demo. Bear with me. :)

When trying to detect strings like dates I create a fingerprint where letters are replaced by "A", numbers are replaced by "N", other characters replaced as required and everything else as a ".". Public Function strFingerprintGet(byval theString as String) Dim lngIndex as Long, strTemp as...

I would surround each of the entries in double quotes (Character 34). File1,File2,File,3,File4 Would become ... "File1","File2","File,3","File4" Access will then treat everything inside the pair of double quotes as a single string. Change your code to something like ... strYourFileList =...

Attached is another version which also contains code based on your solution above. I've added spaces between the characters for clarity. Before AfterMine AfterYours % 36 28 %S 36 28 28 28 & 37 29 &T 37 29 29 29 ) 38 34 / 39 38 0 00 0 1 01 1 2 02 2 a 10 10 AB012 10 11 00 01 02 10 11 0...

... unless it is in their interest to control / exploit the lower species. There are plenty of Science fiction tales of such beings using a few parlour tricks to fool another, or other members of their own, species into slavery. Stargate SG-1 with its Goa'uld and the Ori. Star Trek with the...

Some mortals have been helping bereaved people to speak to deceased loved ones for years. Although a lot of people seem to ridicule professional mediums these days.