Re: [MS_AccessPros] Box keeps disappearing.

 

I expect you need to multiply your positions and sizes by 1440 since VBA uses TWIPS unit of measure by default.

Duane 

Switzerland

---

From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of dbalorenzini@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Monday, April 24, 2017 2:53 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Box keeps disappearing.

 

I have a frm and it contas a box called bxNew. Inside the box I have a couple of cmd buttons called cmdShowMore and cmdShowLess; See code below:

Private Sub cmdShowLess_Click()
    Me.bxNew.Top = 0.125
    Me.bxNew.Left = 8.0417
    Me.bxNew.Height = 1.791
    Me.bxNew.Left = 8.0417
    Me.bxNew.Width = 6.625
   
    Me.ImgEmployee.Visible = False
    Me.cmdEmployee.Visible = False
    Me.imgContactPerson.Visible = False
    Me.cmdContactPerson.Visible = False
    Me.cmdReports.Visible = False
    Me.imgReports.Visible = False
    Me.imgView.Visible = False
    Me.cmdView.Visible = False
    Me.imgShowLess.Visible = False
    Me.cmdShowLess.Visible = False
End Sub

Private Sub cmdShowMore_Click()
    Me.bxNew.Top = 0.125
    Me.bxNew.Left = 8.0417
    Me.bxNew.Height = 2.9993
    Me.bxNew.Left = 8.0417
    Me.bxNew.Width = 6.625
   
    Me.ImgEmployee.Visible = True
    Me.cmdEmployee.Visible = True
    Me.imgContactPerson.Visible = True
    Me.cmdContactPerson.Visible = True
    Me.cmdReports.Visible = True
    Me.imgReports.Visible = True
    Me.imgView.Visible = True
    Me.cmdView.Visible = True
    Me.imgShowLess.Visible = True
    Me.cmdShowLess.Visible = True

I am trying to adjust the heighth of the box according to the button a person pushes. But no matter what my box disappears... Any ideas?

__._,_.___

---

Posted by: Duane Hookom <duanehookom@hotmail.com>

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (2)

---

Have you tried the highest rated email app?

With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

---

Visit Your Group

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___