Recent content by odessa79

I have this code which works am tring to put in some error hadling how ca I do that? I want to check for an error before Execute statement. Private Sub cmdAddTaskToProject_Click() Set cmd = New ADODB.Command With cmd .ActiveConnection = cn400 .CommandText = "INSERT INTO...

Spellman When I do this I can see that fldReceivedDate has value but when I try to move it fldDate = fldReceiveDate its says the field is EMPTY? Function ConvertToString(fldReceivedDate As Double) As String Dim fldDate As Double Dim fldMyDate As Date Dim fldMyDateStr As String fldDate...

Am new to vb and functions . How would I create a function for date conversion? here is my code for date conversion. How can I pass a date field into a function and receive a value back into my txtfield? Dim fldDate As Double Dim fldMyDate As Date Dim fldMyDateStr As String fldDate =...

Thanks it works

Any examples?

Hi, I have a field coming back from the database which is Numeric 8 position (19930203) I want to convert it into 02/03/1993 how would I do that?

Am tring to join to files in vb here is my code what am I doing wrong? Set cmd = New ADODB.Command AdoLoadTasks.ConnectionString = cn400 AdoLoadTasks.RecordSource = "SELECT * FROM ENPRAWD02.PRJTSKPF a " _ & "JOIN ENPRAWD02.TSKPF b On a.tsknbr =...

Thanks Guys It works now

Anybody has a suggestion? Set cmd = New ADODB.Command With cmd .ActiveConnection = cn400 .CommandText = "SELECT max(PRJNBR) FROM ENPRAWD02.PRJPF" .CommandType = adCmdText Set objRecordset = New ADODB.Recordset objRecordset.CursorLocation = adUseServer...

I made some changes and now i get the type 13 mismatch on this line any suggestions? On Error GoTo errorhandler gRSEmpData!EMPID = rectemp2!yaan8 hldName = rectemp2!YAALPH gRSEmpData!Name = hldName Select Case rectemp2!YAPAST - THIS LINE IT BOMBS Case "D" gRSEmpData!status...

Zemp I tried adding a space did not work this is from which line it executes the Call PrintError routeen If strEmpid > &quot;17000000&quot; And strCheck = &quot;false&quot; And rectemp2!YAPAST <> &quot;0&quot; Then

I get this error message and I can't figure out why here is the code where I get it. '-------------------------- Private Sub Find_Employee() '-------------------------- On Error GoTo errorhandler Dim SQL As String SQL = &quot;select * from [Employee Data Table]&quot; & _ &quot;where...

CCLINT thanks but I don't think that is what am looking for. One of my users are getting this error message &quot;run time error -2147024770 Automation error&quot; and I do not know what to do about it yet. If you have any suggestions I would greatly appriciate it.

MeonR Ddi you get this run time error -2147024770 Automation error resolved? If yes can you give a solution how to fix it? Thanks

Now am getting type mismatch error 13. What could that be? I am pulling data out of the fldRequestReceiptDate field in yyyymmdd format