Code:
Dim x(1 to 12) as integer Dim y as String y = cStr(290501049125) for i = 1 to len(y) x(i) = mid(y,i,1) next
Rodney Roe
Last Activity: Oct 17 '16, 10:00 PM
Joined: Oct 4 '10
Location: Blackfoot,Idaho,USA
-
I think this could be simpler if you only use the mid function
-
That helps, I was just confused because the subform object didn't have the property. so I didn't think to physically change the subform property because I didn't think it existed.
Thanks again all,Leave a comment:
-
Sweet, jforbes that worked!!!! :-)
Thanks NeoPa and zmbd I did open the subform in design view and made sure that the allow deletion property was set to "no", but I was still able to delete a record.Leave a comment:
-
ok, maybe I just need to show what I've got code wise
...Code:Private Sub cboGetTables_AfterUpdate() Dim strQuery As String Dim qry As QueryDef 'check if MasterQ exist if it does delete it For Each qry In CurrentDb.QueryDefs If qry.Name = "MasterQ" Then CurrentDb.QueryDefs.Delete "MasterQ" Next 'chooseLeave a comment:
-
NeoPa thank you for the quick response.
Shouldn't I set AllowDeletions to False if I don't want them to delete fields? Also, I have a combo box selector that changes the RecordSource from table to table, I added a chunk of code to set the Allow Deletions property to false every time the RecordSourse changes, but to no avail if I select a record in the subform and press delete it get's deleted.
I've tried setting the...Leave a comment:
-
How to prevent accidental deletion of record in subform
Hello, I'm using Access 2013
I have an unbound sub form that I'm populating with a SQL query in VBA by creating a querydef and passing it to the sub form source control. The sub form is shown in datasheet view. I had a user accidentally delete a record through the sub form, and I want to make sure that doesn't happen again. I tried setting the allow deletions property to "no" but that property doesn't show up in the sub... -
Rodney Roe replied to How can I fix dynamic vlookup slowing down when referenced workbook is read only?in AccessI would like to post my rusults,
I first tried to copy my files using the function "FileCopy" but found out that it errors out if the workbook is already open by someone. Due to the time delay like NeoPa discussed i didn't want to open each file individually and copy or search for my data.
So I used the FileSystemObjec t instead. This is what I did,
...Code:sourceFolder = "\\usbla-s004\misc-eng\ITEMDRAW"
Leave a comment:
-
Rodney Roe replied to How can I fix dynamic vlookup slowing down when referenced workbook is read only?in Access@ zmbd that makes sense why it takes so long to get the data.
Thanks guys for the help, do to the nature of what these workbooks handle i can't make them shared so i'll try to make a copy of the workbooks get my data and then delete that copy that way every time i run my program i'll get the latest and greatest.
Thanks,Leave a comment:
-
Rodney Roe started a topic How can I fix dynamic vlookup slowing down when referenced workbook is read only?in AccessHow can I fix dynamic vlookup slowing down when referenced workbook is read only?
I'm using VBA in excel 2010. I figured out that i could use vlookup to access workbooks without opening them up this is the code i've got.
...Code:For i = 0 to Ubound(myData,1) -1 [A2].Offset(i, 2) = myData(i + 1, p + 1) 'partnumber [A2].Offset(i, 3) = "=VLOOKUP(" & CStr([A2].Offset(i, 2).Value) & _ ",'" & myPath & "Sheet1'!$A$2:$C$10000,3,FALSE)" [A2].Offset(i, -
vb5prgmr your snippet of code is awsome! I was previously doing the same thing with arrays but this cut my code in half. I havn't played with collections very much so thanks for your insight.Leave a comment:
-
If your trying to create several controls and put them into an array do something like this;
add this code into your userform
I did this in VBA and i'm pretty sure it'll work...Code:dim myImage as new image redim myImage(someNumber) for i = 0 to someNumber set myImage(i) = Me.Controls.Add("forms.image.1", "image" & i, True) ... add more code here nextLeave a comment:
-
I quote from Neopa's post,
"A string in VBA requires the Double-Quote (") to delimit it. Single-Quotes (') won't work."
If you try creating a formula in excell with single quotes it will not work because it doesn't convert it to a string, and the formula fails.Leave a comment:
-
Try this
...Code:Sub TimeSpentFormula() Range("SR_TimeSpent").Formula = _ "=IF(OR(SR_DateClosed=""CLOSED""," & _ "SR_DateClosed = ""ON HOLD""," & _ "Resolution = ""Open"")," & _ """For Confirmation""," & _ "(SR_DateClosed-SR_DateOpened))"Leave a comment:
-
did you declare your sub in the module as public?
ie...
Public Sub compareArea()Leave a comment:
-
Have you stepped through your program line by line to see if that is the actual problem.Leave a comment:
-
Have you tried
Code:instr(1,strArtistString,cstr(txtSeeker))
Leave a comment:
-
Have you tried using range.offset()
something simmilar to that. [C1] is the shortcut version of range("C1").Code:for i = 0 to 19 [C1].offset(0,i)= [C1].offset(1,i) next ....
Leave a comment:
-
Rodney Roe replied to How to play two or more audio files one after another without freezing the form?in Visual Basichave you tried using this piece of code for your pause
It has issues some times but for the most part it has worked for me.Code:Application.Wait Now + TimeValue("00:00:03")
Also here is a class module that I created for mcisendstring that simplifies this API a lot.
all you have to do is "dim "some variable" as new cMusicPlayer" and the rest shouldn't be too hard to figure...Leave a comment:
-
Rodney Roe replied to How to play two or more audio files one after another without freezing the form?in Visual BasicHave you tried using the mcisendstring API? I built a music player with this API. you can play sounds one at a time or even on top of each other at the same time, and i havn't ever had a crash from it.Leave a comment:
-
Why not put your case statements into it's own sub routine then you can call the sub and start that routine anytime you want. Also you need to "End Select" each case statement.Leave a comment:
No activity results to display
Leave a comment: