Solved

Replace NULL values from database for MSFLEXGRID

Posted on 2004-09-30
9
414 Views
Last Modified: 2008-02-26
How can I replace empty or NULL values pulled from a database and display them as "Unknown" or just an empty string? I'm using MSFLEXGRID and I need it to display something when no value is present, because I am pulling data using msflexgrid.text and editting it in a textbox. Any help would be appreciated...
0
Comment
Question by:Yeavis
  • 4
  • 3
  • 2
9 Comments
 
LVL 18

Expert Comment

by:JR2003
ID: 12196011
Add 2 double quotes on the end of each field value. e.g.

Dim sMyString as String
sMyString = MyRecordset.Fields(1).Value & ""

This will just give the string a value of an empty string if the recordset value is null and won't cause any error.

JR
0
 

Author Comment

by:Yeavis
ID: 12196022
Okay I understand what you're saying.. but the column on the flexgrid could or could not contain information. Basically I have an inventory program and some information might not apply to all inventory items. When the grid is filled I need to replace any empty values.. so when the user clicks on a row to edit the information the text boxes can be filled without generating an error.
0
 
LVL 18

Expert Comment

by:JR2003
ID: 12196120
I'm not sure I quite understand what you are trying to do. When do you get the error?
You can replace empty values in a FlexGrid with anythin you like e.g.:

Private Sub Command1_Click()
   
    Dim i As Long
    Dim j As Long
    With MSFlexGrid1
        For i = 0 To .Rows - 1
            For j = 0 To .Cols - 1
                .Row = i
                .Col = j
                If .Text = "" Then
                    .Text = "f " & i & " " & j
                    .Text = "Row  " & i & " Col " & j
                End If
            Next j
        Next i
           
    End With

End Sub
0
DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

 

Author Comment

by:Yeavis
ID: 12196547
Okay the code you gave me worked! The only strange thing is that when i click on one of them I see a bunch of ROW 1 COL 1 (or whatever the row and column are) dislayed as text until the grid itself is populated from the database. Is there anyway to hide this?
0
 
LVL 10

Expert Comment

by:anv
ID: 12197130
hi Yeavis

instead of using Text property in above code.

try to use .TextMatrix(row, col) property of MSFlexGrid..
0
 

Author Comment

by:Yeavis
ID: 12197423
I tried changing the code to use textmatrix but it is giving an invalid argument error. Could you please modify the above code and show me what I did wrong? Thank you..
0
 
LVL 10

Expert Comment

by:anv
ID: 12197460
  Dim Row As Long
    Dim Col As Long
Row=0
Col=0

    With MSFlexGrid1
   while not rs.eof
      for col= 0 to rs.fileds.Count-1
      .TextMatrix(Row,Col) = Rs(Col) 'where RS(i) is the Field data for which u want  
display
     next
     Row = Row + 1
      rs.movenext
   wend

Also If uy could post ur code.. i might help u better way
           
    End With
0
 
LVL 18

Accepted Solution

by:
JR2003 earned 75 total points
ID: 12198105
In the If statement in my previous message change:

   .Text = "Row  " & i & " Col " & j

To:

  .Text = " "
0
 

Author Comment

by:Yeavis
ID: 12207097
Worked beautifully.. thank you very much for the help!
0

Featured Post

VMware Disaster Recovery and Data Protection

In this expert guide, you’ll learn about the components of a Modern Data Center. You will use cases for the value-added capabilities of Veeam®, including combining backup and replication for VMware disaster recovery and using replication for data center migration.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library.  This article will introduce you to the SC library a…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

773 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question