Search results

I should have tested what i gave you better.There was no field being used from the query,thats the reason for only having the commas in the string with no other value. I ran your function through 20 records from my db using a form control as criteria for the query.It returned a commer...

You must pass to the next line of code to set the object variable.So When the cursor drops to the next line ,then hover over it.If it has no value then that means the form control has no value and the query will not return the records you seek. This is another way to try,although a stored...

Couldnt agree more, I almost always use select case,i think its a lot easier to follow and add to Bjackson

the parameter for the query is the form criteria =Forms![FRMContractInfo]![ContractID] My Mistake for the set db Set db = CurrentDb() when you step through your code this part prm.Value = Eval(prm.Name) should be prm.value=the value of the field on the form Eval(prm.name) should = the...

could be the last elseif has a minus ElseIf Me.txtSearchType - "Workstream" Then ElseIf Me.txtSearchType = "Workstream" Then

I didnt know if your query had any parameters so i assumed it did.If there are no parameters then the code should still return the query and get the value you are after, or you could just change the code to Dim tempRecordset As DAO.Recordset Dim db As DAO.Database Dim StrText As String StrText...

Try a custom function if the dates you are trying to re format are always in the same format when you receive them.If You want to use a full stop as a delimeter then this function would generate an error, you would need to change the functions return data type to a string Function...

Paste this code into the form code module and call it from a command button you will need to insert your own field and query names Sub GetTxt Dim tempRecordset As DAO.Recordset Dim dbs As DAO.Database Dim qdf As DAO.QueryDef Dim prm As DAO.Parameter Dim StrText as string StrText=vbnullstring...

Thank you both,thats exactly what i was looking for.After a bit of experimenting i can now set and retrieve any registry value that i want.Its made life a lot easier. Thanks again :)

I need to change a registry setting for a 3rd party software program, but i need to do this from within access.The key value is a string expression. I have never atempted to change regisrty settings using vba, could anyone please point me in the right direction Thanks in advance Bjackson

Ok I worked it out,for anyone else who may be interested,its the same syntax as a form control Dim FldName(30) as string Dim i as long for i = 1 to 30 FldName(i)="W" & i rst.edit fields(FldName(i))=Ctl(i) rst.update next

I am trying to edit data in a table that has 30 fields.The fields names are W1,W2,- up to W30, and their value would correspond to a control on a form I have declared the controls in an array, so i would really like to use some sort of loop Is There any way to use a loop to refer to fields to...

visit http://developer.intuit.com/ and get the SDK for Quickbooks.Its free It gives you examples of how to push and pull all sorts of data between different applications and quickbooks. Regards Bjackson

I downloaded the latest jet update and that made no difference.I cannot select tools>macros> security from within access.It just does not exist as a selection I dont know that much about access 2003 macro security,i would imagine that the certificates would need to be made on each pc that...

Your Welcome I cant take credit for the code, as i obtained it as you have, from some kind soul whose is willing to share their knowledge.Where would we be without these forums !! Regards Bjackson

In Response to question 3 when i installed 2003 the tool >> macro >> security did not exist in the list of options.Well not in access anyway So i opened excell and hey there it is . Read up on creating certificates in the access help.Once you create your own certificate,and flag it as always...

Function tlk_RemoveTableLinks() As Integer '* Delete all table links in this database '* Local tables will not be deleted. Dim intRtn As Integer Dim strProcName As String Dim dbs As DAO.Database Dim tdf As DAO.TableDef Dim i As Integer Dim intTableCount As Integer Dim Finished As Integer On...

Have You recently changed or installed Norton anti virus? Sometimes norton will cause that error message

Glad you got it working The original code i posted is handy if you want to store all your querydef as a txt back up in case your db crashes,you can then import them back into any new db Regards Bjackson

Well You could print out all the query def sqls to the debug window then copy and paste to 1 txt file,or instead of debug print you could add the sql strings to a table then create as many txt files as you require.Not sure how you would get the parameters to print out Function PrintOutMysql()...