You can change the Height and Width values for the textbox in Got_Focus & Lost_Focus events.
Example:
Private Sub txtEnlarge_GotFocus()
txtEnlarge.Height = 1500
txtEnlarge.Width = 5500
End Sub
Private Sub txtEnlarge_LostFocus()
txtEnlarge.Height = 240
txtEnlarge.Width = 1440...
I think I would create a combo with a Value list that lists all 52 states. The user would select one of the states and you can set the associated form's Recordsource and the controls ControlSource in the " On Change" event for the combo. As long as all the tables have the same structure and...
It does look OK.
Granted that I don't know exactly what info you base your searches on but the only thing that looks out of place from the code is that you are searching if txtTitle is Null and not txtName, is this on purpose?
Regards,
gkprogrammer
Hello Again Smah,
I'm hoping you could tell me exactly what this file is used for and how it could come to be that it worked one day and not the next. Maybe it is something that I did that I could avoid in the future. Thanks Again.
Regards,
gkprogrammer
Hi All,
I have a problem that I hope someone will have some suggestions for me. Using IE V6.0.2800.1106, I have downloaded all of the updates etc that are available on the microsoft website as well. I can click links and they will open fine as long as the link is being opened in the current...
Hi Brian,
I think all you should need to do is SetFocus to a different control in your Lost_Focus event before setting the control's Enabled property to false, something like this:
Private Sub In1_LostFocus()
ChgInd = "N"
Me!AnotherControlOnForm.SetFocus
Me!In1.Enabled =...
You have definitely come to the right place for examples this forum is a wealth of information. Just take the initiative to do a little searching in previous posts and you should have no problem finding some examples of what you are looking for.
Regards,
gkprogrammer
You could try using an array, above you stated that there would be 1 - 10 files so I have only used 10 in my example but you could obviously expand on this it you wish:
Private Sub Main()
Dim I As Integer
Dim Placeholder() As String
Dim FolderLength As Integer
FolderLength =...
Hi Legos,
You could make use of the FileSearch function, what I have done below is simply rename the files that are found in the "C:\CopyFrom\" Folder to a sequential number (ie. 1.txt, 2.txt etc....) into the "C:\CopyTo\" folder. Code is as follows:
Private Sub Main()...
Hello Again,
I just noticed that you wanted to close the App. and not just a form. In this case you would place this code in the Form_Timer procedure instead:
Private Sub Form_Timer()
On Error GoTo Err_Command1_Click
DoCmd.Quit
Exit_Command1_Click:
Exit Sub...
Hi AAAccess,
First create a command button that will display "Close Form" or something like that to the user, lets call it cbCloseForm. Then place the following code in the On_CLick event for the cbCloseForm button:
Private Sub cbCloseForm_Click()
Me.TimerInterval = 3000
End...
Hi Nick,
I copied the above code you supplied and simply changed the filename to be copied but left all your syntax for the destination file. It worked as expected, it copied my specified file to the folder I selected with the Browse dialog box with the names you have typed in the above code...
It appears that it is already in the global declarations, I have used this code on many occasions without fail, I'm not sure why you are having problems with creating a user-defined type. I did notice one problem though, when using the FileCopy statement the variable 'Value' will only be the...
Did you place the below snippet of the code in the global declarations section of the Form?
Type shellBrowseInfo
hWndOwner As Long
pIDlRoot As Long
pszDisplayName As Long
IpszTitle As String
uIFlags As Long
IpfnCallBack As Long
IParam As Long
iImage As Long
End...
Sounds like you understand properly, the variable 'Value' will be used as your destination and you can use the Filecopy statement as many times as you like, good luck.
Regards,
gkprogrammer
Hi Islwyn,
I think the below code will do the trick for you. It should be fairly self explanatory, if you have any troubles with the code just post and I can help you out.
--------------CODE BEGINS---------------------
'global declarations
Option Compare Database
Option Explicit
Type...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.