Results 1 to 3 of 3
  1. 06-15-2011, 05:44 AM #1
    aldeb47
    aldeb47 is offline Novice
    Windows 7 64bit Access 2003
    Join Date
    Jun 2011
    Posts
    6

    Form will not open View or Design

    I had a form that was working fine. Now it will not open in any view and I get no error message, just nothing. I have inserted the code that is on the form below if that helps with anything. I am stumped and do not know how to proceed.

    Code:
        Option Compare Database

Private Sub Ctl01_pts_AfterUpdate()

'Me.TotalPoints = [01-pts] + [02-pts] + [03-pts] + [04-pts] + [05-pts] + [06-pts] + [07-pts] + [08-pts] + [09-pts] + [10-pts] + [11-pts] + [12-pts] + [13-pts] + [14-pts]+[15-pts]+[16-pts]+[17-pts]

If Me.Ctl01_pts.Value > 0 Then
Me.[01-Berea Pat Wear] = True
End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   Dim dbs As DAO.Database
   Dim Rs As DAO.Recordset
   Set dbs = Application.CurrentDb
   Set Rs = dbs.OpenRecordset("Points")
   Rs.AddNew
   Rs.Fields("Tournament") = Me.Berea_Pat_Wear_Label.Caption
   Rs.Fields("TotalPoints") = Me.TotalPoints.Value
   Rs.Fields("FirstName") = Me.FirstName.Value
   Rs.Fields("LastName") = Me.LastName.Value
   Rs.Fields("Division") = Me.Division.Value
   Rs.Fields("Category") = Me.Category.Value
   Rs.Update
   Set Rs = Nothing
   Set dbs = Nothing

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Me.Refresh

End Sub


Private Sub Ctl02_pts_AfterUpdate()

'Me.TotalPoints = [01-pts] + [02-pts] + [03-pts] + [04-pts] + [05-pts] + [06-pts] + [07-pts] + [08-pts] + [09-pts] + [10-pts] + [11-pts] + [12-pts] + [13-pts] + [14-pts]

If Me.Ctl02_pts.Value > 0 Then
Me.[02-Harlan] = True
End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

   Dim dbs As DAO.Database
   Dim Rs As DAO.Recordset
   Set dbs = Application.CurrentDb
   Set Rs = dbs.OpenRecordset("Points")
   Rs.AddNew
   Rs.Fields("Tournament") = Me.Harlan_Label.Caption
   Rs.Fields("TotalPoints") = Me.TotalPoints.Value
   Rs.Fields("FirstName") = Me.FirstName.Value
   Rs.Fields("LastName") = Me.LastName.Value
   Rs.Fields("Division") = Me.Division.Value
   Rs.Fields("Category") = Me.Category.Value
   Rs.Update
   Set Rs = Nothing
   Set dbs = Nothing

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Me.Refresh

End Sub
Private Sub Ctl03_pts_AfterUpdate()

'Me.TotalPoints = [01-pts] + [02-pts] + [03-pts] + [04-pts] + [05-pts] + [06-pts] + [07-pts] + [08-pts] + [09-pts] + [10-pts] + [11-pts] + [12-pts] + [13-pts] + [14-pts]

If Me.Ctl03_pts.Value > 0 Then
Me.[03-Berea Cherif Hechema] = True
End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

   Dim dbs As DAO.Database
   Dim Rs As DAO.Recordset
   Set dbs = Application.CurrentDb
   Set Rs = dbs.OpenRecordset("Points")
   Rs.AddNew
   Rs.Fields("Tournament") = Me.Berea_Cherif_Hechema_Label.Caption
   Rs.Fields("TotalPoints") = Me.TotalPoints.Value
   Rs.Fields("FirstName") = Me.FirstName.Value
   Rs.Fields("LastName") = Me.LastName.Value
   Rs.Fields("Division") = Me.Division.Value
   Rs.Fields("Category") = Me.Category.Value
   Rs.Update
   Set Rs = Nothing
   Set dbs = Nothing

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Me.Refresh

End Sub
Private Sub Ctl04_pts_AfterUpdate()

'Me.TotalPoints = [01-pts] + [02-pts] + [03-pts] + [04-pts] + [05-pts] + [06-pts] + [07-pts] + [08-pts] + [09-pts] + [10-pts] + [11-pts] + [12-pts] + [13-pts] + [14-pts]

If Me.Ctl04_pts.Value > 0 Then
Me.[04-Garrard County Open] = True
End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

   Dim dbs As DAO.Database
   Dim Rs As DAO.Recordset
   Set dbs = Application.CurrentDb
   Set Rs = dbs.OpenRecordset("Points")
   Rs.AddNew
   Rs.Fields("Tournament") = Me.Garrard_County_Open_Label.Caption
   Rs.Fields("TotalPoints") = Me.TotalPoints.Value
   Rs.Fields("FirstName") = Me.FirstName.Value
   Rs.Fields("LastName") = Me.LastName.Value
   Rs.Fields("Division") = Me.Division.Value
   Rs.Fields("Category") = Me.Category.Value
   Rs.Update
   Set Rs = Nothing
   Set dbs = Nothing

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Me.Refresh

End Sub
Private Sub Ctl05_pts_AfterUpdate()

'Me.TotalPoints = [01-pts] + [02-pts] + [03-pts] + [04-pts] + [05-pts] + [06-pts] + [07-pts] + [08-pts] + [09-pts] + [10-pts] + [11-pts] + [12-pts] + [13-pts] + [14-pts]

If Me.Ctl05_pts.Value > 0 Then
Me.[05-Barbourville] = True
End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

   Dim dbs As DAO.Database
   Dim Rs As DAO.Recordset
   Set dbs = Application.CurrentDb
   Set Rs = dbs.OpenRecordset("Points")
   Rs.AddNew
   Rs.Fields("Tournament") = Me.Barbourville_Label.Caption
   Rs.Fields("TotalPoints") = Me.TotalPoints.Value
   Rs.Fields("FirstName") = Me.FirstName.Value
   Rs.Fields("LastName") = Me.LastName.Value
   Rs.Fields("Division") = Me.Division.Value
   Rs.Fields("Category") = Me.Category.Value
   Rs.Update
   Set Rs = Nothing
   Set dbs = Nothing

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Me.Refresh

End Sub
Private Sub Ctl06_pts_AfterUpdate()

'Me.TotalPoints = [01-pts] + [02-pts] + [03-pts] + [04-pts] + [05-pts] + [06-pts] + [07-pts] + [08-pts] + [09-pts] + [10-pts] + [11-pts] + [12-pts] + [13-pts] + [14-pts]

If Me.Ctl06_pts.Value > 0 Then
Me.[06-Berea Wilson Evans] = True
End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

   Dim dbs As DAO.Database
   Dim Rs As DAO.Recordset
   Set dbs = Application.CurrentDb
   Set Rs = dbs.OpenRecordset("Points")
   Rs.AddNew
   Rs.Fields("Tournament") = Me.Berea_Wilson_Evans_Label.Caption
   Rs.Fields("TotalPoints") = Me.TotalPoints.Value
   Rs.Fields("FirstName") = Me.FirstName.Value
   Rs.Fields("LastName") = Me.LastName.Value
   Rs.Fields("Division") = Me.Division.Value
   Rs.Fields("Category") = Me.Category.Value
   Rs.Update
   Set Rs = Nothing
   Set dbs = Nothing

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Me.Refresh

End Sub
Private Sub Ctl07_pts_AfterUpdate()

'Me.TotalPoints = [01-pts] + [02-pts] + [03-pts] + [04-pts] + [05-pts] + [06-pts] + [07-pts] + [08-pts] + [09-pts] + [10-pts] + [11-pts] + [12-pts] + [13-pts] + [14-pts]

If Me.Ctl07_pts.Value > 0 Then
Me.[07-Prestonsburg BlackCat] = True
End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

   Dim dbs As DAO.Database
   Dim Rs As DAO.Recordset
   Set dbs = Application.CurrentDb
   Set Rs = dbs.OpenRecordset("Points")
   Rs.AddNew
   Rs.Fields("Tournament") = Me.Prestonsburg_Label.Caption
   Rs.Fields("TotalPoints") = Me.TotalPoints.Value
   Rs.Fields("FirstName") = Me.FirstName.Value
   Rs.Fields("LastName") = Me.LastName.Value
   Rs.Fields("Division") = Me.Division.Value
   Rs.Fields("Category") = Me.Category.Value
   Rs.Update
   Set Rs = Nothing
   Set dbs = Nothing

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Me.Refresh

End Sub
Private Sub Ctl08_pts_AfterUpdate()

'Me.TotalPoints = [01-pts] + [02-pts] + [03-pts] + [04-pts] + [05-pts] + [06-pts] + [07-pts] + [08-pts] + [09-pts] + [10-pts] + [11-pts] + [12-pts] + [13-pts] + [14-pts]

If Me.Ctl08_pts.Value > 0 Then
Me.[08-Richmond] = True
End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

   Dim dbs As DAO.Database
   Dim Rs As DAO.Recordset
   Set dbs = Application.CurrentDb
   Set Rs = dbs.OpenRecordset("Points")
   Rs.AddNew
   Rs.Fields("Tournament") = Me.Richmond_Label.Caption
   Rs.Fields("TotalPoints") = Me.TotalPoints.Value
   Rs.Fields("FirstName") = Me.FirstName.Value
   Rs.Fields("LastName") = Me.LastName.Value
   Rs.Fields("Division") = Me.Division.Value
   Rs.Fields("Category") = Me.Category.Value
   Rs.Update
   Set Rs = Nothing
   Set dbs = Nothing

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Me.Refresh

End Sub
Private Sub Ctl09_pts_AfterUpdate()

'Me.TotalPoints = [01-pts] + [02-pts] + [03-pts] + [04-pts] + [05-pts] + [06-pts] + [07-pts] + [08-pts] + [09-pts] + [10-pts] + [11-pts] + [12-pts] + [13-pts] + [14-pts]

If Me.Ctl09_pts.Value > 0 Then
Me.[09-London Aaron Smallwood] = True
End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

   Dim dbs As DAO.Database
   Dim Rs As DAO.Recordset
   Set dbs = Application.CurrentDb
   Set Rs = dbs.OpenRecordset("Points")
   Rs.AddNew
   Rs.Fields("Tournament") = Me.London_South_Laurel_Label.Caption
   Rs.Fields("TotalPoints") = Me.TotalPoints.Value
   Rs.Fields("FirstName") = Me.FirstName.Value
   Rs.Fields("LastName") = Me.LastName.Value
   Rs.Fields("Division") = Me.Division.Value
   Rs.Fields("Category") = Me.Category.Value
   Rs.Update
   Set Rs = Nothing
   Set dbs = Nothing

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Me.Refresh

End Sub
Private Sub Ctl10_pts_AfterUpdate()

'Me.TotalPoints = [01-pts] + [02-pts] + [03-pts] + [04-pts] + [05-pts] + [06-pts] + [07-pts] + [08-pts] + [09-pts] + [10-pts] + [11-pts] + [12-pts] + [13-pts] + [14-pts]

If Me.Ctl10_pts.Value > 0 Then
Me.[10-Berea BFA] = True
End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

   Dim dbs As DAO.Database
   Dim Rs As DAO.Recordset
   Set dbs = Application.CurrentDb
   Set Rs = dbs.OpenRecordset("Points")
   Rs.AddNew
   Rs.Fields("Tournament") = Me.Berea_BFA_Label.Caption
   Rs.Fields("TotalPoints") = Me.TotalPoints.Value
   Rs.Fields("FirstName") = Me.FirstName.Value
   Rs.Fields("LastName") = Me.LastName.Value
   Rs.Fields("Division") = Me.Division.Value
   Rs.Fields("Category") = Me.Category.Value
   Rs.Update
   Set Rs = Nothing
   Set dbs = Nothing

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Me.Refresh

End Sub
Private Sub Ctl11_pts_AfterUpdate()

'Me.TotalPoints = [01-pts] + [02-pts] + [03-pts] + [04-pts] + [05-pts] + [06-pts] + [07-pts] + [08-pts] + [09-pts] + [10-pts] + [11-pts] + [12-pts] + [13-pts] + [14-pts]

If Me.Ctl11_pts.Value > 0 Then
Me.[11-Corbin NIBROC] = True
End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

   Dim dbs As DAO.Database
   Dim Rs As DAO.Recordset
   Set dbs = Application.CurrentDb
   Set Rs = dbs.OpenRecordset("Points")
   Rs.AddNew
   Rs.Fields("Tournament") = Me.Corbin_Nibroc_Label.Caption
   Rs.Fields("TotalPoints") = Me.TotalPoints.Value
   Rs.Fields("FirstName") = Me.FirstName.Value
   Rs.Fields("LastName") = Me.LastName.Value
   Rs.Fields("Division") = Me.Division.Value
   Rs.Fields("Category") = Me.Category.Value
   Rs.Update
   Set Rs = Nothing
   Set dbs = Nothing

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Me.Refresh

End Sub
Private Sub Ctl12_pts_AfterUpdate()

'Me.TotalPoints = [01-pts] + [02-pts] + [03-pts] + [04-pts] + [05-pts] + [06-pts] + [07-pts] + [08-pts] + [09-pts] + [10-pts] + [11-pts] + [12-pts] + [13-pts] + [14-pts]

If Me.Ctl12_pts.Value > 0 Then
Me.[12-London Bobby Smith] = True
End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

   Dim dbs As DAO.Database
   Dim Rs As DAO.Recordset
   Set dbs = Application.CurrentDb
   Set Rs = dbs.OpenRecordset("Points")
   Rs.AddNew
   Rs.Fields("Tournament") = Me.London_North_Laurel_Label.Caption
   Rs.Fields("TotalPoints") = Me.TotalPoints.Value
   Rs.Fields("FirstName") = Me.FirstName.Value
   Rs.Fields("LastName") = Me.LastName.Value
   Rs.Fields("Division") = Me.Division.Value
   Rs.Fields("Category") = Me.Category.Value
   Rs.Update
   Set Rs = Nothing
   Set dbs = Nothing

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Me.Refresh

End Sub
Private Sub Ctl13_pts_AfterUpdate()

'Me.TotalPoints = [01-pts] + [02-pts] + [03-pts] + [04-pts] + [05-pts] + [06-pts] + [07-pts] + [08-pts] + [09-pts] + [10-pts] + [11-pts] + [12-pts] + [13-pts] + [14-pts]

If Me.Ctl13_pts.Value > 0 Then
Me.[13-Mt Sterling] = True
End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

   Dim dbs As DAO.Database
   Dim Rs As DAO.Recordset
   Set dbs = Application.CurrentDb
   Set Rs = dbs.OpenRecordset("Points")
   Rs.AddNew
   Rs.Fields("Tournament") = Me.Mt_Sterling_Label.Caption
   Rs.Fields("TotalPoints") = Me.TotalPoints.Value
   Rs.Fields("FirstName") = Me.FirstName.Value
   Rs.Fields("LastName") = Me.LastName.Value
   Rs.Fields("Division") = Me.Division.Value
   Rs.Fields("Category") = Me.Category.Value
   Rs.Update
   Set Rs = Nothing
   Set dbs = Nothing

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Me.Refresh

End Sub
Private Sub Ctl14_pts_AfterUpdate()

'Me.TotalPoints = [01-pts] + [02-pts] + [03-pts] + [04-pts] + [05-pts] + [06-pts] + [07-pts] + [08-pts] + [09-pts] + [10-pts] + [11-pts] + [12-pts] + [13-pts] + [14-pts]

If Me.Ctl14_pts.Value > 0 Then
Me.[14-London MOD] = True
End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

   Dim dbs As DAO.Database
   Dim Rs As DAO.Recordset
   Set dbs = Application.CurrentDb
   Set Rs = dbs.OpenRecordset("Points")
   Rs.AddNew
   Rs.Fields("Tournament") = Me.London_MOD_Label.Caption
   Rs.Fields("TotalPoints") = Me.TotalPoints.Value
   Rs.Fields("FirstName") = Me.FirstName.Value
   Rs.Fields("LastName") = Me.LastName.Value
   Rs.Fields("Division") = Me.Division.Value
   Rs.Fields("Category") = Me.Category.Value
   Rs.Update
   Set Rs = Nothing
   Set dbs = Nothing

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Me.Refresh

End Sub
Private Sub Ctl15_pts_AfterUpdate()

'Me.TotalPoints = [01-pts] + [02-pts] + [03-pts] + [04-pts] + [05-pts] + [06-pts] + [07-pts] + [08-pts] + [09-pts] + [10-pts] + [11-pts] + [12-pts] + [13-pts] + [14-pts]

If Me.Ctl15_pts.Value > 0 Then
Me.[15-Williamsburg Huddle House] = True
End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

   Dim dbs As DAO.Database
   Dim Rs As DAO.Recordset
   Set dbs = Application.CurrentDb
   Set Rs = dbs.OpenRecordset("Points")
   Rs.AddNew
   Rs.Fields("Tournament") = Me.Williamsburg_Huddle_House_Label.Caption
   Rs.Fields("TotalPoints") = Me.TotalPoints.Value
   Rs.Fields("FirstName") = Me.FirstName.Value
   Rs.Fields("LastName") = Me.LastName.Value
   Rs.Fields("Division") = Me.Division.Value
   Rs.Fields("Category") = Me.Category.Value
   Rs.Update
   Set Rs = Nothing
   Set dbs = Nothing

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Me.Refresh

End Sub
Private Sub Ctl16_pts_AfterUpdate()

'Me.TotalPoints = [01-pts] + [02-pts] + [03-pts] + [04-pts] + [05-pts] + [06-pts] + [07-pts] + [08-pts] + [09-pts] + [10-pts] + [11-pts] + [12-pts] + [13-pts] + [14-pts]

If Me.Ctl16_pts.Value > 0 Then
Me.[16-Pikeville] = True
End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

   Dim dbs As DAO.Database
   Dim Rs As DAO.Recordset
   Set dbs = Application.CurrentDb
   Set Rs = dbs.OpenRecordset("Points")
   Rs.AddNew
   Rs.Fields("Tournament") = Me.Pikeville_Label.Caption
   Rs.Fields("TotalPoints") = Me.TotalPoints.Value
   Rs.Fields("FirstName") = Me.FirstName.Value
   Rs.Fields("LastName") = Me.LastName.Value
   Rs.Fields("Division") = Me.Division.Value
   Rs.Fields("Category") = Me.Category.Value
   Rs.Update
   Set Rs = Nothing
   Set dbs = Nothing

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Me.Refresh

End Sub
Private Sub Ctl17_pts_AfterUpdate()

'Me.TotalPoints = [01-pts] + [02-pts] + [03-pts] + [04-pts] + [05-pts] + [06-pts] + [07-pts] + [08-pts] + [09-pts] + [10-pts] + [11-pts] + [12-pts] + [13-pts] + [14-pts]

If Me.Ctl17_pts.Value > 0 Then
Me.[17-Whitley County] = True
End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

   Dim dbs As DAO.Database
   Dim Rs As DAO.Recordset
   Set dbs = Application.CurrentDb
   Set Rs = dbs.OpenRecordset("Points")
   Rs.AddNew
   Rs.Fields("Tournament") = Me.Whitley_County_Label.Caption
   Rs.Fields("TotalPoints") = Me.TotalPoints.Value
   Rs.Fields("FirstName") = Me.FirstName.Value
   Rs.Fields("LastName") = Me.LastName.Value
   Rs.Fields("Division") = Me.Division.Value
   Rs.Fields("Category") = Me.Category.Value
   Rs.Update
   Set Rs = Nothing
   Set dbs = Nothing

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Me.Refresh

End Sub



Private Sub Division_GotFocus()
'MsgBox "Make sure you are not changing the DIVISON inappropriately"
End Sub


Private Sub QueryPlayers_AfterUpdate()

DoCmd.OpenQuery Me.QueryPlayers
Me.QueryPlayers = Clear
Me.Refresh
Me.Requery

End Sub

Private Sub QueryTournaments_AfterUpdate()

DoCmd.OpenQuery Me.QueryTournaments
Me.QueryTournaments = Clear
Me.Refresh
Me.Requery

End Sub

Private Sub FindRecord_Click()
On Error GoTo Err_FindRecord_Click


    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_FindRecord_Click:
    Exit Sub

Err_FindRecord_Click:
    MsgBox Err.Description
    Resume Exit_FindRecord_Click
    
End Sub
Private Sub First_Click()
On Error GoTo Err_First_Click


    DoCmd.GoToRecord , , acFirst

Exit_First_Click:
    Exit Sub

Err_First_Click:
    MsgBox Err.Description
    Resume Exit_First_Click
    
End Sub
Private Sub Last_Click()
On Error GoTo Err_Last_Click


    DoCmd.GoToRecord , , acLast

Exit_Last_Click:
    Exit Sub

Err_Last_Click:
    MsgBox Err.Description
    Resume Exit_Last_Click
    
End Sub

Private Sub Previous_Click()
On Error GoTo Err_Previous_Click


    DoCmd.GoToRecord , , acPrevious

Exit_Previous_Click:
    Exit Sub

Err_Previous_Click:
    MsgBox Err.Description
    Resume Exit_Previous_Click
    
End Sub
Private Sub Next_Click()
On Error GoTo Err_Next_Click


    DoCmd.GoToRecord , , acNext

Exit_Next_Click:
    Exit Sub

Err_Next_Click:
    MsgBox Err.Description
    Resume Exit_Next_Click
    
End Sub
Private Sub Duplicate_Click()

Dim myFirstName, myLastName
myFirstName = Me!FirstName
myLastName = Me!LastName
DoCmd.GoToRecord , , acNewRec
    Me!FirstName = myFirstName
    Me!LastName = myLastName
    Me![01-Berea Pat Wear] = False
    Me![02-Barbourville] = False
    Me![03-Berea Wilson Evans] = False
    Me![04-Richmond] = False
    Me![05-BereaBudJackson] = False
    Me![06-Monticello] = False
    Me![07-BereaCherifHechemy] = False
    Me![08-Garrard County Open] = False
    Me![09-Corbin NIBROC] = False
    Me![10-Pikeville] = False
    Me![11-London Bobby Smith] = False
    Me![12-CorbinLiveStrong] = False
    Me![13-ClayCounty] = False
    Me![14-Williamsburg] = False
    Me![15-CorbinCumberlandFalls] = False
      
    Me.Ctl01_pts = Blank
    Me.Ctl02_pts = Blank
    Me.Ctl03_pts = Blank
    Me.Ctl04_pts = Blank
    Me.Ctl05_pts = Blank
    Me.Ctl06_pts = Blank
    Me.Ctl07_pts = Blank
    Me.Ctl08_pts = Blank
    Me.Ctl09_pts = Blank
    Me.Ctl10_pts = Blank
    Me.Ctl11_pts = Blank
    Me.Ctl12_pts = Blank
    Me.Ctl13_pts = Blank
    Me.Ctl14_pts = Blank
    Me.Ctl15_pts = Blank
    
    
    Me!Division = Blank
    Me!Category = Blank
    Me!TotalPoints = Blank
    Division.SetFocus
    Me.Refresh
    
End Sub

Private Sub Delete_Click()
On Error GoTo Err_Delete_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Delete_Click:
    Exit Sub

Err_Delete_Click:
    MsgBox Err.Description
    Resume Exit_Delete_Click
    
End Sub
Private Sub Find_Click()
On Error GoTo Err_Find_Click


    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Find_Click:
    Exit Sub

Err_Find_Click:
    MsgBox Err.Description
    Resume Exit_Find_Click
    
End Sub

Private Sub Update_Click()

Me.Requery
Me.Refresh
DoCmd.GoToRecord , , acLast
    
End Sub

Private Sub Division_AfterUpdate()

'If me.Division = .

End Sub

Private Sub dup3_Click()
'On Error GoTo Err_dup3_Click


'    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
'    DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
'    DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append

'Exit_dup3_Click:
'    Exit Sub

'Err_dup3_Click:
'    MsgBox Err.Description
'    Resume Exit_dup3_Click
    
'End Sub

    Reply With Quote Reply With Quote
  2. 06-15-2011, 06:47 AM #2
    orange's Avatar
    orange
    orange is online now Moderator
    Windows XP Access 2003
    Join Date
    Sep 2009
    Location
    Ottawa, Ontario, Canada; West Palm Beach FL
    Posts
    16,847
    Try inserting some Debug.Print or Msgbox statements at various locations to see what is working. Put some breakpoints in and step through the code.

    Have you tried
    - compact and repair
    -creating a new blank database, then copying pieces from your current database? Could be some sort of corruption.
    Reply With Quote Reply With Quote
  3. 06-15-2011, 07:03 AM #3
    aldeb47
    aldeb47 is offline Novice
    Windows 7 64bit Access 2003
    Join Date
    Jun 2011
    Posts
    6
    Thanks Orange, will try.
    Reply With Quote Reply With Quote
Please reply to this thread with any new information or opinions.
« Previous Thread | Next Thread »

Similar Threads

  1. Using a Design View Query in ADO?
    By danny2000 in forum Access
    Replies: 4
    Last Post: 12-06-2010, 03:36 AM
  2. Why does my Form do this? Design View
    By yes sir in forum Access
    Replies: 4
    Last Post: 12-02-2010, 10:37 PM
  3. Query Design View Takes a Long Time to Open
    By jackthedog in forum Queries
    Replies: 0
    Last Post: 12-22-2009, 03:27 PM
  4. Can you disable design view?
    By nkenney in forum Forms
    Replies: 1
    Last Post: 04-23-2009, 05:08 AM
  5. Defaulting to Design View
    By cgolds in forum Access
    Replies: 0
    Last Post: 06-05-2007, 02:50 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules

Other Forums: Microsoft Office Forums