Search results

This makes me miss PL-SQL. Kinda the same ordeal yes? lol

SELECT DISTINCT num, Count(num) As [Count] FROM [table] GROUP BY num Edit: My mistake, I failed to read that you were placing these on a form's fields.

The comments beside it state to "'// Reference: Microsoft Scripting Runtime"

You have a + sign before the leading Nz

I'm guessing your form name in your table isnt matching your form. Same with the controls. Maybe the first control or the form name? Just a wild guess with what information we've been provided.

For my own eyes: Dim objFrc As FormatCondition Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Set db = DBEngine(0)(0) GBL_Username = Environ("username") strSQL = "Select * from CondFormat Where (UserName = '" & GBL_Username & "' OR Cond_Type = 'Global') AND ReportListID =...

Oh sorry, I don't even know what web based access is hahahaha!

I came up with this, but I'm not sure if there are other more effective ways of retrieving it. Public Function GetUserName() As String GetUserName = Nz(Environ("USERNAME"), vbNullString) End Function

This depends on the source and how your getting this data. If the data comes from an external source that you're not able to alter its generation, you're going to have to run the function routinely. If you're able to alter the generation of the data, you can run the function I provided once...

Private Sub SetIncrements() Dim rs As Recordset: Set rs = CurrentDb.OpenRecordset("tblData") Dim dict_scuad_variants As New Dictionary '// Reference: Microsoft Scripting Runtime Dim tmp_str As String While Not rs.EOF tmp_str = CStr(rs!scuad)...

This would require some VBA, is that ok for you?

Holy moly! You have a smart boy! :) He's not too far from where I live. I'm just on the other side of main in New Brunswick, Canada

Rx_ Normally I would dive face first into solving a problem with you, but I'm having a numb brain week! :(

you may be able to load this driver Not sure though :P https://msdn.microsoft.com/en-us/library/aa468547.aspx

You could also store the end date automatically as well. Saves from human error. :P

select style, description, sum(distance) from table_name group by style, description

Whoops! Hahaha good catch. I forgot to save the last record before exiting the function. Public Sub ImportQuestions(ByVal file As String) Dim fs As New FileSystemObject If Not fs.FileExists(file) Then: Exit Sub Dim rs As Recordset: Set rs =...

Now that I think of it, that error is being thrown because of a table design mismatch. The value you're not seeing is the processed string that is being passed as a key => value into the rs object. Using that table design, the function will run smooth. Also, I've found something in the code...

... the picture shows you the table structure lol Here is one of the table's design view. As for the error. Are you using the same text file that I am? If not, send me your new one and I'll work through the new variation.