Search results

I'm sure there is a more proper way to do this, but this should work as a temporary solution. Create an expression in the query "Combine" which combines TaskSource and InsertBeforeTask. Then use that expression to filter your results. SELECT tblTask.TaskNo, tblTask.TaskSource...

In my experience, Access can safely support 15-20 users concurrently. SQL Server, when designed and implemented correctly can support hundreds or more.

Using the Reports collection, you can only view OPEN reports. This collection enables you (or the user) to retrieve information on all reports in the database whether open or closed. What are you trying to do? The following code will display a message box with the name of every report in...

'Select all entries in list box Dim i as Integer Dim intListCount as Integer intListCount = lstEmployee.ListCount - 1 For i = 0 To intListCount lstEmployee.Selected(i) = True Next 'Place this code in the Dbl Click event of your list box. 'Change lstEmployee to the name of your list box

In the OnEnter event of the combo box, enter: cboColor.Requery This assumes that the combo box is named cboColor.

If Not IsNumeric(EmployeeID) Then 'Display your message here End If

DateAdd("m",1,[EndDate]) This takes the date in the field EndDate and adds one month.

Most likely the source for the form is a SQL statement, not a table. Go to the properties dialog box for the form. The first available field will be Record Source. Click the build button (...) next to this field. This should open a query window. Find the table that has the new field. Drag...

I'm not sure how to start the Label wizard directly, but this code will start the Report wizard... DoCmd.RunCommand acCmdNewObjectReport It's almost what you are asking for. Good luck!

If the bound column of either the list box or the combobox is not of type number, you will need to put single qoutes around the values like this... For Each varitem In lstList.ItemsSelected 'Loop through all selected items in the list box strSQL = "INSERT INTO tblAlphaNumber (AlphabetID...

Dim varItem as Variant For Each varitem In lstList.ItemsSelected 'Loop through all selected items in the list box strSQL = "INSERT INTO tblAlphaNumber (AlphabetID, NumberID) VALUES (" & lstList.ItemData(varitem) & ", " & cboNumberID & ")" DoCmd.RunSQL (strSQL) 'Append a record...

Why cancel? Use Exit Sub instead of Cancel = true

In the AfterUpdate event of the Option Box... If OptionBox = 2 then 'Code to validate fields Else 'Code to exit without validating End If

Private Sub combo_box1_AfterUpdate() Select Case Combo_ box1.Value Case 110 to 113 DoCmd.OpenForm "frmthromvolytika", acNormal, , , acFormAdd Case Else Exit Sub End Select

Public Function CheckModule(strModName As String) As Boolean Dim objMod As Object For Each objMod In Application.CurrentProject.AllModules If objMod.Name = strModName Then ' strModName Then CheckModule = True End If Next End Function Must pass strModName. Returns True if it...

Fantastic! Thank you! (and whomever originally posted the code)

Scratch that. I went to Startup and changed the app icon. That seems to suffice. How about the default form icon on pop-up forms? Is there a way to specify an icon for each form to replace the default?

I seem to remember hearing that there was some VBA or an API that I could use to remove or hide the Access symbol from the top-left of each window and replace it with my own icon. Does anyone here know how to do this?

Add a button called cmdEdit. Change its caption to read "Locked Mode". Set the forms AllowEdits property to false. Add this code to the click event of cmdEdit... If cmdEdit.Caption = "Locked Mode" Then AllowEdits = True cmdEdit.Caption = "Edit Mode" Else AllowEdits = False...

I stopped recommending the Linked Table Manager because not everyone has it installed.