Search results

This is the VBA attached to the form: Private Sub Form_BeforeInsert(Cancel As Integer) If Me.NewRecord Then [RecordNo] = DMax("[RecordNo]", "Record") + 1 End If End Sub Private Sub Form_AfterDelConfirm(Status As Integer) If Status = acDeleteOK Then Call AuditChanges("RecordNo"...

I've just tested again and the issue is happening with all 5 buttons on the same form. However, the button actions are working because the table has been updated as expected. It's just that error appears each time.

Attached for you.

How would I do that?

UserAccess is the table field showing the access permission level for the user, either "Admin" or "User". It's populated via a form.

Below is the latest code I tried, without success: Private Sub Form_Open(Cancel As Integer) If UserAccess = "Admin" Then Me.DeleteBtn.Visible = True Else Me.DeleteBtn.Visible = False End If End Sub

Hi For some reason my I am getting the "Item cannot be found in the collection corresponding to the requested name or ordinal" error when selecting a button on a form. The button was created using the wizard so I'm not sure why this is happening. Can anyone shed any light for me please...

Hi I want to hide a form button (DeleteBtn) for all users except admins. I have a user login table (tblEmployees) with the following fields: EmpID UserName UserPassword UserAccess I have tried to implement VBA found on various sites but none are working for me. Either the button stays...

I managed to get it to work. For anyone wondering, this is the code I used: Private Sub SearchBtn_Click() If IsNull(SearchBox) = False Then Me.Recordset.FindFirst "[RecordNo]=" & SearchBox Me!SearchBox = Null If Me.Recordset.NoMatch Then MsgBox "No Record Found"...

In the bound form in which the search box and button are located. The form is bound to Record (the name of the table)

I know this has been answered in various ways over the years but I can't find a simple answer to simple coding. Most answers are for multiple fields or refer to using the wizard (which doesn't seem to work for me as it doesn't ask for any fields or search box to be able to set it up properly)...

Thanks guys, I've now managed to get it to work using your code.

No problem, thanks for stepping in. I've tried this code below from your suggestion: Private Sub Command26_Click() DoCmd.OpenReport reportname:=Combo27, view:=acViewPreview, whereCondition:="dept='" & Me.Combo27 & "' OR " & IsNull(Me.Combo27) End Sub but the reports still show no records. I...

Hi I have a tabbed navigation form which is set as a pop up but, for some reason, I was able to select and drag/reposition it on the screen until today. I've not changed any positional property settings in the nav form or sub-forms so I can't understand why it's started to behave "glued" to...

That works perfectly, thank you. However, that has highlighted an issue. What if I don't want to filter the report, but have all records show in the report? Is there a value I need to add to the deptcode table to select for all records?

Hi I have created a form with two drop downs. What I want to do is select a report name from combo1 then a filter value from combo2. The source for both combo boxes are separate tables. I have a table with the seven report names (ReportTbl) which is source for combo1 then a separate table of...

@ arnelgp and Minty Thanks guys, sorted and working now.

Hi In a query I've created the following two expressions to check if the first field has a specific value and the second field has a date: Expr12: IIf([Err1]="Levy" And [Err1ResDate] Is Not Null,0,1) Expr13: IIf([Err2]="Levy" And [Err2ResDate] Is Not Null,0,1) I have then created a further...

That worked great. Thanks for your help and time.

In this circumstance, yes, when I had around two hours to throw something together. I was going for just an excel spreadsheet, but the ease of input and multi-user accessibility were key so I had to opt for a db. Not great but this is the only issue I've had with it as all other reports are...