• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Form button - Can't extend table or database

Matt_Straya

Matt_Straya

Member
Hi folks,
I would like to use the Form tool to add/edit row entries but each time I click new I get the error "Can't extend table or database"

Any ideas why this would happen?
 
Hi Narayan,
Yes I looked there but still had the same issue. What I have since found out is that the "New" function in Form cannot find the next empty row so it faults. I have written a small macro that jumps to the next empty, active cell. bit of a pain but it seems to work. I am still looking for a better solution though.
Thanks for you time.
 
Hi ,

I am not able to understand the problem.

Does your data table have empty rows to start with ?

When you open the Form by clicking on the Form button , does it show the present status as 1 of 4 , where 1 means it is positioned on the first record , and 4 means there are a total of 4 records in your database.

Now , when you click on the New button , the Form is cleared so that it can accept fresh data entry.

After entering data in the form , when you again click the New button , the data which was input is now stored in the first blank row in the table , and the form is once more cleared so that it is ready to accept data for a new record.

I get the error message only when there are no blank rows which Excel can identify as belonging to the form ; this happens if I had data below my table initially , and then I filled in all the blank rows in the table with data , and then try to enter data for a new record.

Narayan
 
Yes the table already has data. I got it all to work by using this code:
Code: 
Sub SelectActive()

  Sheets(1).Select
  Range("B4").Select
  On Error Resume Next
  Set mylastcell = Cells(1, 1).SpecialCells(xlLastCell)
  mylastcelladd = Cells(mylastcell.Row, mylastcell.Column).Address
  myrange = "B4:" & mylastcelladd
  Range(myrange).Select
  Selection.Copy
  
End Sub

now I'm trying to figure out a macro to activate the form button on the ribbon.
 
You must log in or register to reply here.
Back
Top