Search results

Thank you, boblarson

Hello, the code below run but will not compile, I get Me.RecordsetClone() method or data member not found, is this a library issue?, or improper coding, I can't seem to figure it out, any insight is appreciated, thanks Dim recClone As Recordset Set recClone = If Me.NewRecord Then...

Minnesota' this link takes you to a search form similar to you own, might be helpful to look at also, I like what you have made http://www.access-programmers.co.uk/forums/showthread.php?t=99353

Minnesota, this link takes you to a search form similar to yours, might be helpful to look at, I like what you have done http://www.access-programmers.co.uk/forums/showthread.php?t=99353

Yes, kind of old, access 2002 with VBA, other then that prediction not coming true a good book, regards Tim

Thanks for those comments I did not now that about ADO and DAO, one of the books I am reading implied DAO was a dying technology, not supported by Microsoft anymore and not worth learning because of this, I will study up on DAO. Thanks again,Tim

boblarson, partially I am confused by recordsets and ado, so mostly I'm trying to straighten out my understanding of them by writing some code that is useful to me in ado. I have a ton of on going data to scrub imported from a acrobat program and I am automating it by writing vba code to do so...

Hello boblarson, Bob I don't think so, I just googled ADP to see what it means, if I understood it correctly then no. Thanks

O.k this seems bazaar to me, I have the below code were qryADO is a query like so: SELECT * parse(field1) then make table. I made the query in GUI so works fine. When I execute the code below it takes 2 minutes for the table to show up, but if I go to deign mode the table shows up immediately...

Good evening, just getting my feet wet with ADO, not tired updating from sql before. Assume There is s connection then if Dim rs As New ADODB.Recordset SQL = "SELECT * FROM tblCustomers ZSQL = " Stuff " rs.CursorType = adOpenDynamic rs.LockType = adLockOptimistic rs.Open SQL, , ...

Oh-boy, I got it on my own Function ClearAll(c As String, f As Form) 'If you use with Validate function in same control Tag window then must be v then c e.g vc Dim ctl As Control For Each ctl In f.Controls Select Case ctl.ControlType Case acTextBox, acComboBox, acListBox, acCheckBox...

CEH, thanks for responding, sorry I was not clear in my posting, they are separate

CEH, Could you exsplane further, not entirely following your explanation, very new to writing functions, Thank you

HiTechCoach, Thank you for responding and cleaning up my code, they are my first two function so there similar as I based the validation off the clear function. Is it possible to change the clear code so that you place a c where you don't want to clear the ctl as it use to be, I played some but...

Good Morning, I have written the two functions below but they cant be used together, one is a validation function the other is a clearing function, if I place a c and v in the tag proprty box they are both ignored I tried changing one to I as Integer and placing a 1 in the tag box but did not...

Thanks for the link and comments, both are helpful

Good morning, in connecting with ADO is there a preferred method a) Dim cnn As ADODB.Connection Set cnn = CurrentProject.Connection b) Dim cnn As ADODB.Connection With cnn .Provider = "Microsoft.Jet.OLEDB.4.0" .Open "MyPath\MyDatabaseName.mdb" or a third method ? any...

I dont know if this is helpful, but you could make three text boxes MyTable, MyFieldName and MyNewFieldName then go RenameField "" & Me.MyTable & "", "" & Me.TableFieldName & "", "" & Me.MyNewFieldName &"" anyway glade to see you got it sorted out. Tim

No copy the code, hit alt and f11 then paste. Under a button go RenameField "myTableName","ColumnName","NewColumnName" RenameField "myTableName","ColumnName2","NewColumnName2" ect if you have trouble post back. Tim

HiTechCoach, CEH, thank you for responding. CEH I took your advice and made it a function as well as your "ctl.Controls(0).Caption" vary good idea's. Function Validate(v As String, frm As Form) Dim nl As String, ctl As Control nl = vbNewLine & vbNewLine For Each ctl In frm.Controls...