Visual Basic :: Data Report

Data Field (Empty) Not Found
I am trying to create a limited dynamic data report - I scan the field names in from the recordset and then fill the text controls - data field properties with the names scanned in etc.

Unfortunatelly some times there are not enough field names to fill all the text controls and so I get the data field (empty) not found message.

Does anyone know how to assign a null value to a data field, or some way round it ??

On error resume next does not work

Cheers
Paul

RESOLVED: (it Too Long Now)data Report Data Feild Empty Not Found
I am getting this Error while generating the report
"Data feild empty Not found"

my query is

SELECT R.* , S.* , SLC.DLEFT, SLC.CLASS_ID, r.reg_ph_res_code//' '//r.reg_ph_res as reg_ph ,
r.reg_ph_res_code//' '//r.reg_ph_res1 as reg_ph1 ,
r.reg_ph_off_code//' '//r.reg_ph_off as reg_ph_off ,
r.reg_ph_off_code//' '//r.reg_ph_off1 as reg_ph_off1 ,
s.gph_res_code//' '//s.gph_res as g_ph,
s.gph_off_code//' '//s.gph_off as g_ph_off,
r.fname//' '//r.mname//' '//r.lname as sname
FROM REGISTRATION R, STUDENT S, SLC
WHERE R.REGISTRATION_ID = S.REGISTRATION_ID
AND S.STUDENT_ID = SLC.STUDENT_ID (+)
and s.student_id = 102400
(this query is correct it work in pl/Sql interface (oracle) )

in this query many feilds are empty ..........
if error is due too this then How can I prevent.

I am using DATA Environment, and its s Single query (not hierarichal Records)

Edited by - haahoou on 2/6/2004 12:36:29 AM

SQL - Select All Records From Table Where Field Is Empty / Not Empty ?
I have a problem here in that I dont know how to execute this SQL query as I am not sure of the correct syntax...

I am trying to select all records from a recordset (populated by a table), where a particular field is empty...

So I guessed...

db.Execute("SELECT * FROM CUSTOMER ORDERBY CustomerID WHERE CustTelephone = "" ")

but its not working...

Similiarly, I need a query that returns all records where a certain field is filled, I have no idea how to do this one...

Guessed at...

db.Execute("SELECT * FROM CUSTOMER ORDERBY CustomerID WHERE CustOrder = "'(value)'" ")

(where '(value)' would mean any value at all)

funny enough its not working either

Can anyone please help ?

Thanks

Hau To Determine An Empty Data Report?[solved]
how may i know that my data report is empty or not.
example if i want to make a statement if my datareport is empty..
any help would do.

Vb6 With Active Report - Cannot Call Other Report Data Field
Below is the coding:
Problem is this sentences: rptAmt2.Fields("Amt3").Value = 0
It cannot identifier rptAmt2 which another report data field.
Can anyone help me, thank you.

Dim rptAmt As New rptFinanceAmt
Dim rptAmt2 As New rptFinanceAmt2

If Fields("Amt3").Value = 0 And rptAmt2.Fields("Amt3").Value = 0 And rptAmt.Fields("Amt3").Value = 0 Then Fields("Amt3").Value = ""

ElseIf Fields("Amt3").Value = 0 And rptAmt2.txtAmt2 = Empty And rptAmt.txtAmt <> Empty Then Fields("Amt3").Value = 0

ElseIf Fields("Amt3").Value = 0 And rptAmt2.txtAmt2 <> Empty And rptAmt.txtAmt = Empty Then Fields("Amt3").Value = 0

ElseIf Fields("Amt3").Value = 0 And rptAmt2.txtAmt2 <> Empty And rptAmt.txtAmt <> Empty Thenb Fields("Amt3").Value = 0

End If

How To Load An Image On A Data Report Where The Source Is From A String Data Field?
In my table, I included a field name pictfile of string data type. It represents the path of the image file of a particular record. It is quite easy to load it on the form but no idea how to load it on a report since the image object on the data report has no data connection to a table.

Please help me to connect the string data path of to the image object of the data report!!!

Sort Field In Data Report
I am trying to get the field in my data report that displays the date that the record occured. However, the user can input a record for last year at any time by changing the date. The problem is that the record goes to the top of the report, whereas i want it to go in order of date. I am not using a data environment so i can't simply use the order thing. Anyone know how to solve my problem?

How Do I Reformat A Field On A Data Report
I have a data report that is tied to the data environment. I want to reformat one of the fields pulled from the data environment. I need the field to displayed minus the first 6 characters and the last 6 characters. I use a mid(field,6,13) on my listviews but I can't figure out how I can do this with a data report.

Any help would be greatly appreciated.

Data Report - Numeric Field
How do you control numeric printing inside the data report?
e.g. I do not wish to print the zero. Can't find any suppress zero function inside the dataformat.

regards

Data Report Change Field Value
Hi guys,

I am using a datareport without the dataenvironment and the report is working fine. I am not using any grouping so dont have to use a shape statement.
I have a button calling rpt.Show and on the report initialise event i have the following code:

Private Sub DataReport_Initialize()
Dim lsSQL As String
Dim oConn As New ADODB.Connection
Dim oRS As New ADODB.Recordset

oConn.CursorLocation = adUseClient
oConn.ConnectionString = General.con
oConn.Open

lsSQL = ""
lsSQL = lsSQL & "SELECT * from tw_customer "
lsSQL = lsSQL & "JOIN tw_product_by_customer "
lsSQL = lsSQL & "ON tw_customer.cust_ref = tw_product_by_customer.cust_ref "
lsSQL = lsSQL & "WHERE active = 1 "
lsSQL = lsSQL & "ORDER BY tw_customer.cust_ref "

oRS.Open lsSQL, oConn, adOpenForwardOnly
Set rpt.DataSource = oRS


End Sub

Ok so basically, I have 3 text boxes on the report design. Depending on one field ( called frequency) I want to put an X in one of the boxes.

I tried the following code in the Initialise section of the report


    If oRS("frequency") = "A" Then
        rpt.Sections("Section1").Controls("lblfreq_A").Caption = "X"
    End If
    If oRS("frequency") = "B" Then
        rpt.Sections("Section1").Controls("lblfreq_B").Caption = "X"
    End If
    If oRS("frequency") = "F" Then
        rpt.Sections("Section1").Controls("lblfreq_F").Caption = "X"
    End If

Now I am getting an X in the first box, but it is in the same box for every page of the report, even though I know that the frequency changes from record to record.

The 3 boxes are in the detail section of the report but only seem to hold the value of the first/last value for all records.

I am presuming the above code is in the wrong section, or the code needs called for every row returned from the data set. Does anyone have any ideas? Any help would be great.

Thanks.

Edited by - toutski on 9/22/2005 8:59:02 AM

Data Report Field Total
im using a dsn-less connection on my application. and im using data report without data environment. my problem is how am i going to make a running computation (sum) for a certain field in ms access database. below is the sql im using

Set rs = cs.Execute("select * from truck_hist where truck='" & CmbTruck.Text & "' and body='" & TxtBodyNo.Text & "' and date>=#" & Calendar1.Value & "# and date<=#" & Calendar2.Value & "# order by date asc")

now i want to make a running total for price field with the above condition. can somebody help me?

How Can I Format A Sum Field On A Data Report?
I have created a data report and one of the problems is how to format a sum field in the way I want? For example: I have a column named BillingUnits which includes duration in seconds and another one name CDuration which includes thesame duration in a string format like this "00:03:45" (hh:mm:ss). This specific field, in the first column has this value: "225" which equals exactly the same duration but it is in seconds. What I want is to display the sum on the report in the format (hh:mm:ss). I have two solutions to do it: First, to sum the fields of column with seconds and format the result. But how can I format a function on a data report. Second solution is to sum the column which has the right format, but I think I cannot add strings as time format? Any other solution???
:-(

Michael Vlastos
Automation Engineer
Company SouthGate Hellas SA
Development Department
Athens, Greece

Data Report On Group Field
Hi all.

Sorry to trouble your precious time. I am facing a problem which

Currently I had created a table in MS SQL
1. Pcode Char(15)
2. Linenum Smallint(2)
3. Itemno Char(24)
4. Promo Char(6)
5. Normal Char(6)
6. Comment Char(20)
7. date Decimal(9)

the sample data is
<1> <2> <3> <4> <5> <6> <7>
"P1" "1" "15225" "Budget" "Full" "end @ 20 Mar" "20040309"
"P1" "2" "15226" "Mid" "Full" "end @ 20 Mar" "20040309"

Now I had managed to post the data for table field2 to table field5.

What i am encountered is... I cant pull the "Pcode" and 'Comment" as a group item to the main screen.

I am thinking of using SQL statement to group them up and sent the group "pcode" and "comment" to Datareport when user click on "print" command.... but wat i had on hand which is only the section by section...

could any one at the forum can enlighten me this ?

I had attached the view in Powerpt with Winzip.format

Many thanks,

Lawrence

Data Report....Display Srno(Rec No) As Field
Hello,

I am having datamember of my data report as command1 which is an SQL statement. I want to display the recno ( rowno/srno) as one of the fields. How to do it ? I am using Access as the back end.

Assuming that my sql is something like

select name from emp;

My report should look like below

eg
srno name

1 abc
2 bcd
3 efg

Any helping hands ? I thank u for reading this.
Kaustubh

Data Report: Percentage Field Problem
I would like to have a percentage field in the details section of my data report. My problem is I have no idea how to do this.

The percentage is calculated with rptTxtFieldNumber / rptTxtTotalFieldNumber . The rptTxtTotalFieldNumber is an
aggregate (SUM of rptTxtFieldNumber) field in the Group_Footer section of the report. This will then give me a percentage for each record.

Thanks

ACCESS: Collect Data From Field In Report
Hi!

I am trying to get a data field from a report to be able to make a loop and copy files with the same name as the data field I am trying to retreive.

My problem is that I can not retreive the data. The error message is.
"Can not find the field 'Component_number' refered to in your expression"

Code:
Private Sub Command46_Click()
On Error GoTo Err_Command46_Click

Dim stCreateCutsheetDirectory As String
Dim stCreateCutsheetDirectoryQuoteID As String
Dim stCreateCutsheetDirectoryJobName As String
Dim SourceFile As String
Dim DestinationFile As String
Dim stringPN As String

Me.[Quote_ID_hidden] = Me![CREATE ORDER subform]![Quote_ID]
Me.[Job_name_hidden] = Me![CREATE ORDER subform]![Job_name]

stCreateCutsheetDirectoryQuoteID = Me![Quote_ID_hidden]
stCreateCutsheetDirectoryJobName = Me![Job_name_hidden]

stCreateCutsheetDirectory = stCreateCutsheetDirectoryQuoteID & ", " & stCreateCutsheetDirectoryJobName

MkDir ("C:Documents and Settingsycitroncutsheets" & stCreateCutsheetDirectory)

SourceFile = "C:Documents and Settingsycitroncutsheets" & "1400000492770.pdf"
DestinationFile = "C:Documents and Settingsycitroncutsheets" & stCreateCutsheetDirectory & "" & "1400000492770.pdf"

stringPN = "hej"

Do While stringPN <> vbNullString
stringPN = Reports![CREATE ORDER report]![Component_number]
SourceFile = "C:Documents and Settingsycitroncutsheets" & Me.[Component_number] & ".pdf"
DestinationFile = "C:Documents and Settingsycitroncutsheets" & stCreateCutsheetDirectory & Me.[Component_number] & ".pdf"
FileCopy SourceFile, DestinationFile
Loop

DoCmd.RunCommand acCmdRefresh

Exit_Command46_Click:
Exit Sub

Err_Command46_Click:
MsgBox Err.Description
Resume Exit_Command46_Click

End Sub

Please help!!
Thanks,

Data Report Bound To DBase Field
I have a Data report that has several rptTextBox's bound to fields in a SQL 7 data base via the datafield property of the rptTextBox. Some off my SQL 7 database fields have a value of zero. If the SQL 7 field has a value of zero, I do not want to display the zero on my report. Is it possible to bind the rptTextBox via code so that I can write code to prevent the fields with zero from showing up on my report.
I deleted the dbase field from the rptTextBox Datafield property and attempted to assign the rptTextBox via code. However, I get an error" Data Field not found

Here is the code

If rs!number_bag_hold <> 0 Then
DataReport1.Sections("Section1").Controls("text7").DataField = rs!number_bag_hold
Else
DataReport1.Sections("Section1").Controls("text7").DataField = ""
End If

Add A Dummy Field To Table Data For Report

I have a table with a Field call Flag

This field is

A=ACTIVE
F=Flagged
D=Deleted
E=Expired
X=Availble ( for Reuse )

when I print report I can

SELECT Tname, Flag from MyTable Order by Flag, SortKey

(Plus a grab bag of other fields....)

and can get it to print ok

BUT the Flag field on report , naturally , shows only One Letter

and My Users , NATURALLY , want it to show full wording

Bill Brown   Active
Tom Smith    Deleted
Mary Smith   Active
Don Vole     Expired

Can I add ( and if so How ) a dummy field ... then put the full flag into the dummy

and print the report using dummy not the Flag Field

I have tried
SELECT Tname,Tname as DumyFlag , Flag from MyTable Order by Flag, SortKey

THEN run it through a loop and replace !Dummyflag with Value Based on Flag

ALAS ...when report finishes I have a Table where !Tnames are all replaced by flag values .. (Did Not Use .Update )

am using DataReport to generate and print the report

With Thanks

MS Access XP: Create A Sum Field In Data Report.
I have developed a simple data report in my access application. I have a simple "Report Header" section with some titles and a "Body" section where I show fields coming from my recorset.
so far, so good.

Now I created a field inside "Report Footer" section, the field is a text box and its ControlSource is: "=Sum([one of my integer fields])"
but, when I open my report I get the error
Error 2589: Unvalid expression: "Sum([Distr.Cop])"

Why?

One Of The Field As A Page Header Of Data Report
In order to avoid repetition of printing of a same information , I want to use that field as a page header of the data report. I tried to place that fields in page header section but I failed. Pls any one of u gurus out there help me.

Thanks Premlatha for helping me. I was badly stuck in this. B'cos my client was insisting to avoid duplicate printing. Thanks to u for helping me in fulfilling this requirement.

Placing A Bound Field In The Data Report Header
i need to display the year for a report in the data report header. the year is in the recordset. how can i do this

pls help

Edited by - Shandy on 4/22/2004 8:57:14 PM

Data Report : Child Command Field In Group Footer
lets say I have query
select count(studntid), marks_obt, subjectId from result
where grade <> 'F'
and sectionid = 'SE06BLU'
and year = '99-00'
group by marks_obt,subjectID
(this query is my child command, I am using shape statemnet)

Now can I use count(studentId) in the group footer........................?????????
and how if it is possible.............

Edited by - haahoou on 2/10/2004 1:59:30 AM

Browsing Data In Crystal Report Returns Nothing From An Expression Field In Query.?
Hi..

I use a Access Query to generate a report. The Query has a field which uses an expression display a field from another table into the query.

It works all right and I have the field from the other table displayed in the Query!

The problem is that when I use Crystal report to generate my report from the Query and I select the expression field and browse data, it returns nothing !!

Any suggestions??

Crystal Report Doesn't Show Field's Data With Type Of Big Integer Nad Shows 0
I have a field in SQL server 2000 with type of big integer.If this field contains 10 digit number or less I can view it in my report else if It contains >10 digit number it doesn't show field's data and shows 0.How can I solve this problem?My crystal report version is 8.5.
Thank you

Data Report Changing Position Of Text2 Based On Length Of Text1 Field While Pringing.
Data report changing position of text2 item dynamically based on length of text1. I am using dataenvironment as a record source in the report for example,

10 start text 2 from here
10.10start text 2 from here
10.10.10start text 2 from here
10.10 start text 2 from here

It is possible ?.

Thanks,

Empty Field?
Hi

I have a Data Grid Control that is connected via ADODC to a Microsoft Access DB. I want the user to be able to add, modify, or delete records on the grid. This all works fine, except when the form opens up, the first field of the first record is blank with the cursor blinking there. For some reason it sticks the cursor there and erases what was previously in that field.

Does anyone know how to remedy this?

Thanks!

Empty Field
What is the value of an empty field? I tried testing a recordset for empty fields like this...

Code:
if rsTabSearch.Fields("FileProperties") = "" then
'code here
end if
if rsTabSearch.Fields("FileProperties") = Null then
'code here
end if

but none are working... Any thoughts on this?

How To Tell A Field In A Recordset Is Empty
Ok I am implementing a database application. I am working with MaskEdBox this is how i have it working, one form comes up and the user types in the name they want to search for, then another form pops up with the matches in a listbox, then u click on the name u want and it jumps back to the orignal form, but the problem is i need to know how to tell in code if a particular field in recordset is empty. Like for instance
I am searching for Jimmy I find his name on the list and i click on his name, how can i tell before populating the form with his info if the recordset has nothing for his address or so on. Any help would be greatly appreciated

here is what i have

If rs!Workphone = "" Then
mskphone.Mask = mskphone.Format
Else
mskphone.Text = rs!Workphone
End If

How To Figure Out The Empty Field?
I have following code to read one text filed(atafromemail.txt), and change the pattern to another text file(SwitchPattern.tex). finally, convert to excel
datafroEmail.txt:
Total Amount: $8.95 USD
Currency: U.S. Dollars
Transaction ID: 32238683KU050193G
Item Number: 30524117856
Buyer: Betsi Coleman
Buyer's User ID: betsitwo
Message: bla ...
betsitwo's CONFIRMED Address: 1234 St.
.
.

SwitchPattern.txt:

"$8.95 USD","U.S. Dollars","32238683KU050193G","30524117856","Betsi Coleman","betsitwo", "bla ...", "1234 St."

My problem is sometimes data from email no the Message line at all.
This will cost problem in switchPattern file like the address line will move foward to Message field and so on. If there were more than one record, the whole thing will mess up. Anybody help?
<vbt>
Private Sub TextSwitch()
Dim txtAmount, txtCurr, txtTranID, _
txtNum, txtBuyer, txtUserID, txtmessage, txtAddress, xR As String
Dim i, j
Open App.Path & "SwitchPattern.txt" For Output As #1

Open App.Path & "DataFromEmail.txt" For Input Access Read As #6

Do While Not EOF(6)
Line Input #6, xR 'Read a line
If Left(LTrim(xR), 14) = "Total Amount: " Then
txtAmount = Right(xR, Len(xR) - 14)
Write #1, txtAmount,
End If

If Left(LTrim(xR), 10) = "Currency: " Then
txtCurr = Right(xR, Len(xR) - 10)
Write #1, txtCurr,
End If

If Left(LTrim(xR), 16) = "Transaction ID: " Then
txtTranID = Right(xR, Len(xR) - 16)
Write #1, txtTranID,
End If

If Left(LTrim(xR), 13) = "Item Number: " Then
txtNum = Right(xR, Len(xR) - 13)
Write #1, txtNum,
End If

If Left(LTrim(xR), 7) = "Buyer: " Then
txtBuyer = Right(xR, Len(xR) - 7)
Write #1, txtBuyer,
End If

If Left(LTrim(xR), 17) = "Buyer's User ID: " Then
txtUserID = Right(xR, Len(xR) - 17)
Write #1, txtUserID,
End If

If Left(LTrim(xR), 9) = "Message: " Then
txtmessage = Right(xR, Len(xR) - 9)
Write #1, txtmessage,
End If

j = InStr(1, xR, ":", 1)
i = InStr(1, xR, "CONFIRMED Address:", 1)
If i <> 0 Then
If Mid(LTrim(xR), i, 18) = "CONFIRMED Address:" Then
txtAddress = Right(xR, Len(xR) - j)
Write #1, txtAddress
End If
End If

Loop
Close #6 'Close
Close #1

End Sub</vbt>

Thank you!

Fang

Filter For Empty Field In ADO
I want to filter a Recordset for two cases of a date field: either empty or not.

On other fields, I am using:
rs.Filter = "FieldName = Whatever" which works fine.

How do I specify FieldName = "" or Fieldname <> ""?

As you can probably tell, I am new at this :-)

Thanks!

How To Look For An Empty Or Null Field ?
Hi,

I´d like to:
Connection.execute ("SELECT * FROM TABLE WHERE blabla = Null ").

Why doesn´t it work ?? It´s a DateField.

Any ideas ??

How To Proof If A Field Is Empty ??
Hellllooo,

i want to proof if a table field is empty. I tried this :

If !State = "" Then
Text3(2).Text = "No Content !"
Else
Text3(2).Text = !State
End If

Does anybody know a working solution ??
Mine causes error: illegal use of null. Means that !State is empty and Text3(2).Text doesn´t like empty fields or content.

Please help. Thanks

Problem With Empty Field ..
Im trying to update a table in my database.. and im using ".Find" to locate the column to be updated..

but it must only update if txt_name = fld_name and lbl_date = fld_date and fld_time_out is empty ..

my problem is , the fld_time_out = ' " + empty + "'" doesnt work..

any ideas or alternative i can use ? .. thanks..

please check my code:

Adodc1.Recordset.Find "fld_name = '" + txt_name.Text + "'"
Adodc1.Recordset.Find " fld_date = '" + lbl_date.Caption + "'"
Adodc1.Recordset.Find " fld_time_out = '" + empty + "' "

If Adodc1.Recordset.EOF Then
MsgBox ("..")
Else

With Adodc1.Recordset
.Fields!Fld_time_out = lbl_time
.Update

End With

MsgBox ("record saved")

Adodc1.Refresh

End If

Updating An Empty Field
Im trying to update all my fields in Access where the fld claimnumber is blank

Set mrstDWCActivityLog = GdbDWC.OpenRecordset("tblactivitylog")
GdbDWC.Execute "UPDATE tblactivitylog " & _
"SET fldClaimNumber='" & dbcClaimNumber.BoundText & "' " & _
"WHERE fldClaimNumber='" & "" & "'"

Im Just not sure how to find an empty field.
can anyone help

Refering To An Empty Field?
I can't figure this one out, how would you refer to an empty field in the database? Closest I can come with is something like:

Code:
If datLeague.Recordset!Name="" then
Something along those lines... except databases obviously can't be refered to as "".

What's the code you need to make this reference?

Select Where Field Is Empty ?
Hi everyone ...
Using VB6, Access2000 and ADO, I need to do what should be a simple select statement.
In plain english I need to Select everyting from table1 where field3 is NOT empty.
The field data type is Text.
When I use the SQL below, I get a syntax error.
Here is the SQL ... any help?

Code:
strSQL = "Select * From Table1 Where Field3 <> """

SQL For Access - Where Field Is/is Not EMPTY
How can I query where a field is either empty or not empty?

I would normally do...

VB Code:
recordset.Source = "SELECT * FROM table WHERE [FIELD] = 'xyz';"

but obviously in this case i want to do it so it'll bring back the records if the field is zero length and another for if it is not zero length. Anyone know how to do this?

thanks.

How To Test A Field Is Empty?
Hi there,

Could someone tell me how to test a field is empty or not? Thanks

K

How Do I Evaluate An EMPTY RS Field?
I have a SELECT that brings back records but sometimes one of the Fields in the RS will be empty. So, whenever I use the code below on an empty RS field value I get the error, "can not be found in the ordinal", message. How can I just check if the RS field value has something in it?

Code:
if len(rs("ResponseTest")) = 0 then

thanks

Populate Empty Field
Using code- Is there anyway to enter a value into an empty field in a recordset? Maybe by using an If...Then statement???

Thanks for help
paul

Characterization Field Empty
This probably isn't the correct forum, but I'm a VB guy so....

I'm using the Indexing Service for searching through the contents of PDF documents.  A couple of the fields I want to get data from, Characterization and DocSubject, are returned as Null.  I set the cached = true for these properties, made sure the Generate Abstracts was set to True for the Indexing Service (catalog inherits this value), restarted the service, and initiated a full rescan of all directories of the catalog.

According to articles I've read I understand it may take some time before the word lists are updated, but it's been several hours and I only have a small amount of test documents in the directories (about 30 files, most are about 50KB, the biggest is about 500KB).

I did find one web article that mentioned a GenerateCharacterization attribute in the Registry that should be set to 1.  Of the three attributes I found in the Registry with that name, one was set to zero.  So I set that to 1, but it didn't make a differnce.

Here's a sample of my code:
CODE    Dim rs As ADODB.Recordset
    Dim strConn As String
    Dim strSearch As String

    On Error GoTo ErrHandler

    Set rs = New ADODB.Recordset
    strConn = "Provider=MSIDXS;Data Source=MyCatalogName"

    strSearch = "SELECT Size, DocTitle, DocSubject, FileName, Characterization from SCOPE()"

    rs.Open strSearch, strConn

    'rs("Characterization") and rs("DocSubject")
    'are both Null!

Saving A Empty Textbox To A Db Field
im getting the zero-length string error, this isn't a problem when im saving a new record, i just dont update those fields that are blank,, but when im trying to edit a field i need to remove the old data and replace it with the new data... even if the new data is "".... how can i take an empty string and save it to a field?

Empty Field Causing A Problem
Just as one problem gets sorted up crops another

I've got a small database with 4 records in it (see attachment) but on the fourth record the person didn't have a company name so I left the field blank

I expect to have many records with blank fields in them but my program doesn't like them being blank and comes up with some 'invalid use of null' error

Instead of running through and putting the data into the textboxes for each record and just that record I think its trying to put into each textbox the data that comes next in the database - if that makes sense

Any Advise?

How To Check An Empty Field On A Form?
Here's the code I have for a text field on my form.

If Len(.Text1(5).Text) > 0 Then
If Not IsDate(.Text1(5).Text) Then
MsgBox "The received date must be a valid date."
Exit Sub
End If
End If

I always gives me the msgbox error even when I don't put anything in that field. I can't figure out why. The field's default text is empty, so I don't understand how it's getting inside that first if statement. Anyone have an idea or a better way to do this? thanks.

Return An Empty String From A Ado Field Containing A Null Value
Is there a way to return an empty string from a null ado field in Visual Basic 6? I use nz() in Access, looking for a similiar method.

Recordset Field Value Empty When Using CursorLocation = AdUseServer
Greetings!

Here's my problem:

I have a recordset that ABSOLUTELY needs to have server side cursor.
If I do something like:

Code:
Dim oConn as ADODB.Connection
Dim oRs as ADODB.Recordset
Dim sSql as String
Dim sValue as String

sSql = "SELECT * FROM Item WHERE pkIdItem = 1"

Set oConn = New ADODB.Connection
oConn.CursorLocation = adUseServer
Set oRs = oConn.Execute(SQL)
While Not oRs.EOF
sValue = oRs("The75thField")
'// Here, I grab all the 75 fields from the recordset, or do whatever I need
'// to do with the values.
Wend
Set oRs = Nothing
Set oConn = Nothing
I have lots of fields that are "Empty" (not null or "").

Does anybody have any idea how to fix this problem? This particular behavior always happens when I am using tables that have lots of fields inside. Usually, I just fix it by setting the Cursor Location to "adUseClient", but for a reason of "memory managing" and speed of my application (kind of...), I absolutely need to use a server side cursor.

Thanks in advance!

Validate The Empty Field Based On Tab Index
Code:

How can i validate the empty field based on tab index ?? The following code only can found out the empty field randomly.

Public Function ValidateEmptyField(formName As Form) As Boolean
ValidateEmptyField = False
Dim ctrl As Control
For Each ctrl In formName.Controls
If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Or TypeOf ctrl Is RichTextBox Or TypeOf ctrl Is ImageCombo Then
If Not ctrl.Visible = False Then
If ctrl.Text = vbNullString Then
MsgBox "Please Fill up the " & ctrl.Tag, vbCritical, "Save Failed"
If ctrl.Enabled = True Then
ctrl.SetFocus
End If
ValidateEmptyField = True
Exit Function
End If
End If
End If
Next

End Function

Thanks for any reply !!!

Data Report - Empty Field

I created a data report with ADO and the record set is prepared on the fly. Some of the columns in the record set will be empty. But the data report does not allow me to have empty fields. How do I have it ?Thanks in advanceJames