Senin, 24 April 2017

Re: [MS_AccessPros] Box keeps disappearing.

 

I copied the numbers out of the properties wiindow. 

With Warm Regards,
 
Arthur D. Lorenzini
IT System Manager
Cheyenne River Housing Authority
Wk.(605)964-4265  Ext. 130
Fax (605)964-1070

"Anyone who claimed that old age had brought them patience was either lying or senile."  







From: "Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com>
To: "MS_Access_Professionals@yahoogroups.com" <MS_Access_Professionals@yahoogroups.com>
Sent: Monday, April 24, 2017 3:16 PM
Subject: 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: Art Lorenzini <dbalorenzini@yahoo.com>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (4)

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.


.

__,_._,___

Tidak ada komentar:

Posting Komentar