Search results for query: *

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

Hi, I got a problem am tring to convert this date field and am getting this error message. Please help Dim fldRequestReceiptDate As ADODB.Field Const DATEFORMAT = &quot;MM/DD/YYYY&quot; txtRequestReceiptDate.Text = Format(fldRequestReceiptDate, DATEFORMAT) Or is there a way to conver...

How do I unregister that dll?

Original definition: Sub Load(Optional ComponentID As Long, Optional ProductID As Long, Optional ConfigurationID As Long, Optional ComponentStatusCode As String, Optional ProductClassID As Long, Optional ProductCategoryID As Long, Optional ProductTypeID As Long) Current definition: Sub...

I have 2 Projects One Active X DLL and One Standard EXE. They are both part of one big project adn they are build into Project Group. I need to create a deployment package out of this two projects. I create the package and install the setup program but when I run the exe it does not work. Do I...

Your application is incompatible with C:\DOCUME~1\segaldx\Desktop\SEMAS4~1\Source\SemObjects\Base SemObjects.dll. The project name is the same for both applications. Change the Project Name setting in the Project Options dialog box. You can see the specific incompatibilities by returning to...