Search results

Hi Experts, I tried the whole day to contruct a query that deliver me the sum of 3 months i.e the actual month + 2 months. The Table layout is Month1 Cost Item Year Moving Sum (should be Output) 01/08/2010 20 A 2010 55 01/09/2010...

Hi Experts, I am having the problem that when I try to save my snp file to pdf file, sometimes the pdf file generated is not the correct one. For example i have a customer A and I have generated pdf files for it and now I want to make pdf file of report for customer B, now when sometimes the...

Thanks DClarke

What is for the case when you as administrator deleted a table accidently. In this case would such a routine with some dialogbox to show warning would not be helpful?

HI experts, Is there a way to prevent the user to delete tables? Or ask user when he tries to delete a table whether he is sure about deletion of that specific object. Thanks in advance for your suggestions

Thanks I had more or less the same idea. Thanks I tried it and it works fine. Thanks again for the quick reply.

Hi experts, Today morning I am asking myself the question how I could get unique items in a recordset. I have a parts table and for each part there should be approriate description available. Now for some parts there are no description available and as one part can come many times in this...

Got it...:) Created a dynamic table which is bound to list and then created query over it as a source and by creating the list no. of columns selected as wished. Thanks for your help.

Thanks for the suggestions. I will give it a try.

strsql = "SELECT TBL_VP_" & Forms!Form1!Combo3 & ".VEHICLE_LINE_WERS AS VLWERS" '& vbNewLine strsql = strsql & ", TBL_VP_" & Forms!Form1!Combo3 & ".ENGINE AS ENGINE" '& vbNewLine strsql = strsql & ", TBL_AWS_ENGINE.Engine_Description as ENG_DESC" '& vbNewLine strsql = strsql & "...

tried as you told but the code is doing nothing new...:rolleyes:

Option Compare Database Private Sub Combo3_AfterUpdate() Dim db As DAO.Database Dim rs As DAO.Recordset Dim vl As String Dim strsql As String Dim totalengines As Integer Dim usedengines As Integer Dim notusedengines As Integer Dim noinfos As Integer List6.RowSource = "" vl = Combo3.Value...

HI friends, I wonder whether it is possible to get variable name for a simple code like this i= 1 for i = 1 to 8 debug.print i next i I can get the values of i but if i have a complicated strcuture aqnd I at specific time i WANT TO KNOW WHICH VARIABLE IS DELERING ME A VALUE HOW CAN I...

Thanks all of you at last it is working. Tahnks again

strsql = "Select max(Len([" & rs.Fields(i).Name & "])) From " & strobjectname & ";" The above is working but I am getting runtime error 2342 "A runsql action requires an argument consisting of an sql statement."

I am playing with " and ' with all the combinations but the code rs.fields(i) value is not read by the code. Is there a good link where I can read about the logic how to insert variables in sql statement in vba. Thanks again

could you please give me an example how you would implement it with dynamic query. Itried with strsql =select max(len(rs!fields(i))) from & strobjectname docmd.runsql strsql is gving me error.

I want to get the maximum lenght of the contents of a field.

I have partially found the mistake it was in the line Debug.Print rs.Fields(i).Name; "------->" & DMax(Len(rs.Fields(i).Name),strobjectname) But now I am just scanning just one record and not whole of the recordset in the code. Option Compare Database Sub FieldsAnalysis() On Error GoTo...

Hello friends, I am trying to scan the fields of a table with the following code. This should normally give me the maximum length value for each field in the table. However max is not working in vba code as it normally works on table/query level. I therefore used DMAX but it is not working. Any...