Search results

Hey all.. Been out of the Access loop for quite some time now.. Last project I did was in Acc97, about 5 years ago! Been working on SQL Server and web programming lately... Anyway, I have a project that needs to be done in Access XP. It is a basic resource allocation DB. Listing of...

Set up an unbound text box. As the control source use the following... =iif(datediff("d",[Renew_Date],date())<=5,"Contract About to Run Out!") This will check if the renew date is within 5 days of the system date and put the warning on the form if it is, otherwise will print nothing. Hope...

Create a 3-column combo box on your form with a source of your first table and bound to your second table. Put unique number, part #, and qty as your columns. Make your bound column the first one, and hide the other two columns. Do this by setting the column widths to 1;0;0 (1 inch for the...

Maria, Your best bet is to hide the current toolbar, and make your own custom toolbar. Here is the code to hide the toolbar... Function HideTheToolbar() CommandBars.Item(32).Enabled = False End Function Create an AutoExec macro and place a call to this function in it. That way...

Try using SQL in your code. MyDB as Database MySQL as String MyRecs as Recordset MySQL = "SELECT tblData.ID, tblData.Case FROM tblData Where tblData.ID=" & me!ID & " AND tblData.Case=" & me!Case & ";" Set MyDB = CurrentDB Set MyRecs = MyDB.OpenRecordset(MySQL) 'then here you can do your...

I have a basic summary report that pulls in data from a lot of tables. In order to populate this report, I am using the DLookup and DSum functions. Needless to say, this takes quite a bit of time for the report to open up, and I'm sure just hogs up system resources. Is there any alternatives...

In my Access 97 database, I have the db compact using sendkeys after a function is run. My problem is if there is another user in the database, I get an error message about how someone else is in the db. Is there a way to trap this error message? I would like to compact if you can, if not...

There is ApplyFilter even on your form. Put a procedure behind it and then inside the procedure make your button enabled/disabled. Use the ApplyType variable to determine if the filter is on/off. If applytype = 1 then button.visible=false... Hope this helps. Doug

The docmd.save command should work out for you. Hope this helps. Doug

if you put this code behind a command button on your form, this should do the trick.... Dim ctl As Control For Each ctl In Controls If ctl.ControlType = acTextBox Then ctl.Value = UCase(ctl.Value) End If Next ctl This will loop through each control...

I'm assuming that you want a first and last name to be in the two textboxes and the single box to have the two concatenated together... If so, you can just set the control source of the single text box(Names) to =[Name1] & " " & [Name2] This will populate when you enter data... Hope this...

Also, make sure you have the Multiple Selection property set to either Simple or Extended. Doug [This message has been edited by D-Fresh (edited 08-27-2001).]

The only other way I can think of is to write VB Code and append the definition to your TableDef and QueryDef. If you write this once, all you'll have to do is run the function and input the fieldname, and it will create the new field for you. Hope this helps. Doug

You have to be comparing it to a field. I'm not sure if you just left that out, but it should be [Field_Name] Like "*" & ..... Hope this helps, because everything else looks alright. Doug

You have it right by using the asterisk(*) but you have to use the Like operator instead of the equals(=) operator. Hope this helps. Doug

oh yeah, you have to put a then statement on the end there... sorry about that.. if x>0 then ... ... ... end if

IIF is a really more of a function call then a statement. The plain IF statement should be used here in your code, so just drop one of the I's and you'll be set. Hope this helps. Doug

The problem is the syntax of your dcount statement... The where clause at the end has to be in Quotes... DCount("[ModuleCode]","tblStaffModules","[ModuleCode]='" & Me.CboModule & "'") If CboModule is a numeric value, then just take out the two tick(') casting marks. Hope this helps. Doug

As far as I know, you can't change the settings for the Common Dialog Boxes. You'll have to create your own popup form. You could create a form with a two labels on it and a command button(ok). When you need the box, open up the form, set the first label to bold and put your first sentence...

nah, you don't have to recreate the function. All you have to do is incorporate each form into the while statement... dim Form1 as string, Form2 as string, Form3 as string Form1=Form1Name Form2=Form2Name Form3=Form3Name while fisloaded(Form1) or fisloaded(Form2) or fisloaded(Form3) DoEvents...