Search results

Connor. Do you have a database setup already that you are working with or is this a solution that you are creating a brand new Application for?

Pat, I know - Its an exported csv file poor choice of field names from the developers that created the CSV file...

Thanks Pat I went a really weird route with this one lol - Used ADO.NET to get the data and then I populated a virtual recordset with the contents of the data reader.. Dim vPath As String = System.IO.Path.GetPathRoot(fName) Dim vFile As String = System.IO.Path.GetFileName(fName)...

Cant get that to work either - I can get the jet provider to work but not this csv file provider....

What is wrong with this... Dim conn As New ADODB.Connection With conn .Provider = ("Driver={Microsoft Text Driver (*.txt;*.csv)};DBQ=" & fName) .Open() End With

just a guess here With dbs For Each tdf In .TableDefs strTableName = tdf.Name Set rst = .OpenRecordset(strTableName) if not rst.eof = true then lngX = rst.AbsolutePosition + 1 rst.MoveLast lngCount = rst.RecordCount else lngCount = 0 end if With rstCount .AddNew !TableName = strTableName...

Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("Select * from Mytable") Do While Not rs.EOF Dim i As Integer For i = 0 To (rs.Fields.Count - 1) If rs(i).Value = "Null" Then rs.Edit rs(i).Value = ""...

What datatype is RStDevP ??? I am pretty sure thats where your problem is... instead of setting it to null try setting it like this instead. RStDevP = ""

OK - same question still. A variable needs to get its value from somewhere. For instance.... Dim MyPath as String Dim MyFileName as String MyPath = "C:\Folder\" MyFileName = "AFile.txt" If the variable is showing up null or empty like you said its becuase the value isnt getting set correctly...

Where do you set this value at ? avc_pip_daily_filename

Dim rs As ADODB.Recordsetrs set rs = New ADODB.Recordset With rs .Fields.Append("MyStringField", ADODB.DataTypeEnum.adBSTR, 255) .Fields.Append("MyStringField2", ADODB.DataTypeEnum.adBSTR, 255) .Fields.Append("MyDateField", ADODB.DataTypeEnum.adDate)...

XP NOOB The shared doc's folder is actually C:\Documents and Settings\All Users\Documents\ lol - hope that helps ya....

Hmm thats a very strange error to get. Couple of things I would do as precaution is switch your common dialog to use the API calls. If you need help see this thread - API Thread Then I would make sure that the specfication actually exists. Post back after and let us know....

huhh - I thought 0 = false and 1 = true

When you have a field name or table name that contains spaces you must enclose the field name with brackets [My Field] or [My Table] Jerry

Might try this... dim db as dao.database dim rs as dao.recordset dim rs2 as dao.recordset dim finalString as String set rs = db.OpenRecordset("Select Name from MyTable GROUP BY Name") do while not rs.eof finalString = rs("Name") set rs2 = db.OpenRecordset("Select * from MyTable where name = " &...

Think I should start a new thread "Will Design Databases For Cash" ???? j/k

If its the same message to everyone you could do this so you only have to click ok once in Outlook... Private Sub CmdEmail_Click() Dim rsEmail As DAO.Recordset Dim strEmail As String Set rsEmail = CurrentDb.OpenRecordset("QrySendEmails") Do While Not rsEmail.EOF strEmail = strEmail & ";" &...

I didnt charge him anythng. It was pretty simple stuff. I was more hoping for positive feedback:)

Just posting a follow up - Has this been delivered? Client Satisfied? Jerry