Search results

Oh, my fault... When you initalize the variable TempString, you have to set it to an empty string, "", not 0. Use this line... TempString = "" You know, I thought I changed it before.. Sorry for the confusion. Doug

You should use the following... with objRS .edit ![JobNumber] = TempString .update .movenext end with This will update your current record and move on to the next record. Doug

You are referring to the table's Fieldname, so you have to use the correct syntax... Use this instead... For ctr = 1 To Len(objRS![JobNumber]) Hope that fixes it for you. Doug

Alright, I apologize for being so vague.. What I meant was fixed.. As in always being 10 characters and always in the form mmddyyhhmm. If that is true, then you can use what I gave you... If you want to put the value in one field, then you can just use... 'AfterUpdate event of the textbox...

You could use a manually created login procedure for this... Have a user log in and have a table set up that has User ID, Password, and access level... if the passwords match, then set the access level to a global variable... and set a public function up to return the access level value...

Use a string of characters that is allowed and compare each letter to that string... If it matches, build a new string.. Like so.. dim AllowedCharacters as string dim TempString as string dim ctr as integer AllowedCharacters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-" 'Open your table here...

Well as long as the format is going to be set, you can just use string functions to convert the characters, like so... 'For the Date... CDate(Left([ID], 2) & "/" & mid([ID], 3,2) & "/" & mid([ID],5,2)) 'For the Time... CDate(mid([ID], 7,2) & ":" & Right([ID], 2)) That should convert the...

You need to specify the Form property first... Try this... Forms![frmSearchSubform].FORM.Filter = "[suburb] =" & Me.txtSearch Forms![frmSearchSubform].FORM.Filteron=true Hope this helps. Doug

Put this code in the Click event of the button... Me!SubForm_Name.Form.Filter = "[DateField]>=#" & me("txtBeginDate") & "# AND [DateField]<=#" & me("txtEndDate") & "#" Me!SubForm_Name.Form.FilterOn = True And then you don't need anything in the filter of the subform... This code will set the...

It looks fine to me... The only thing I see missing is the "End With" command, but I'm sure you just forgot to paste it, and that wouldn't be your problem anyway. Is the recordset a query? And if so, is it an updateable query? That could be your problem.

Okay, after you set the source for the subform window, do the following... Me![SubFormName].Form.Filter = strWhere Me![SubFormName].Form.FilterOn = True This will set the filter of the subform to your where criteria. Hope this helps. Doug

Try opening up a module, going to the tools menu and selecting references. If any of the checked items say MISSING next to it, uncheck the box. Hope that helps. Doug

oh yeah, I was thinking of tables... Thanks Jack.

You need brackets([]) around the Field names. Also, if product code is a string, then use tick marks(') like the example below. Do Until (DSum("[Gallons Received]", "qryDGLRPT", "[product code]='product code'")) 'Otherwise you can leave them out. Do Until (DSum("[Gallons Received]"...

I'm not sure if this is what you're looking for but you could create 3 seperate subforms and set the visible property to false. Then depending on which option you select, set the particular subforms visible property to true. Hope this helps. Doug

I believe it is 255 and I don't believe there is any way to change that. Sorry. Doug

open up a module and then go to the tools menu and select references. If anything with a check mark has the mord MISSING by it, uncheck that box. This should do it for you. Hope that helps. Doug

You should create a function that takes in one arguement("intTextNumber"). Set up a table with unique numbers and the messages to go along with them. In the Click event of each message box, call the function and use the unique number to get the text for the message box. You can use a Dlookup...

Use the followingcode... public lngI as long 'The next function will initialize the progress meter. Set lngCount equal to however many steps in your macro or however many increments you will be moving the progress bar in... Public Function Initialize() Dim VarReturn As Variant Dim...

Mymy, What you are doing is putting quotes around the variable by using double quotes... Two quotes next to each other will print a single quote, similar to the ampersand(&). This only needs to be done to string variables... Numerical variables do not need quotes... Try this code instead of...