While performing aircraft electronic testing / maintenance, error codes are collected from various electronic systems. The error codes are listed by system along with a 4 digit code IE 4C00. Now to decifer this code I have to break down each position into binary IE 4C00 is equal to 0100110000000000 binary. I successfully completed this by using 2 text boxes, one to enter the code and the other I use string concatenation and the the dlookup function. All this works fine, however here is my problem. I need to breakdown the 15 digit binary code and return the position (0-15) containing a 1. So basically 0100110000000000 = error code 1,4,5 (because position 1 4 & 5 all contain a 1). heres a quick example how I have everything layed out.

Combobox( chose my system ) - Ref SystemT
Textbox ( type in short code ) unbound
Textbox ( outputs binary 15 digit code )- concatenation & Dlookup - ref BinaryT
Listbox ( Use critera to filters error list by system and position number (0-15)) -ErrorT

BTW has the access image seminar been completed? would like to purchase.

---

Reply from Richard Rost:

Gary, that's a good one. I would create a custom function to figure out that error code. Something like this:

Public Function ErrorCode(BinaryCode As String) As String
    ErrorCode = ""
    For X = 1 To Len(BinaryCode)
        If Mid(BinaryCode, X, 1) = "1" Then
            If ErrorCode <> "" Then ErrorCode = ErrorCode & ","
            ErrorCode = ErrorCode & X - 1
        End If
    Next
End Function

Throw that in a module, and now you can call it from inside your forms, reports, and queries. Hope this helps.

Yes, the Imaging seminar is finished.