Solved

access vba  - textbox in worksheet

Posted on 2014-04-29
2
1,002 Views
Last Modified: 2014-04-29
Hello

There is textbox3 on sheet1 of a workbook. I am in access and using accessvba. Now how in access VBA – I can do this >
Go to textbox3 of sheet1 of workbook and make it display “show”

?

Thank you
0
Comment
Question by:Rayne
2 Comments
 
LVL 119

Accepted Solution

by:
Rey Obrero earned 500 total points
ID: 40030407
test this codes

Sub postToXL()
     Dim xlObj As Object
     Set xlObj = CreateObject("Excel.Application")
          xlObj.workbooks.Open CurrentProject.Path & "\book1.xlsx"
          With xlObj
               .Worksheets("sheet1").textbox3.Select
               .Worksheets("sheet1").textbox3.Text = "Show"
               .Visible = True
          End With
          xlObj.Quit
End Sub
0
 

Author Comment

by:Rayne
ID: 40030429
Thank you Rey
:)
Works great
0

Featured Post

Top 6 Sources for Identifying Threat Actor TTPs

Understanding your enemy is essential. These six sources will help you identify the most popular threat actor tactics, techniques, and procedures (TTPs).

Join & Write a Comment

In case Office 2010 has not been deployed in your environment, this article may be quite useful. In our office, we wanted a way to deploy Microsoft Office Professional Plus 2010 through an automated batch file via logon script. This article is docum…
This article will guide you to convert a grid from a picture into Excel format using Microsoft OneNote and no other 3rd party application.
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string. Specify the first argument, which is the expression to be returned: Specify the second argument, which …
The viewer will learn how to create a normally distributed random variable in Excel, use a normal distribution to simulate the return on an investment over a period of years, Create a Monte Carlo simulation using a normal random variable, and calcul…

744 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

14 Experts available now in Live!

Get 1:1 Help Now