Search results

You should just use a combobox with 3 columns in your source(Name, Home Address, Business Address). Set the column width property to 3;0;0. This way, you'll only see the name field(Adjust the 3 to whatever size is desired). Then when a user selects a name, you'll have the info sitting there...

Doug, Run through a loop before you set the short name and find the asterisk... dim TheLetter as string dim ctr as integer dim strBuildCompany as string dim strBuildFirst as string dim strBuildLast as string dim StartPoint as integer strBuildCompany = "" strBuildFirst = "" strBuildLast =...

me.refresh But it really should be doing it automatically... When you click on a text box the info appears?

First, you should put the code in the AfterUpdate of the combobox... That way, as soon as something is selected, it will throw the data in the textboxes... For the second question.. In design view, click on your combobox and go the the "Column Width" entry on the properties sheet... Then...

Two things... First hover your mouse over the variable strLocation and see what that says.. Is the criteria correct??? Next, if you are going to use Pat Hartman's Method(which I advise you to use) you don't need the .findfirst call.... All the info is in the columns of your combo box already..

Try building the criteria first... dim strQuery as string strQuery = "[StandardLocation]='" & Me!Location & "'" .FindFirst strQuery This should do it for you, and if not, you'll have the sting in a variable now, so you can debug better... [This message has been edited by D-Fresh (edited...

Try this to change the color of all text boxes in your form... Put the code in a On Click of a command button or an AfterUpdate or whatever event you choose... Dim ctl As Control For Each ctl In Controls If ctl.ControlType = acTextBox Then ctl.BackColor =...

Is "Location" the name of your combobox??? if so, then you have to use the syntax "me!Location" to refer to it... Hope that helps.. Doug

Try to run a SQL validation on your table in the BeforeUpdate event of the "Start Time" on your form. Use this code... Private Sub StartTime_BeforeUpdate(Cancel As Integer) Dim MyDB as database Dim MyRecs as recordset Dim MySQL as string MySQL = "SELECT * FROM [Your_Table] WHERE...

Actually, you could do it either way.. You can have a second form pop up, or you could use a subform. Keep the Subform's visible property set to false and then when the Invoice # is clicked, you set the subform to visible and filter out the invoice #.

You should create a seperate pop-up form with the detailed data you are looking for on it... Then when the invoice number is clicked, you can open up the pop-up form with the data filtered to only that invoice #. Hope that'll help you out. Doug

MJ, Your best bet is to put the text box in the footer with the control source of "=sum([FieldName])". However, you have to refresh the form everytime you add a new value to the form. So you can put this command in the After Update event of your field.. "Forms![Form_Name].Refresh" Hope that...

Okay, I don't think this is the problem, but change your SQL statement to this.. MySQl = "INSERT INTO [Customers] (CustMC #) VALUES (" & NewData & ")" See if that does anything. Also, What error message are you getting? Check the underlying table, is the MC # in there?

Right, but you could also run a quick SQL statement On Filter and check if there are any records. If there are no records for that filter, then you can take the filter off.

Well, you can get rid of that easily by setting the "Allow Additions" property to no. You won't be able to add records, but it will get rid of that last blank line. Hope that helps. Doug

Make sure you spelled the name correctly. A little tip, click on the table name in the database window, and then hit F2. You can then press ctrl-C to copy the name. Hit Esc, then go to your code and paste the name into the Update statement. That way, you'll be sure to know you used the...

You could just use SQL statements in the After Update event or on the click of a button. USe the following code: Dim MyDB as database Dim MySQL as string 'If it's a new record, do the following: MySQL = "INSERT INTO [Table_Name] (FieldName) VALUES ('" & me![Form_Field] & "')" 'or an existing...

Try a loop... if not isnull(me!Models1) then me!sub2.visible = true end if for ctr = 2 to 9 if not isnull(me("sub" & ctr)("Models" & ctr)) then me("sub" & (ctr+1)).visible = true end if Since the syntax of the first text box is different, you have to check that seperately, then run through...

Sorry about that.. 3 things.. First off the syntax is "INSERT INTO" not "INSERT TO" and also right after that statement, put in the following code: MyDB.Execute(MySQL) Response = acDataErrAdded That should do it. Sorry for the confusion, forgot the little things! Hope that works for you. Doug

For 1 and 3: Write an Insert SQL statement on the Not in List event. Dim MyDB as database Dim MySQL as string MySQL = "INSERT INTO [TableSource] (CollegeCode) VALUES ('" & me![Combo36] & "')" 'Note: Don't use the apostrophes(Single Tick marks) if CollegeCode is a numeric value! set MyDB =...