Type mismatch at end of loop on old workbook

I have an old Excel workbook, it is so old it used to have Excel 5 dialog sheets. When this loop runs, an error is thrown at Next wks:
Public Sub test()
Dim wks As Excel.Worksheet
For Each wks In ThisWorkbook.Sheets
Debug.Print wks.Name
Next wks
Set wks = Nothing
End Sub
There are 59 Worksheets; the code errors after 57 sheets.
How can i find the object(s) causing this error?

Not all sheets in a workbook are necessarily Worksheets so try declaring wks As Object

Similar Messages

AddCurrentValue date paramater Type Mismatch Error

Post Author: brentlaw
CA Forum: Other
I am using vb6 and CR XI. I have Component "Crystal ActiveX Report Viewer Library 11.0" loaded and Reference to "Crystal Reports ActiveX Designer RunTime Library 11.0". I can successfully use AddCurrentValue and AddDefaultValue for all values except date or datetime datatype. Here is how I am doing it: Assume cReport is my report object
With cReport For X = 1 To .ParameterFields.Count .ParameterFields(X).ClearCurrentValueAndRange If InStr(UCase(.ParameterFields.Item(X).Name), "BEGDATE") Or InStr(UCase(.ParameterFields.Item(X).Name), "BEGINNINGDATE") Then If .ParameterFields(X).ValueType = crDateField Then .ParameterFields.Item(X).AddDefaultValue (BegDate$) '//where BegDate$ = "Date(2008,3,22)" <TYPE MISMATCH ERROR HERE> ElseIf .ParameterFields(X).ValueType = crDateTimeField Then .ParameterFields.Item(X).AddDefaultValue (dtBegDate$) '//where BegDate$ = "DateTime(2008,3,22,00,00,00)" <TYPE MISMATCH ERROR> End If End If Next 'xEnd With
I have tried many combinations of the value of BegDate$ and still I get the Type Mismatch Error. I have run out of ideas, please help inspire me.

Post Author: Ted Ueda
CA Forum: Other
Here's a snippet from working code with the RDC:Session("oRpt").ParameterFields.GetItemByName("ExampleDateParameter").AddCurrentValue(CDate("2001/Jan/02"))Session("oRpt").ParameterFields.GetItemByName("ExampleTimeParameter").AddCurrentValue(CDate("3:45:00 PM"))Session("oRpt").ParameterFields.GetItemByName("ExampleDateTimeParameter").AddCurrentValue(CDate("2001/Jan/02 3:45:00 PM"))i.e., they're using Date objects and not String.Sincerely,Ted Ueda

Type Mismatch using Implicit Cursor

The actual error I get is
PLS-00386: type mismatch found at 'EMP_REC' between FETCH cursor and INTO variables
I have copied the code in below (taken some logic out to make example easier). I think the problem is with the EMP_REC CHILDKNOWDES declaration - I dont think I need to add %ROWTYPE? Is the type mismatch a case of trying to parse an int into a string (which i have checked for), or a case of the object being stored with attributes in dif order (alphabetical?), or is something more sinister going on?
CREATE OR REPLACE TYPE &HKDB_Schema_Name..CHILDKNOWDES AS OBJECT
KnowdeID INT,
Description varchar2(512),
Connector CHAR(1),
WhyCount INT
CREATE OR REPLACE TYPE &HKDB_Schema_Name..TEMP_CHILDKNOWDES_TABLE AS TABLE OF &HKDB_Schema_Name..CHILDKNOWDES;
CREATE OR REPLACE PROCEDURE &HKDB_Schema_Name..QueryChildKnowdes
aKnowdeID int,
aCur out sys_refcursor
AS
l_ChildKnowdeTable TEMP_CHILDKNOWDES_TABLE := TEMP_CHILDKNOWDES_TABLE();
EMP_REC CHILDKNOWDES;
BEGIN
     DECLARE CURSOR c1 is SELECT k.KnowdeID, k.Description, KnowdeAssociation.Connector
        FROM Knowde k
        INNER JOIN KnowdeAssociation ka on ka.KnowdeID = k.KnowdeID
BEGIN
     OPEN c1;
     FETCH c1 INTO EMP_REC;    --error
     WHILE c1%FOUND
     LOOP
     BEGIN
          QueryWhyCount(EMP_REC.KnowdeID, aWhyCountResult);
             l_ChildKnowdeTable.extend;
          l_ChildKnowdeTable(l_ChildKnowdeTable.last) := CHILDKNOWDES
          (EMP_REC.KnowdeID,
          EMP_REC.Description,
          EMP_REC.Connector,
          aWhyCountResult);
          FETCH c1 INTO EMP_REC;    --error
     END;
     END LOOP;
     END;
END QueryChildKnowdes;Thanks in advance,
Toby

Knowde
Name                                      Null?    Type
KNOWDEID                                  NOT NULL NUMBER(10)
VERBID                                    NOT NULL NUMBER(10)
NOUNID                                    NOT NULL NUMBER(10)
KGID                                      NOT NULL NUMBER(10)
DATECREATED                               NOT NULL DATE
DESCRIPTION                                        VARCHAR2(51
UDRID                                              NUMBER(10)
UVRID                                              NUMBER(10)
RESOURCEID                                         NUMBER(10)
VERSIONID                                          NUMBER(10)
CHECKEDOUT                                         NUMBER(1)
CLIENTKNOWDEID                                     NUMBER(10)
GENERICKNOWDEID                                    NUMBER(10)
SOURCEKNOWDEID                                     NUMBER(10)
UNEDITABLE                                         NUMBER(1)
DATEUPDATED                               NOT NULL DATE
PREVIOUSKNOWDEID                                   NUMBER(10)KnowdeAssociation
Name                                      Null?    Type
KNOWDEASSOCIATIONID                       NOT NULL NUMBER(10)
HOWID                                     NOT NULL NUMBER(10)
WHYID                                     NOT NULL NUMBER(10)
CONNECTOR                                          CHAR(1)
HOWCHAINPOSITION                                   NUMBER(10)
WHYCHAINPOSITION                                   NUMBER(10)

Highlighted button Disappearing at the end of loop?

Hey guys,
I have a simple menu with a few buttons and a short clip in a drop zone and a song in the background. All of this takes a minute to reach the end and once it reaches the end it loops but after the loop the highlight is gone and the buttons wont work ( on a DVD player).
Any suggestions will be appreciated.
Cheers,
Alex

The main problem is
var fileList = inputFolder.getFiles();
You are getting a list of all files and folders that exist in that folder, they could be text files etc.
It is better to specify the file types IE:
var fileList = inputFolder.getFiles(/\.(jpg|tif||psd|)$/i);
As this will only get a list of files that are jpg, tif or psd

Type mismatch when calling gui_download

Hello experts
i written a test gui upload and downlaod program . program gives run time error saying type mismatch in function call gui_download .
REPORT ZCR_UPLOAD_DOWNLOAD .
TABLES: SSCRFIELDS.
TYPES: BEGIN OF TY_STUDENT,
        ID TYPE ZSTUDENTDATA1-ID,
        NAME TYPE ZSTUDENTDATA1-NAME,
        COURSE TYPE ZSTUDENTDATA1-COURSE,
        DOJ TYPE ZSTUDENTDATA1-DOJ,
        ADDRESS TYPE ZSTUDENTDATA1-ADDRESS,
        END OF TY_STUDENT.
DATA : IT_STUDENT TYPE TABLE OF TY_STUDENT,
       WA_STUDENT TYPE TY_STUDENT.
DATA : FILE_NAME TYPE IBIPPARMS-PATH.
selection-screen BEGIN OF BLOCK BK1 WITH FRAME TITLE TXT-001.
PARAMETERS : P_FILE(30) TYPE C.
PARAMETERS: UPLOAD RADIOBUTTON GROUP rad DEFAULT 'X',
            DOWNLOAD RADIOBUTTON GROUP rad.
SELECTION-SCREEN END OF BLOCK BK1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
FILE_NAME = P_FILE.
CALL FUNCTION 'F4_FILENAME'
* EXPORTING
*   PROGRAM_NAME        = SYST-CPROG
*   DYNPRO_NUMBER       = SYST-DYNNR
*   FIELD_NAME          = ' '
IMPORTING
   FILE_NAME           = FILE_NAME.
START-OF-SELECTION.
IF UPLOAD = 'X'.
PERFORM GUI_UPLOAD.
ELSE.
PERFORM DATA_RETRIEVE.
PERFORM GUI_DOWNLOAD.
ENDIF.
FORM GUI_UPLOAD .
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
    FILENAME                      = FILE_NAME
   FILETYPE                      = 'ASC'
   HAS_FIELD_SEPARATOR           = '#'
*   HEADER_LENGTH                 = 0
*   READ_BY_LINE                  = 'X'
*   DAT_MODE                      = ' '
* IMPORTING
*   FILELENGTH                    =
*   HEADER                        =
TABLES
    DATA_TAB                      = IT_STUDENT
* EXCEPTIONS
*   FILE_OPEN_ERROR               = 1
*   FILE_READ_ERROR               = 2
*   NO_BATCH                      = 3
*   GUI_REFUSE_FILETRANSFER       = 4
*   INVALID_TYPE                  = 5
*   NO_AUTHORITY                  = 6
*   UNKNOWN_ERROR                 = 7
*   BAD_DATA_FORMAT               = 8
*   HEADER_NOT_ALLOWED            = 9
*   SEPARATOR_NOT_ALLOWED         = 10
*   HEADER_TOO_LONG               = 11
*   UNKNOWN_DP_ERROR              = 12
*   ACCESS_DENIED                 = 13
*   DP_OUT_OF_MEMORY              = 14
*   DISK_FULL                     = 15
*   DP_TIMEOUT                    = 16
*   OTHERS                        = 17
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
UPDATE ZSTUDENTDATA1 FROM TABLE IT_STUDENT.
ENDFORM.                    " GUI_UPLOAD
FORM DATA_RETRIEVE .
    SELECT ID
           NAME
           COURSE
           DOJ
           ADDRESS
           INTO TABLE IT_STUDENT FROM ZSTUDENTDATA1.
ENDFORM.                    " DATA_RETRIEVE

Hello sir
Thanks for quick response.
At first i declared same data type as filename field of FM f4_filename so i declare
DATA : FILE_NAME TYPE IBIPPARMS-PATH.
at selection screen the data type is
PARAMETERS : P_FILE(30) TYPE C.
then i assigned to FILE_NAME
NOW i am assignig field FILENAME   of gui_download to it but the data type of filename is string . should i covert the type of
FILE_NAME TO STRING BEFORE ASSIGNING THE VALUE PLEASE SUGGEST.
THANKS IN ADVANCE
CHITTA RANJAN MAHATO

Type mismatch error when compile under v. 10 from 8

We have an old report done about 2005, now we found a bug, so I need to fix it, but after I changed and compiled it(Vb6 app). Just error out with type mismatch.
I checked that I need to change the vb project reference to 10, and component to 10
Still does not work.
Any one can suggest?
Thanks.
Greg

Also one more thing, does crytal tells more information about which field caused "type mismatch"?
I am trying to creat a new report in 10, and add field one by one, but then I got another error saying "This field name is not known", is there any place I can find which field crytal is complaining from "Crytal Report Viewer". I just can not believe crytal is giving such unclear message. It should say "xxxx field name is not known".
Also, I tried to input old report(8) into new (10), then saying database changed needs to fix report, after fixes, apparently it caused type mismatch, is there a way to see which fields it fixed?
Thanks.
Greg
Edited by: greg chu on Dec 5, 2008 3:48 PM

Data type mismatch in criteria expression. What am I not seeing??

Once again I'm stuck! I have included the query I'm trying to run below. I have also indicated the data types of my fields.
<cfquery name="qGetOrders" datasource="manna_premier">
SELECT DISTINCT Count(ID) AS CountOfID,   - number
                             TMName,   -text
                             Sum(Quantity) AS SumOfQuantity,   - number
                             Count(NewExisting) AS CountOfNewExisting -number
FROM Users, Orders, ProductOrders
WHERE SaleDate BETWEEN #CreateODBCDate(FORM.Start)# AND #CreateODBCDate(FORM.End)#
GROUP BY UserZone, TMName
</cfquery>
When run it returns this error message....
Error Executing Database Query.
[Macromedia][SequeLink JDBC Driver][ODBC Socket][Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.
The error occurred in D:\Inetpub\mannapremier\zvp_report2.cfm: line 11
9 :                     Count(NewExisting) AS CountOfNewExisting
10 : FROM Users, Orders, ProductOrders
11 : WHERE SaleDate BETWEEN #CreateODBCDate(FORM.Start)# AND #CreateODBCDate(FORM.End)#
12 : GROUP BY UserZone, TMName
13 : </cfquery>
SQLSTATE
22018
SQL
   SELECT DISTINCT Count(ID) AS CountOfID, TMName, Sum(Quantity) AS SumOfQuantity, Count(NewExisting) AS CountOfNewExisting FROM Users, Orders, ProductOrders WHERE SaleDate BETWEEN {d '2009-10-01'} AND {d '2009-10-31'} GROUP BY UserZone, TMName
VENDORERRORCODE
-3030
DATASOURCE
manna_premier
I use the where clause on several other pages and it works. I don't understand where my data type is mismatched.
Can anyone point me in the right direction?

4) If you indeed need to select from the 3 tables Users,
Orders, ProductOrders, then you should qualify the columns
names like this, Users.ID, productOrders.Quantity, and so
on.
You also need to join on the related columns. If you forget to do that the resultset will be a massive cartesian table (huge number of records):
rows in Table1 * #rows in Table2 * #rows in Table3

Mtrr: type mismatch for d8000000 / Grub boot command line

Hi,
Dmesg is showing:
mtrr: type mismatch for d8000000,2000000 old: uncachable new: write-combining
(DL380 G5 - generic KVM/LCD Monitor)
I googled for the problem found
Disable MTRR for vesafb. iirc, there's a boot command line option to do it.video=vesafb:nomtrr
Does anyone know this problem, how to fix it, how to put this into Grub to avoid the error on next boot?
Best regards

Is that for the video card you are using? In that case you can just edit "/etc/grub.conf" and add that clause to the line beginning with "kernel" and reboot.

Calling BAPI from VBA - type mismatch error

Hi,
I am trying to retrieve data from SAP R/3 material documents to Access VBA. In the example below, the connections works fine, but when I assign the value to the parameters, fx:
MatDocItems.exports("MATERIAL_RA") = "000000000001032197",
I get an error in vba: Run-time error 13: Type mismatch.
A similar code works fine with USER_GETLIST, and I am thinking that the problem is related to the multiline check box in BAPI_GOODSMVT_GETITEMS.
Hope someone can help,
Simon
Sub MatDocItemsBAPI()
    Dim Destination_System As Integer
    Dim objBAPIControl As Object
    Dim sapConnection As Object
    Set objBAPIControl = CreateObject("SAP.Functions")
    Set sapConnection = objBAPIControl.Connection
    sapConnection.client = "xxx"
    sapConnection.User = "xxx"
    sapConnection.Language = "xxx"
    sapConnection.hostname = "xx.xx.xx.xx"
    sapConnection.Password = "xxxxx"
    sapConnection.SystemNumber = "xx"
    sapConnection.System = "xxx"
    sapConnection.Destination = "xx"
    If sapConnection.logon(1, True) <> True Then
        MsgBox "No connection to R/3!"
        Exit Sub
    End If
    Set MatDocItems = objBAPIControl.Add("BAPI_GOODSMVT_GETITEMS")
    MatDocItems.exports("MATERIAL_RA") = "000000000001032197"
    MatDocItems.exports("TR_EV_TYPE_RA") = "WL"
    MatDocItems.exports("USERNAME_RA") = "PABIT"
    returnFunc = MatDocItems.Call
    If returnFunc = True Then
        Dim objTable As Object
        Set objTable = MatDocItems.Tables("GOODSMVTHEADER")
        MsgBox ("Row count :" & objTable.ROWCOUNT)
    Else
        MsgBox "Error when accessing BAPI in R/3 ! "
        Exit Sub
    End If
    objBAPIControl.Connection.logoff
    Set sapConnection = Nothing
    Set functionCtrl = Nothing
    MsgBox "Program done!", 0, "Exit"
End Sub

wrong forum.

MS VB Run-Time Error '13': Type Mismatch

Hi,
I'm new to the forum, and just starting a trial of RH7 as my
company decides whether we'll upgrade from our X4 product or switch
to a different HAT. Before attempting to import my existing HPJ
project, I opened the sample Application Help project. Frequently
when I switch among topics, I get a Microsoft Visual Basic dialog
box that says Run-Time Error '13': Type Mismatch. I have to click
the End button to close the dialog box. Does anyone have any idea
what causes the error? I got that error also in X4 when switching
among topics in my own project (on a different computer).

Hello Brian,
I'm thrilled!!! Your clue was enough to set me in the right
direction, so after spending many hours searching for the solution
to this problem lately and in the past, it appears to finally be
solved. Initially just unchecking the other add-ins didn't do the
trick, and the situation seemed to get worse and worse--I couldn't
save files because Word kept giving me error messages that macros
were disabled (which I didn't know how to rectify), and RH kept
freezing. I noticed after a while that the RoboHelp menu in Word
would have disappeared when RH froze, and that the template would
have changed to Normal.dot. If I reattached the RoboHelp.dot
template, RH would unfreeze, but later the template would switch
back to Normal and RH would freeze again. I was initimidated to
edit the registry. Finally I came upon this page
http://personal-computer-tutor.com/NNTWord.htm
where the author Linda gave the path to the Word startup folder
where I found some templates whose filenames were preceded by
tildes (corrupt?). I deleted those and other junk and I temporarily
deleted the normal.dot template at Linda's suggestion. Since then,
the run-time errors have no longer occurred and the other problems
have not recurred. I THINK I'm back on track! I'm thrilled because
my boss encouraged me to uninstall and re-install Office and
migrate to different HAT, a time-consuming process I'd rather avoid
at least until the current release is completed. Thank you so much
for your help!!

Weird type mismatch

The problem is the following:
I've created two classes, one called Corpo and another called
KeyManager.
The Corpo class is a body in a game, like a rock, a tree, the
character, etc...
The KeyManager class manages all the key inputs and passes
the action associated to the key pressed to the object of the class
Corpo (further, i'll create a subclass of Corpo named Char or sth
like that, cuz just a char receive actions from keyboard)
so, the class KeyManager is created this way:
var km:KeyManager=new KeyManager(target);
where target is the Corpo object that will be associated to
the km
i'm using strong typing so the "target" is an object of the
Corpo class
but, inside KM class, occurs an error
i try to put the "target" reference onto a variable
predefined, as shown at the end of the message:
and then i compile, it returns:
Type mismatch in assignment statement: found Corpo where
String is required.
_TARGET=alvo
i've tried a lot and didn't find a solution
sorry if i've been so extensive
thks since now

I've tried that too.
The return:
**Error** C:\Documents and Settings\Bruno
Martins\Desktop\teste em flash\KeyManager.as: Line 9: Type mismatch
in assignment statement: found Corpo where String is required.
_TARGET=new Corpo();
**Error** C:\Documents and Settings\Bruno
Martins\Desktop\teste em flash\KeyManager.as: Line 10: Type
mismatch in assignment statement: found Corpo where String is
required.
_TARGET=alvo
Total ActionScript Errors: 2 Reported Errors: 2
I don't know why the type of _TARGET returns String. Is this
the default?

Type mismatch issue

1) create package spec with two record type. Note : 1 attribute common in both the types
CREATE OR REPLACE PACKAGE gfstm_parm_test AS
TYPE g_rec_1 IS RECORD
(ship_type_flag varchar2(1),
reason_code_flag varchar2(1)
TYPE g_rec_2 IS RECORD
(ship_type_flag varchar2(1),
cost_by_supplier_flag varchar2(1)
end gfstm_parm_test ;
2) create procedure with one of the record type. i.e g_rec_1
create or replace procedure test_rec_type_pr(i_rec_var IN gfstm_parm_test.g_rec_1) is
begin
dbms_output.put_line(i_rec_var.ship_type_flag);
end;
3) execute the below block for g_rec_1 by calling procedure test_rec_type_pr
ans: works
Requirement: The same procedure WITHOUT ANY MODIFICATION to be used for the other type g_rec_2 as input parameter and should print 'a'. But getting type mismatch issues.
How to make it to work ?
declare
l_rec_1 gfstm_parm_test.g_rec_1;
l_rec_2 gfstm_parm_test.g_rec_2;
begin
l_rec_2.ship_type_flag := 'a';
test_rec_type_pr(l_rec_2);
end;
Thanks,
Vinodh

Seems you'll have to uncomment something (as Solomon says, types are not defined to be intermixed at will)
declare
l_rec_1 gfstm_parm_test.g_rec_1;
l_rec_2 gfstm_parm_test.g_rec_2;
begin
l_rec_2.ship_type_flag := 'a';
l_rec_1.ship_type_flag := l_rec_2.ship_type_flag;
l_rec_1.reason_code_flag := '' -- or whatever ...
test_rec_type_pr(l_rec_1);
end;Regards
Etbin

DIAdem 2014 sql_execDirect() type mismatch

I need to convert a *.sud file (which currently works in DIAdem 11) to DIAdem 2014. Need your help please.
When I execute the sud file, it gave the following errors:
Error in <graphTool.sud, graphDlg> (Line: 1411, column: 3):
SU event context:
Dialog_EventInitialize(...)
cbTestSet_EventChange(...)
cbPartNo_EventChange(...)
Type mismatch: 'SQL_Execdirect'
This is the section of the code in the SUD file:
Sub cbPartNo_EventChange(ByRef This) 'Created Event Handler
'Clear all of the listboxes since a new part number is chosen
guiObj.clearLB(1)
guiObj.partNo = cbPartNo.InterpretedText
'Query for serial numbers
T1 = "Select distinct a.serial_no from test_run_meas_channels a, test_runs b where a.part_no = '"&guiObj.partNo&"' AND a.test_date = b.test_date AND a.part_no = b.part_no AND a.serial_no = b.serial_no " & rfilter &passFilter
msgbox T1
sTime = Timer
Call SQL_Execdirect("T1")    '==== LINE 1411
eTime = Timer
If logSpeed = 1 Then
    fTime = eTime - sTime
    fsoStream.Write T1 & vbCr & fTime & vbCr
End If
'Call sqlObj.SQLselect("distinct serial_no", "test_run_meas_channels", "part_no = '"&guiObj.partNo&"'"&passFilter)
Call sqlObj.SQLResultsToXBox(lbSerialNo, 1, 0)
If lbSerialNo.X.ListCount > 0 Then
    lbSerialNo.X.Selected(0) = True
End If
End Sub

I found the answer. Need to register the gfsODBC.DLL in DIAdem 2014.
http://digital.ni.com/public.nsf/allkb/AA704980F461DD9386256C000064A1BF

Data type mismatch problem

Hello:
I have an sql query that works just fine when I run it
directly in Access but when I run it on a web site, it gives me an
error "Data type mismatch in criteria expression".
I am working with transactions and this is an update of a
table within a transaction.
Here is the code:
con.execute "UPDATE tblWells SET API_Number='" &
Request.Form("API_Number") & "', Well_Name='" &
Request.Form("Well_Name") & "', Drill='" &
Request.Form("Drill") & "', Reenter='" &
Request.Form("Reenter") & "', horizontal='" &
Request.Form("horizontal")& "', Duration='" &
Request.Form("Duration") & "', OilWell='" &
Request.Form("OilWell") & "', GasWell='" &
Request.Form("GasWell") & "', Other='" &
Request.Form("Other") & "', SingleZone='" &
Request.Form("SingleZone") & "', MultipleZone='" &
Request.Form("MultipleZone")& "', NumAcresLease='" &
Request.Form("NumAcresLease") & "', LeaseSerialNumber='" &
Request.Form("LeaseSerialNumber") & "', LeaseName='" &
Request.Form("LeaseName") & "', WellNumber='" &
Request.Form("WellNumber") & "', state='" &
Request.Form("state") & "', county='" &
Request.Form("county") & "', wellheadElevation='" &
Request.Form("wellheadElevation") & "', groundElevation='"
& Request.Form("groundElevation") & "', ProposedDepth='"
& Request.Form("ProposedDepth") & "',
DistanceTownPostOffice='" &
Request.Form("DistanceTownPostOffice") & "',
DirectionTownPostOffice='" &
Request.Form("DirectionTownPostOffice") & "',
Distance_Nearest_Property_Line='" &
Request.Form("Distance_Nearest_Property_Line") & "',
DistanceNearestWell='" & Request.Form("DistanceNearestWell")
& "', UnitSpacing='" & Request.Form("UnitSpacing") & "'
WHERE WellID=1"
I can't figure why the query would work fine in Access and
not on the webpage.
Thanks.

A Checkbox does not exist as a form value if it empty which
is why your SQL
script is failing. What you need to do is create a variable
and then assign
it with the value. Assuming you are using ASP then taking one
element on
your SQL statement
SingleZone='" & Request.Form("SingleZone")
you would change it to
SingleZone = strSingleZone
Above the actual start of your SQL statement you would define
your variables
and set their empty values, and then assign them to the form
values
Dim strSingleZone = 0
if Request.Form("SingleZone") <> "" then
strSingleZone = Request.Form("SingleZone")
End if
Paul Whitham
Certified Dreamweaver MX2004 Professional
Adobe Community Expert - Dreamweaver
Valleybiz Internet Design
www.valleybiz.net
"zavidp" <[email protected]> wrote in
message
news:eo9554$dd0$[email protected]..
> Okay, I have worked further. I have isolated the fields
that are causing
> trouble and they are checkbox fields.
>
> I have been pulling my hair out all day trying to figure
out how to set
> access
> and asp so that the on/off, true/false or whatever is
passed correctly.
>
> Can anyone help?
>
> Dave
>

Data Type mismatch in for all entries.

Dear Friends,
I have a problem...please advice me for that..... I m using code as following...actually the isse is when ever i am using
    WHERE docno = it_j_1iexchdr-rdoc (along with FOR ALL ENTRIES IN) the error is occured data type mismatch.
becoz DOCNO is field of(j_1iexchdr) and RDOC is a character field of same table...but i want to get reference data..so i need to compare both field...u can undersdand my requirement in following coding.. Error line is denoted by (<----
DATA: BEGIN OF it_j_1iexchdr OCCURS 0,
        bukrs LIKE j_1iexchdr-bukrs,               " Company Code.
        exnum LIKE j_1iexchdr-exnum,               " Excise Invoice No.
        exdat LIKE j_1iexchdr-exdat,               " Excise Invoice Dt.
        kunag LIKE j_1iexchdr-kunag,               " Sold-to-party
        kunwe LIKE j_1iexchdr-kunwe,               " Ship-to-party
        rdoc LIKE j_1iexchdr-rdoc,
       rdoc TYPE j_1iexchdr-docno,
        addldata1 LIKE j_1iexchdr-addldata1,       " Reason for Issueing Excise Invoice
        exbed LIKE j_1iexchdr-exbed,               " Excise Duty
        ecs   LIKE j_1iexchdr-ecs,                          " 2%Cess
        exaddtax1 LIKE j_1iexchdr-exaddtax1,       " Shec
        trntyp LIKE j_1iexchdr-trntyp,                   " OTHR
        END OF it_j_1iexchdr.
DATA: wa_j_1iexchdr LIKE it_j_1iexchdr.
DATA: BEGIN OF it_j_1iexchdr1 OCCURS 0,
        trntyp LIKE j_1iexchdr-trntyp,
       docno LIKE j_1iexchdr-rdoc,
        rdoc LIKE j_1iexchdr-rdoc,
        END OF it_j_1iexchdr1.
DATA: wa_j_1iexchdr1 LIKE it_j_1iexchdr1.
SELECT bukrs exnum exdat kunag kunwe rdoc
         addldata1 exbed ecs exaddtax1 trntyp
FROM j_1iexchdr
INTO CORRESPONDING FIELDS OF TABLE it_j_1iexchdr
WHERE bukrs IN v_bukrs
AND   exdat IN v_exdat
AND   trntyp = 'OTHR'.
IF it_j_1iexchdr[] IS NOT INITIAL.
     SELECT trntyp docno rdoc
    FROM j_1iexchdr
    INTO CORRESPONDING FIELDS OF table it_j_1iexchdr1
    FOR ALL ENTRIES IN it_j_1iexchdr
    WHERE docno = it_j_1iexchdr-rdoc <----
I
    AND   trntyp = 'DLFC'.
ENDIF.
Pl help me as soon as possible...
Thanks & Regards,
Swapnika Panse

Hi,
In table j_1iexchdr, there are two fields
RDOC     J_1IRDOC1     CHAR     10      Reference Document 1
DOCNO     J_1IDOCNO     NUMC     10      Internal Excise Document Number
RDOC is of character type and DOCNO is of numeric type.
Your declaration for fields is :
docno LIKE j_1iexchdr-rdoc,
rdoc LIKE j_1iexchdr-rdoc,
And in the select query you are trying to fetch docno which is of type j_1iexchdr-rdoc. SO, change your declaration from
docno LIKE j_1iexchdr-rdoc,
to
docno LIKE j_1iexchdr-docno,
This should solve your problem.
Thanks,
Archana

Type mismatch at end of loop on old workbook

Similar Messages

Maybe you are looking for