Hide Button 2

[daniels012]

I want to hide a button on my form when the record is new. How can I add this to my code of the button??

Here is the code now:
Private Sub Command876_Click()
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdPasteAppend
End Sub

This copies data from one record onto a new blank form. Obviously I don't want to copy blank info into a new form.

Any help would be greatly appreciated!
Michael

 

[TTF]

Command876.Visible=False

 

[PWise]

if not me.newrecord then
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdPasteAppend
end if

 

[daniels012]

I have this code on the "On Click" Event
Where should I put
Command876.Visible=False
in my code?

If I use this code, does this hide my button?
if not me.newrecord then
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdPasteAppend
end if

Thank You,
Michael

 

[daniels012]

Also can I go to a specific control and clear the control on my new page with all the data?
example: I would like to go to control "SampleNumber" while clearing the data it has?

Thank You,
Michael

 

[TheAceMan1]

How are ya daniels012 . . . . .

[blue]You can't hide a control while it has the focus . . .[/blue]

So . . . try this:

[blue]If Not Me.NewRecord Then
   Me!SampleNumber.SetFocus
   DoCmd.RunCommand acCmdSelectRecord
   DoCmd.RunCommand acCmdCopy
   DoCmd.RunCommand acCmdPasteAppend
   Me!SampleNumber = ""
   Me!Command876.Visible = False
End If[/blue]

See Ya! . . . . . .

 

[daniels012]

Hello TheAceMan1,
I think this will work fine. Where do I put it?? Maybe, in my buttons properties "On Click" or on the Forms properties? Because I only want to copy the data when the button is hit, but I only want the button to show when the form has data, so that data can go to the next record?

Sorry, I'm kinda green to access coding!

Thank You,
Michael

 

[TheAceMan1]

daniels012 . . . .

Replaces your origional code in [blue]Private Sub Command876_Click()[/blue]

See Ya! . . . . . .

 

[daniels012]

I had it on the "On Click" properties. Now it only Visible or not when I click??
Is there a way I can, say for example I have a text box called Company, If Company is empty or Null then my "CopySample"(used to be Command876) button would not appear. This way I know when there is a new record, there is no data in the Company field and my button would not appear.

 

[randy700]

How about....

In your form's OnCurrent event, place this code:

If IsNull(me.txtCompany) Or me.txtCompany = "" Then
me.cmdCopySample.Visible = False
Else
me.cmdCopySample.Visible = True
End If


Randy

 

[TheAceMan1]

OK daniels012 . . . . .

In the forms [blue]Current Event[/blue] & [blue]AfterUpdate Event[/blue] of [blue]Company[/blue], copy/paste the following line:

[blue]   Call visCompany[/blue]

Then in the code module for the form, copy/paste the following routine:

[blue]Public Sub visCompany()
   If Trim(Me!Company & "") = "" Then
      me.cmdCopySample.Visible = False
   Else
      me.cmdCopySample.Visible = True
   End If
End Sub[/blue]

See Ya! . . . . . .

 

[daniels012]

Andy700 and TheAceMan1,
Thank You very much!!
These both worked!
I am fairly new to doing code so this really helped!

Thanks again,
Michael