Re: Next Issue?!
From: Tim Ferguson (FergusonTG_at_softhome.net)
Date: 06/18/04
- Next message: Tim Ferguson: "Re: Expression in Default Value"
- Previous message: Albert D. Kallal: "Re: Deactivate Escape Key"
- In reply to: Daniel: "Next Issue?!"
- Next in thread: Graham R Seach: "Re: Next Issue?!"
- Messages sorted by: [ date ] [ thread ]
Date: Fri, 18 Jun 2004 15:46:50 -0700
=?Utf-8?B?RGFuaWVs?= <Daniel@discussions.microsoft.com> wrote in
news:45B92E77-0969-41C5-8E83-A2B7D41BA4CB@microsoft.com:
>
> thus if the greatest issue for that specific drawing number was B00 it
> would create an entry for C00, if the greatest issue for that specific
> drawing number was B03 it would create an entry for C00,
' get hold of the current drawing
Set rs = GetCurrentDrawingInARecordset()
' find the current issue letter
strOldLetter = rs!DrawingIssue
' add one
strNextLetter = Chr$(Asc(strOldLetter)+1)
' and do something with it
rs.AddNew
rs!DrawingIssue = strNewLetter
rs!DrawingNumber = "00"
rs!ID = GetNewIDNumber()
rs.Update
' okay, what next?
> if the
> greatest issue for that specific drawing number was AH00 it would
> create an entry for AI00 and so on ...
You'll probably have to write your own AddOneLetter routine if you want to
do this. Note that you will get some very strange sorting results:
A, AA, AB, AC,...AZ, B, BA, BB.... C, CA...
and so on. Are you sure you don't want to start at AA, AB, AC..., or even
" A", " B"... " Z", "AA", "AB"... and so on?
Hope that helps
Tim F
- Next message: Tim Ferguson: "Re: Expression in Default Value"
- Previous message: Albert D. Kallal: "Re: Deactivate Escape Key"
- In reply to: Daniel: "Next Issue?!"
- Next in thread: Graham R Seach: "Re: Next Issue?!"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|