Recent content by InFlight

Solved. Removed all code and used Forms!frmWinners.Recordset.MoveNext

Hi It is indexed with no duplicates.

I have this code to move to next record in a recordset on main form. it works once then doesn't work Dim rs As Object Dim strLinkValue As Integer strLinkValue = Me![ClassID].Value 'Name of Link Field On Subform Set rs = Forms!frmWinners.Recordset.Clone...

Hi I have a database that I need to add a column to a table in a linked database. eg C:\Test\test.accdb linked DB is C:\Test\Data\Data.accdb the table is Exhibitors and the I'm trying to add is Certificate YESNO using VBA CurrentDb.Execute "Alter Table Exhibitors add column Certificate YESNO"...

This database will compact and repair current database and is song database that will locate songs then get their details. It can me made to find any file. You just need to know what the 320 file codes are, I can send them if needed I don't mind where it is published. People have helped me so...

Thanks. I will use this. Do you know why it is getting the error

Thanks.

I am trying to do a test file It works when i leave some code out but if i add & " - " & vFolder.GetDetailsOf(vFolderItem, i) & " -") in line 105 i get a this error on line 114 Sub vName() Call fProperties("H:\My Music\Music Finished\Bob Lind", "Bob Lind - 09 - Elusive Butterfly.mp3") End...

Thanks

Solved by adding this to form "On Error" Private Sub Form_Error(DataErr As Integer, Response As Integer) If DataErr = 3021 Then Response = 0 End Sub

Hi using access 2016 I have a sub form (Continuous Forms) and I have set Data Entry - No Allow Additions - No Allow Deletions - No Allow Edits - Yes And have a button to add a new record which gets information based on the main form. All fields are turned off until a new recorded is...

Thanks. Worked

That worked. Cheers

yes, i tried without the strwhere and still got the same result Just noticed that 1 of the birds is repeated and 2nd one is not shown

When i run this code i only get 7 records but the debug.print tells me there are 8 records If i run the query and use the text filter i get 8 records Private Sub cmdAncestors_Click() Dim strWhere As String If Nz(TempVars!vBirdID, 0) = 0 Or TempVars!vBirdID = "" Then Exit Sub...