Form Function/Macro Help

[hughed00]

I have to calculate a check digit from a 12 digit code. Each digit needs to have an arithmatic operation done on it.

My first hurdle, how do I get the 12 digit number into another table with each digit in its own field (so I can then go to work on them).

I thought I will likely have to convert to text, but really don't know where to start.

Thanks

 

[nickjar2]

try this:

dim i as integer
dim db as database
dim rs as recordset
dim sValue as string

set db = currentdb
set rs = dp.opendatabase("Table",dbopendynaset)
sValue = "12 digit code"

for i = 1 to 12

rs.addnew
rs.fields(0) = mid$(sValue,i,1)
rs.update


next i

Nick

 

[jebry]

Hi!

If the number is entered on a form you can use this code in the after update event procedure:

Dim strCheckNumber As String
Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("tblDigits", dbOpenDynaset)

strCheckNumber = YourTextBox.Value

With rst
.AddNew
!FirstField = CInt(Mid(strCheckNumber, 1, 1))
!SeconField = CInt(Mid(strCheckNumber, 2,1))
etc.
.Update
End With

hth
Jeff Bridgham