Search results

the question, does your table have Null values on either Name or Age field? you can cancat then with empty string: Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.MoveLast rs.MoveFirst NumberPeople = rs.RecordCount 'I then have a for loop that that goes thru each record. For i = 1 To...

you may also try this on Design view of your Form/Report:

strFilter = Me.txtFilter DoCmd.SetFilter wherecondition:="[JobName] like '*" & strFilter & "*'"

maybe just reinstate your original code.

remove first the NoData event, but test the HasData value: Private Sub Report_Open(Cancel As Integer) Msgbox Me.HasData ' Cancel = (Me.HasData = 0) ' the report has nothing to show ' If Not Cancel Then ' MsgBox "It is projected there will be insufficient stock of one or more...

for Not Equal: DoCmd.SetFilter wherecondition:="[JobTypeID] <> " & [yourTextboxName]

also try: DoCmd.SetFilter wherecondition:="[JobTypeID] = " & [yourTextboxName]

add this to the code: ... ... 'just open the report (if no data to print, it will not show up) On Error Resume Next DoCmd.OpenReport "Inventory_Warning_Pop_Up_Report", acViewReport DoCmd.RunSQL "Delete * From [zz_onhand_temp]"

ok, maybe directly Open the report. add code to your report's Open event to check if there are records to show. if none just Cancel the report. if there is, show your messagebox. on your report Open Evernt: Private Sub Report_Open(Cancel As Integer) Cancel = (Me.HasData = 0) ' the report...

you can also check if table zz_onhand_temp has some record on it? ProCnt = DCount("*", "zz_onhand_temp")

you can try moving the zz_onhand_temp table to the FE (each FE) or move it to another Backend. i did look at your Inventory_Warning_Query, and Production_ID and Product_Code from zz_onhand_temp table is being linked. so i think you only need to insert these 2 fields in your Insert Query code...

adding Index will speed up finding records on your table. take this snippet code from your function: 'Get the last stocktake date and quantity for this product. If Len(strAsOf) > 0 Then strDateClause = " AND (StockTake_Date <= " & strAsOf & ")" End If...

i tried it also and it does work.

The demo is from Developer Hut (Carda system) the downloadable version:: https://www.devhut.net/access-modern-web-browser-control-webcam/

there is, initially, a control source on your pdf browser (viewer), remove it (unbound).

there is no daily_staff table. suggest you add Index on all Fields/tables used in your Criteria on the SQL string in your Quantity_On_Hand routine. also you add vba code that will open a "persistent" connection to your backend. this will somewhat make your db faster, specially on multi-user...

i just fixed the Filter portion of the code.

you may try to cast your formula in IsError() or IsNull() function.

the only challenge for you is how to make the DUMMY_CONTROL (currently the ID) "hidden". i tried to putting it "under" another textbox but it didn't work out.

sorry but your db crashes immediately upon opening the form frmTest on my winows 11, office 2024 x64.