Page 1 of 2 12 LastLast
Results 1 to 15 of 18
  1. #1
    Join Date
    Jun 2016
    Posts
    16

    Unanswered: Expanding a cell in a form (MS Acess 2010)

    I'm trying to expand the cells in the far right column of this form more to the right in both layout view and design view. However, when I try to save and close out that screen it keeps on asking me if I want to save in which I click yes and the message box keeps coming up over and over again and it will not save at all. Does anyone know how to solve this issue?

    See attachment

    Click image for larger version. 

Name:	Per Student Quote.JPG 
Views:	9 
Size:	175.1 KB 
ID:	16920

  2. #2
    Join Date
    Jun 2005
    Location
    Richmond, Virginia USA
    Posts
    2,763
    Provided Answers: 19
    I guess the first question, here, should be exactly how are you attempting to 'expand the cells in the far right column?' Unless your code is somehow causing an endless loop, you're probably looking at corruption, on some level; when things simply don't act as they should, corruption is the first thing you think of! But we really need to see your code before going any further with advice.

    BTW, in Access, you have Controls, Textboxes and (in Datasheet View) Columns, but 'cells' reside in Spreadsheets, not Databases.

    Welcome to dBforums!

    Linq ;0)>
    Hope this helps!

    The problem with making anything foolproof...is that fools are so darn ingenious!

    All posts/responses based on Access 2003/2007

  3. #3
    Join Date
    Jun 2016
    Posts
    16

    The VB Code

    Option Compare Database
    Option Explicit



    Private Sub CmdClosePrint_Enter()
    'Check to make sure they selected a Graduation Date , Program type and Drop date are entered

    Dim PT As Integer ' program type
    'Dim DD As Boolean
    Dim TC As Integer ' total count of start dates
    Dim CT As Integer ' current invoice timing
    Dim EC As Integer ' ecommerse
    Dim St As String ' school type
    Dim STL As Integer ' length of school type
    Dim MDR As Boolean
    Dim D1 As Integer ' start date 1
    Dim D2 As Integer
    Dim D3 As Integer
    Dim D4 As Integer
    Dim D5 As Integer
    Dim D6 As Integer
    Dim D7 As Integer
    Dim D8 As Integer
    Dim GD As Integer

    PT = Len(Me!CmbGetPrintType) ' Get the length of the program type (PrintType)
    'DD = IsDate(Me![1Drop]) ' Make sure there is a Date in Drop1 field
    St = Me!CSchType ' Get the School Type
    STL = Len(Me!CSchType) ' Get length of School Type
    D1 = Me!SC1 ' check Start 1
    D2 = Me!SC2 ' check Start 2
    D3 = Me!SC3 ' check Start 3
    D4 = Me!SC4 ' check Start 4
    D5 = Me!SC5 ' check Start 5
    D6 = Me!SC6 ' check Start 6
    D7 = Me!SC7 ' check Start 7
    D8 = Me!SC8 ' check Start 8
    EC = Me!eCommerce
    CT = Me!InvoiceTiming ' check the number of invoices to be done
    GD = Me!GD1


    MDR = True


    If St = "Trn" Then ' Set the number of invoices to be issued for TRN it must be 5
    CT = 5
    Else
    CT = Me!InvoiceTiming
    End If

    Select Case CT 'Check all dates needed for are there
    Case 1
    If D1 = 1 Then
    TC = 1
    Else
    TC = 0
    End If
    Case 2
    If D1 = 1 And D2 = 1 Then
    TC = 2
    Else
    TC = 0
    End If
    Case 3
    If D1 = 1 And D2 = 1 And D3 = 1 Then
    TC = 3
    Else
    TC = 0
    End If
    Case 4
    If D1 = 1 And D2 = 1 And D3 = 1 And D4 = 1 Then
    TC = 4
    Else
    TC = 0
    End If
    Case 5
    If D1 = 1 And D2 = 1 And D3 = 1 And D4 = 1 And D5 = 1 Then
    TC = 5
    Else
    TC = 0
    End If
    Case 6
    If D1 = 1 And D2 = 1 And D3 = 1 And D4 = 1 And D5 = 1 And D6 = 1 Then
    TC = 6
    Else
    TC = 0
    End If
    Case 7
    If D1 = 1 And D2 = 1 And D3 = 1 And D4 = 1 And D5 = 1 And D6 = 1 And D7 = 1 Then
    TC = 7
    Else
    TC = 0
    End If
    Case 8
    If D1 = 1 And D2 = 1 And D3 = 1 And D4 = 1 And D5 = 1 And D6 = 1 And D7 = 1 And D8 = 1 Then
    TC = 8
    Else
    TC = 0
    End If

    End Select

    If PT = 0 Then
    MsgBox "You forgot to enter the Program Type" 'check for print type
    Me!CmbGetPrintType.SetFocus
    'Cancel = True
    ElseIf GD = 0 Then
    MsgBox "You need to enter the Graduation date" 'check for graduation date
    Me![GraduationDate].SetFocus
    'Cancel = True
    ElseIf TC <> CT Then
    MsgBox "You are missing a Start Date somewhere" 'check for missing start date
    Me![1Start].SetFocus
    'Cancel = True
    End If
    End Sub

    Private Sub Ctl1Start_AfterUpdate()

    Dim Byr As Integer

    Byr = Year(Me![1Start])
    Me!BeginningClassYear = Byr

    End Sub


    Private Sub GraduationDate_AfterUpdate()

    Dim Gyr As Integer

    Gyr = Year(Me![GraduationDate])
    Me!GradClassYear = Gyr

    End Sub

  4. #4
    Join Date
    Jun 2016
    Posts
    16

    Property Sheet

    Property Sheet

    Click image for larger version. 

Name:	Property Sheet - Form 2.jpg 
Views:	3 
Size:	243.8 KB 
ID:	16923

  5. #5
    Join Date
    Jun 2016
    Posts
    16

    Expanding a cell in a form (MS Acess 2010)

    I have been manually trying to expand the cell by resizing it by dragging the mouse. I also tried adjusting the width on the property sheet.

  6. #6
    Join Date
    Jun 2016
    Posts
    16

    Printing issue with a form in (MS Access 2010)

    When I print from a form after generating/calculating quotes, the print out(PDF) shows duplicate items on the PDF only for some items and not others. How do you prevent it from printing out duplicate records?

    Click image for larger version. 

Name:	Purchase Quote Information Form - 1.JPG 
Views:	6 
Size:	194.9 KB 
ID:	16924Click image for larger version. 

Name:	Quote Menu - 2.JPG 
Views:	9 
Size:	142.1 KB 
ID:	16925Click image for larger version. 

Name:	Query List.jpg 
Views:	6 
Size:	250.8 KB 
ID:	16926

  7. #7
    Join Date
    Apr 2014
    Location
    Kentucky
    Posts
    472
    Provided Answers: 22
    Does the form have many records behind it?
    try setting the form property: (other tab) CYCLE = current record.
    then it shouldn't look for any more recs to print.

  8. #8
    Join Date
    Jun 2016
    Posts
    16

    Printing issue with a form in (MS Access 2010)

    I don't see where it says cycle.

    Click image for larger version. 

Name:	Print and Calculate - Property Sheet.jpg 
Views:	3 
Size:	235.9 KB 
ID:	16928

  9. #9
    Join Date
    Jun 2016
    Posts
    16
    Query

    Click image for larger version. 

Name:	Query Properties.jpg 
Views:	5 
Size:	60.0 KB 
ID:	16929

  10. #10
    Join Date
    Oct 2014
    Posts
    268
    Provided Answers: 6
    In the query what about activating the totals column and placing a group by in all your fields.

  11. #11
    Join Date
    Oct 2014
    Posts
    268
    Provided Answers: 6
    Copy the form and see if you can make the changes and save it. Of course name it something else, see if that particular object has been corrupted. Worth a shot.

    Are you able to make changes to the other forms just not this one?

  12. #12
    Join Date
    Jun 2016
    Posts
    16
    Yes I am able to make changes on this form.

    Click image for larger version. 

Name:	Able to expand.JPG 
Views:	2 
Size:	194.3 KB 
ID:	16931

  13. #13
    Join Date
    Oct 2014
    Posts
    268
    Provided Answers: 6
    Copy your database first, but could you copy the form rename it to the old form name etc and see if it works? This might be a simple workaround, I've not run into the problem you are experiencing so this is all I could think of.

  14. #14
    Join Date
    Jun 2016
    Posts
    16
    I can try that. Here is the property sheet for the FRM_StudentQuote referenced in the "do you want to save message" do you see anything unusual with it?

    Click image for larger version. 

Name:	FRM_StudentQuote.JPG 
Views:	6 
Size:	130.3 KB 
ID:	16932

  15. #15
    Join Date
    Oct 2014
    Posts
    268
    Provided Answers: 6
    What's the database file type? ACCBE or MDB? Try making a copy of it and renaming it to the new file type format see if that rids you of the bug.

Posting Permissions

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