Code: Select all
Me.txtLocation = Mid(Me.txtLocation, InStr(1, Me.txtLocation, "$"), InStr(1, Me.txtLocation, ":") - InStr(1, Me.txtLocation, "$"))
Code: Select all
Me.txtLocation = Mid(Me.txtLocation, InStr(1, Me.txtLocation, "$"), InStr(1, Me.txtLocation, ":") - InStr(1, Me.txtLocation, "$"))
Hi Rudi,Ben:
The code is under the Create Data button of the UserForm
If you open the Workbook, press ALT+F11
Double click on the folder called Forms in the VBA Projects Window (top left of VBA Editor)
Double click on frmSampleData (the userform)
Double click on the Create Data command button
It will open a Private Module with the code (which runs when the user clicks the button at run time)
Rudi, this unzipped toRudi wrote: - Oops...Silly Me!!
TX
It is working well now!
Here is the latest add-in (version 2) with everything running well now...
Sorry Ben,BenCasey wrote: Rudi, this unzipped to
Eileens Random Data Generator (V2).xlam
Is this correct, nothing shows when it opens.
I have never used Northwind.Strangely, the Northwind sample data I use in this add-in is actually from the Northwind Sample Database that comes with Access. So, although you can use the data and upload into Access, the app should have similar data in its sample database template.
Code: Select all
Sub Eileens_RandomDataGenerator()
With frmSampleData
.StartUpPosition = 0
.Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
.Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
.Show
End With
End Sub
Oops... LOL...that was the test version. Emailing for you to upload TX.HansV wrote:Thanks. This is a version without data?