Databases
StackOverflow2013
Postsdbo
POVB using a ADO Recordset inside a vb function, checking for null
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POVB using a ADO Recordset inside a vb function, checking for null
    primarykey
    data
    text
    <p>I have some weird behavior that has me perplexed. I created a function in vb (Microsoft Word Macro version of VB) which looks like this:</p> <pre><code>Public Function isitnullorempty(newstring As String) As Boolean If IsNull(newstring) Or IsEmpty(newstring) Or newstring = "" Then isitnullorempty = False Else isitnullorempty = True End If End Function </code></pre> <p>It seems to work as expected if I create a variable and then set it to null, "", or leaving it empty. I manipulate the variable and then do MSGBOX isitnullorempty(variable) and it echos what I expect. It doesn't behave the same way when I put a recordset inside the function however. I've even tried to make a variable set it to the record set and then test it but that doesn't work either. If I try to invoke the following</p> <pre><code>'ADO query code here (This is an ODBC connection) DO While (Not oRecordset.EOF) MsgBox isitnullorempty(oRecordset.Fields("CustomerTypeRefFullName")) oRecordset.MoveNext Loop </code></pre> <p>This yields the error: Invalid use of Null. </p> <p>So two fold question. </p> <p>Is there already a vb function that exists which does what I want? Why does my code behave this way?</p> <p>Weirder yet is that if I do the test individually outside of the function, it works. </p> <p><strong>Temporary Solution</strong></p> <p>It writes more code than it needs to but since I can't seem to call the function with the recordset value I will just individually check each record according to my needs like this:</p> <pre><code> If IsNull(oRecordset.Fields("CustomerTypeRefFullName").Value) Or IsEmpty(oRecordset.Fields("CustomerTypeRefFullName").Value) Or oRecordset.Fields("CustomerTypeRefFullName").Value = "" Then MsgBox "potato" End If </code></pre>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USMallow
    1. USMallow
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    2. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. COHave you tried being more explicit and using .Fields("CustomerTypeRefFullName").Value ? Right now you're technically passing in a Field object, not its value...
      singulars
      1. POVB using a ADO Recordset inside a vb function, checking for null
      1. USTim Williams
    2. COisitnullorempty = (Len(newstring & "") = 0)
      singulars
      1. POVB using a ADO Recordset inside a vb function, checking for null
      1. USTim Williams
    3. COThat was a good guess but that didn't do it. -isitnullorempty(oRecordset.Fields("CustomerTypeRefFullName").Value) -did not do the trick but it was a good guess. I assumed if - MsgBox oRecordset.Fields("CustomerTypeRefFullName") - worked I didn't have to explicitly call it's value. I am afraid I don't understand your second comment??
      singulars
      1. POVB using a ADO Recordset inside a vb function, checking for null
      1. USMallow
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload