Loading Subforms Using Strings
Aug 23, 2006
hi... I have a form containing 120 subforms...
the form will be loaded depending on the user...
i name my subforms in sequence that is: loadA1, loadA2, loadA3,....
to load a form I just use the code: me.loadA3.sourceobject = "FormName"
and then I make a counter to keep track of which forms are loaded and which one to load next.. as they load in sequence..
the question is if its possible to write the above code in a string type or other way to make the code shorter...
For example my code is as follows: If ACount = 0 Then
Me.LoadA1.SourceObject = "TEMPCableName"
ElseIf ACount = 1 Then
Me.LoadA2.SourceObject = "TEMPCableName"
ElseIf ACount = 2 Then
Me.LoadA3.SourceObject = "TEMPCableName"
ElseIf ACount = 3 Then
Me.LoadA4.SourceObject = "TEMPCableName"
ElseIf ACount = 4 Then
Me.LoadA5.SourceObject = "TEMPCableName"
ElseIf ACount = 5 Then
Me.LoadA6.SourceObject = "TEMPCableName"
ElseIf ACount = 6 Then
Me.LoadA7.SourceObject = "TEMPCableName"
ElseIf ACount = 7 Then
Me.LoadA8.SourceObject = "TEMPCableName"
ElseIf ACount = 8 Then
Me.LoadA9.SourceObject = "TEMPCableName"
ElseIf ACount = 9 Then
Me.LoadA10.SourceObject = "TEMPCableName"
ElseIf ACount = 10 Then
Me.LoadA11.SourceObject = "TEMPCableName"
ElseIf ACount = 11 Then
Me.LoadA12.SourceObject = "TEMPCableName"
ElseIf ACount = 12 Then
Me.LoadA13.SourceObject = "TEMPCableName"
ElseIf ACount = 13 Then
Me.LoadA14.SourceObject = "TEMPCableName"
ElseIf ACount = 14 Then
Me.LoadA15.SourceObject = "TEMPCableName"
ElseIf ACount = 15 Then
Me.LoadA16.SourceObject = "TEMPCableName"
ElseIf ACount = 16 Then
Me.LoadA17.SourceObject = "TEMPCableName"
ElseIf ACount = 17 Then
Me.LoadA18.SourceObject = "TEMPCableName"
ElseIf ACount = 18 Then
Me.LoadA19.SourceObject = "TEMPCableName"
ElseIf ACount = 19 Then
Me.LoadA20.SourceObject = "TEMPCableName"
End If
If ACount < 19 Then
ACount = ACount + 1
ElseIf ACount < 0 Then
ACount = 0
Else
ACount = 20
End If
anyway to make it something like:
"me.loadA" & Acount & ".SourceObject = "TEMPCableName"
??
Thanks in advance
help is much appreciated
View Replies
ADVERTISEMENT
Mar 9, 2008
Hi,
what is the best way to load or unload subforms? currently, i have the subforms within my form and code will change it visible and invisible but it would be better i think if they could be loaded or unloaded as i iahve existing code in the forms that all needs to be written.
( i originally had the subforms as separate forms that opened as a single form ).
can you load / unload subforms on a form as normal forms?
regs,
NS
View 8 Replies
View Related
Jun 6, 2007
Hello
I have two tables with names of people in different forms.
table1 : [name] can be either in the form of :
- firstname & firstname surname
- surname, firstname
table2: [surname]
I'm trying to select all the records in table1 where [table2]![surname] is part of [table1]![name]
I've tried using
Like "*"&[surname]&"*"
This returns everything rather than the similar names.
I think this should be simple but can't work it out.
View 1 Replies
View Related
Feb 4, 2006
I forum could someone tell me:
I have an unbound form on that form I want to put three sub forms one on a products table the other on a course start dates table and the link table that joins the other two together. all three are related to each other with Pk/FK links.
When I try to link them it says you cannot link items on an unbound form.
regards in advance
Peter:eek:
View 1 Replies
View Related
Oct 26, 2006
Hi,
I need help urgently. I am currently receiving files in .txt format through ftp which then reside in the same network folder as my Access Db. All the tables have been designed to read the data in. I'll be receiving these files on a daily basis. My idea is to automate this process. So, I would like to delete the existing data from the tables and then load the new set at a particular time everyday. Again, data comes in a .txt format through ftp. Please let me if this could be done and how. Thank you.
Arvind
View 1 Replies
View Related
May 9, 2005
i have a form, in which two of the controls on the form, are unbound image controls, which display linked images. Now i have a button, which when both images have been displayed successfully, i would like to set the enabled property of this button to true.
How can i detect, that an image has ended up linking and is now fully displayed ?
Thank You
View 1 Replies
View Related
Oct 31, 2005
Hey,
I am updating a switchboard from someone elses work.
I get the error on other peoples computers (but not my own) that there is an "error loading DLL" and the I get "The expression On Click you entered as the event property setting produced the following error: The expression you entered has a function name that <database> can't find.
* The expression maay not result in the name of a macro, the name of a user-defined function or [Event Procedure].
* There may have been an error evaulating the function, event, or macro"
I am including a before and after of the db as attached. (-new is the new one)
Again the form opens perfectly on my computer for both but not for anyone else. The error thrown is included as well as the jpg
HELP NEEDED AND APPRECIATED!
View 2 Replies
View Related
Apr 18, 2008
Hi, im using a .mdb Database in Access 2003 and i got it stored on my network server.
Now i have this problem:
If i start the Database on one specific computer, the main menu (the first page that pops up at loading) is not showing correctly
Other Forms are accessible through the manager-list
Meaning, that background and picture in background are showing correctly, but none of my buttons are there.
All i get is one single small click-button and a "1" next to it....
Button not having effect at all..
So my questions :
a) why is this problem only showing on ONE and only one computer? On other computers the database is just doing fine.
b) what IS the nature of the problem
c) how to fix it?
Many thanx for a quick reply..
View 2 Replies
View Related
Jun 27, 2014
I have a Splash Screen type deal that loads after the user logs in I wanted to know if there was a way that I could add a Loading Bar that would say different things like Are you having a nice day?
View 14 Replies
View Related
Nov 8, 2005
Hi,
I have 2 strings:
str1 = SELECT Field1, Field2, Field3, Field4 WHERE (Criteria1)
str2 = SELECT Field1, Field2, Field3, Field5 WHERE (Criteria2)
I want to show in listbox only "Field1" from str1 and str2.
How unit 2 strings?
Thank You in advance.
View 4 Replies
View Related
Mar 31, 2006
Hi all.
I have 2 strings:
strSQL1 = SELECT FieldA FROM table WHERE FieldA = xxx
strSQL2 = SELECT FieldB FROM table WHERE FieldB = xxx
I need unit this two strings to third string strSQL3.
I must have result StrSQL3 = SELECT FieldA, FieldB FROM table WHERE FieldA = xxx and FieldB = xxx
Is it possibly unit strings (not Select Query)?
View 4 Replies
View Related
Nov 3, 2007
So I need to know this. How do I:
*Add 2 text fields together with a space between?
*Truncating field 1 to the first character and field 2 to the two first characters?
Sorry for my noob questions :D
View 6 Replies
View Related
May 23, 2005
Hi. I am trying to compare 2 string values.
5:00
5:45
9:54
10:15
Lets say those are my values. Well in the formula >"5". 10 Will not show up correctly. Does anybody have a piece of code or something that will correctly display 10 as >"5". Any help greatly appreciated. Thanks
View 3 Replies
View Related
Aug 23, 2005
Seems like a simple question but I am stuck.
I need to join two strings from different records in a table
table eg
ID Desc
1 blah blah
1 more blah
2 blahring
2 blah
3 and last one
I want to join all the "Desc" strings that have the same ID to get
1 blah blah more blah
2 blahring blah
3 and last one
Can anyone help?? :o
Thanks
Paul
View 1 Replies
View Related
Dec 15, 2005
I am normalizing data from a spreadsheet of just over 4000 records. The spreadsheet has a "Model" field that contains both the model number and a model description, separated by a space. I would like to split this field into two different fields: "Model_Number" and "Model_Description". The model number is one word of varying lenths.
Any ideas?
View 5 Replies
View Related
Nov 2, 2006
Hello,
I am having trouble with a query. I have a number of blanks for a field and I tried using the expression from the help:
=IIf(IsNull([fieldname]),"Unknown",Format([fieldname],"@;LS"))
But my result set is still a lot of blanks.
This is the expression I was trying to use:
IIf(IsNull([tblMainpersondata]![MailingAddrLine2]),[tblMainpersondata]![MailingAddrLine1],[tblMainpersondata]![MailingAddrLine2])
On most of these, the result was a blank, instead of MailingAddrLine1. If there was visible data for MailingAddrLine2, it appeared.
Any help or suggestions would be greatly appreciated!
View 2 Replies
View Related
Jan 29, 2007
Hey Guys,
Just wondering how I would go about comparing two strings, and spitting the results out a similarity percentage?
E.G. (String 1) Postal Address: "11 John St"
(String 2) Street Address: "11 John Street"
(Output): 80%?
Cheers
View 5 Replies
View Related
Jul 10, 2007
Hello,
I would like to put a restriction on the SQL statement such that if one particular field contains the character "MO", then we take in the record, else we ignore them. May I know how could this be done in the "WHERE" part of the SQL statement? I do not think SQL would read things like Instr(). Thanks!
Regards,
Anyi
View 13 Replies
View Related
Nov 15, 2004
Hi all,
Please can someone help. I am trying to pass a query to the database from vba but can't seem to get the string concatenation of fields correct.
Clinical area and title of audit are database fields. Any ideas please? Thanks!
Here is what I have:
StLc = "[Clinical Area] = """ & Me![Combo309] & """ & """ And """ & [Title of Audit] = """ & Me![Combo309] & """"
View 1 Replies
View Related
Dec 18, 2004
Hoi,
I have a loop where i use a string (strCount). The first time I run the loop strCount has de value A. The second time strCount must become B, the third time C, etc
I already tried to strCount = strCount + 1 but it did not work
does someone know how to do this?
greets
Koen
sorry formy wad english
View 2 Replies
View Related
Feb 9, 2005
This is a database that was handed off to me for upgrading.
The person who initially created it made the Name field in the table contain the entire name... So a single entry in the field looks like
CHRIS R LOUNSBURY
The table is in the attached table. This is merely a sampling. The main table has over 3,000 names in it. Is there an easy (or maybe not so easy) way to automatically parse that data and split the names into their own fields.
An example would be the string CHRIS R LOUNSBURY. Run code which takes the string left to right to the first blank space, and splits it off into First Name field. Take the last part of the string (right to left) to the first white space and put it in the Last Name field.
Is this possible? Or do I need to find myself a temp employee to data entry all this over again
View 14 Replies
View Related
Oct 1, 2007
Hi all
I have a Row source string which I use quite often. Currently, I declare it in each procedure and copy and paste it in. The problem is when it needs changing, I need to change it in a billion places.
can I declare the string as public and set it as public too so that I can just make a reference to it rather than copy and paste entire slabs of code into each event??
perhaps I need to place it into a module?
Suggestions are much appreciated.
View 12 Replies
View Related
Apr 11, 2006
Hi all,
I encountered some weird symptons with my Access forms. I am using the form to display images(done by setting the OnCurrent and After Update property).
When my PC is just powered on, and i try to load say form "ENGLISH". Form "ENGLISH" will appear, but the focus will switch in between form ENGLISH and the MS ACCESS program window. This action will onli settle down after abt 10 secs.
When the ENGLISH form is loaded, i will attempt to switch from one record to another, but the same thing occurs again. IT will load/refresh for abt 10seconds, with the focus toggling btwn ENGLISH FORM n MS Access.. IN addition, it opens a second copy of FORM "ENGLISH" in the background as can be seen on my taskbar. When i close my 1st form ENGLISH and i attempt to close the 2nd FORM tat is appearing on the taskbar, there will be an error msg, English : MSACCESS.EXE-Application Error, Instruction at....(refer to the attached jpeg file for detailed error location)
Y is it tat this weird behaviour onli applies to the forms tat are used to display images but not those normal forms tat contains of purely text?
The entire behaviour will be eliminated after i close MS access, and reload the DB abt twice.....
View 3 Replies
View Related
Apr 14, 2006
Hello All
I have a list box that displays the names of customers who are allowed to hire DVDs.
I would like to highlight a customer and show all the relevant customer data on a separate form, not have the list box on the same form that displays the customer's data.
Regards
Terence
London
View 2 Replies
View Related
Nov 13, 2007
Hi
I am trying to get a blank ribbon to be in place when a user opens my application. I have an Adp linked to SQL Server. If I create a table in SQL Server named ribbons and have the app read the data in that table in the AutoExec macro (this runs the code that reads the data) then assign the new ribbon to Application.LoadCustomUI RS("RibbonName").Value, RS("RibbonXml").Value it works and the blank ribbon is displayed. The problem is that this is no use because if the adp is not connected to the database on startup it causes an error as no connection has been established.
Instead I have put exactly the same xml file into a module but this does not have the same affect even though I call the same Application.LoadCustomUI method. I havent really done anything different except change how the xml is found. The problem with this method is it just pops the new ribbon into the list of available ribbons so then the user would have to choose the ribbon, shut down and restart, that is no use.
Has anybody got any idea what can be done about this? I will post the code below.
Thank you for any advice on what can be done.
Paul
First method (which works but is no good for distributing the app)
Autoexec calls the following
Public Function LoadRibbons()
Dim RS As Recordset
Set RS = CurrentProject.Connection.Execute("SELECT Ribbons.RibbonName, Ribbons.RibbonXML FROM RIBBONS")
If Not RS.BOF Then
Application.LoadCustomUI RS("RibbonName").Value, RS("RibbonXml").Value
End If
RS.Close
Set RS = Nothing
End Function
but using the following and calling it in autoexec just puts the ribbon in the list and doesnt use it
Function CreateRibbon()
Dim xml As String
xml = _
"<customUI xmlns=""http://schemas.microsoft.com/office/2006/01/customui"">" & vbCrLf & _
" <ribbon startFromScratch=""true"">" & vbCrLf & _
" <officeMenu>" & vbCrLf & _
" <button idMso=""FileCompactAndRepairDatabase"" visible=""false""/>" & vbCrLf & _
" <button idMso=""FileOpenDatabase"" visible=""false""/>" & vbCrLf & _
" <button idMso=""FileNewDatabase"" visible=""false""/>" & vbCrLf & _
" <splitButton idMso=""FileSaveAsMenuAccess"" visible=""false""/>" & vbCrLf & _
" </officeMenu>" & vbCrLf & _
" </ribbon>" & vbCrLf & _
"</customUI>"
Application.LoadCustomUI "BlankRibbon", xml
End Function
View 1 Replies
View Related
Jan 24, 2005
I am looking for a way to automate the clearing of tables and re-loading of data from txt files. Can someone point me in the right direction?
View 4 Replies
View Related
