Recent content by InFlight

  1. I

    Solved No Current Record Error

    Thanks
  2. I

    Solved No Current Record Error

    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
  3. I

    Solved No Current Record Error

    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...
  4. I

    Incorrect number of records showing in a datasheet form

    That worked. Cheers
  5. I

    Incorrect number of records showing in a datasheet form

    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
  6. I

    Incorrect number of records showing in a datasheet form

    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...
  7. I

    Error 3211 lock table

    Yes. I am keeping results who played who and games won
  8. I

    Error 3211 lock table

    I am keeping results who played who and games won
  9. I

    Error 3211 lock table

    I tried going to another control, but still get it
  10. I

    Error 3211 lock table

    No not on this form
  11. I

    Error 3211 lock table

    Yes it is
  12. I

    Error 3211 lock table

    Hi I am getting this error on this code. it happens on the CurrentDb.Execute Error 3211 (The database engine could not lock table 'tbl_Names' because it is already in use by another person or process) Private Sub P2_Combo_NotInList(NewData As String, Response As Integer) On Error GoTo...
  13. I

    Convert form's Macros to Visual Basic

    Hope we all learned something. I did
  14. I

    Convert form's Macros to Visual Basic

    Thanks all for your help. i got fixed. With CodeContextObject If IsNull(SearchBox) Or [SearchBox] = """" Then ' Clear Filter when search box empty DoCmd.ApplyFilter "", """""", "" DoCmd.GoToControl "SearchBox" DoCmd.SetProperty...
Top Bottom