Search results

Indeed missinglinq, a mistake that should not be there. I must be more careful the next.

Hello, You mean "second field" ? The next code as solution : DoCmd.OpenReport "FixedDiscptnActvty", acViewPreview, , "StmntID = " & Me.StmntID & " And PaytoCurrency = '" & Me.PayToCurrency & "' And StmntID =” & Me.StmntID Set Me.PayToCurrency between quotes '

Hello, something like this ? : Private Sub Command24_Click() 'Date pass to QA and person passing to QA If Me.[PersonQA]=Environ("UserName") then MsgBox ("Warning !") ' You can add what you want as new actions Else Me.[DatePassedQA] = Date...

Hello, Were you trying something or did you search with F1? Because the 6th argument allow you to define the range of cells that you need. And you can use a variable. For exemple, the code below imports the range of cells A1:B20 from the example.xls file in the folder of the project as a table...

Hello, With TransferSpreadsheet method, you can define the range of cells that you need to import. Good continuation.

Hello, I advise you to resolve it with the first idea as at this thread : http://www.access-programmers.co.uk/forums/showthread.php?t=253291&highlight=filter Good continuation

Good! Of course, with SubQueries in SQL it's most cool. As I am not yet very well in SQL, it takes more time for me to find the right solution. And it's compulsory to use a table of parameters. Good continuation for you.

I think it's not also easy to give users the possibility to change these values. Another solution is using a table of parameters which they can change as their needs? I look for what is possible and will tell you.

Hello, 1 - You create a textbox that looks up the Min of the Start_Date for every CODE for e.g named TxtMIN with DLookUp function : = Dlookup ("Start_Date","YourTable","[CodeNum]=" & CodeControlInForm 2 - You create a similar textbox with the similar source to find the max of the Finish_Date...

Hello, Here is a vba code to give grade depending on marks of students. You use the select case instruction. You can adapt it easily to comment: Public Function ValGrade(PrMark As Double) As String Select Case PrMark Case 80 To 100 ValGrade = "A" Case 75 To 80 ValGrade = "A-" Case 70 To 74...

Hello, Why don't you use the IIF function that exists in VBA? Or can you explain in detail what do you want?

Hello, And like this ? Private Sub UpdateI_Click() Dim Popup As Role, strsub As String, PerName As String PerName = InputBox("What is their name?") Set Popup = New Role Popup.Show Select Case Popup.Tag Case 1 strsub = "UPDATE Individuals SET [AltDirOf] = " &...

Hello, Try : If Len(strCriteria) = 0 or IsNull(strCriteria) Then strSQL = "SELECT * FROM tbl_CSM " You can use a UNION QUERY to add "All" in the source of a ListBox as : SELECT Table1.Field1,Table1.Field2,Table1.Field3 FROM Table1 UNION SELECT "All",Null,Null FROM Table1 The queries in UNION...

Hello, I understand what you want but whithout the structure of your tables it's difficult to help you or guide you. Can you give the structure of your DB (the tables and how you do your claims). If it possible to share a minimum of your DB here at ACCESS 2003 version.

Hello, If I well understand, your users update records directly in the query? Why don't you use forms? A form based on your TOP100 query named Frm_TOP100 for e.g.. Another based on table MASTER (Frm_MASTER). So when they find the record that must be updated in the Frm_TOP100, they open the...

Hello, Here is a DB sample that I hope helps you to get the right result. For the first point, I don't think you can do it with a simple parameter query. You must create a form and use a vba code to allow your users to choose the comparaison sign. It will be fixed with a parameter query. For...

Re: Pop up a "Process Running" MsgBox and Close Automatically on Process Execution Hello, Here is a DB for sample with 2 forms implementing a ProgressBar (One with the ProgressBar and a second for testing this) that you can adapte in your case I think. Hope it can help you

Hello, Here an SQL CODE to do what you want. SELECT T2.Student_ID, T2.Students, T2.Marks, (SELECT COUNT(T1.Marks) FROM [Table] AS T1 WHERE T1.Marks >= T2.Marks AND T2.Marks>50) AS Rank FROM [Table] AS T2 ORDER BY T2.Marks DESC;Then, you must filter on Rank...

Hello, You can fill all blank values in the second column using an Update Query with the function Nz : UPDATE YourTable SET YourTable.Field2 = Nz([Field2],0);Here, all blanks will replace by 0. You can choose the character to use in place of blank. Good continuation

Hello, Something like this ? SELECT Table1.docno, Table1.title, Table1.progress, IIf([progress]>0.5,DLookUp("[Icon]","[Table2]","[id]=1"),DLookUp("[Icon]","[Table2]","[id]=2")) AS UrlImage FROM Table1;