Re: Next Issue?!

Tech-Archive recommends: Fix windows errors by optimizing your registry

From: Tim Ferguson (FergusonTG_at_softhome.net)
Date: 06/18/04


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



Relevant Pages

  • Re: need to find/make graphics format
    ... of vector graphics. ... One of the more straightforward way to do this is with turtle vector ... Define a set of "drawing actions" from 1 on up, ... which is the remainder of each entry. ...
    (comp.sys.cbm)
  • Re: Retrieve the next entry
    ... T2.drawingID, Table2 AS T2A ... nothing will be returned when there is no next table entry. ... Drawing Issue - Text ... mulitple entries should the process be refused and have to ...
    (microsoft.public.access.modulesdaovba)
  • Re: Next Issue?!
    ... Optional IsLastDwg As Boolean = False) As String ... 'Create an alphanumerically incremented drawing number for the ... Dim iCtr As Integer ... that it would create a new entry in that table at the next logical issue. ...
    (microsoft.public.access.modulesdaovba)
  • Re: Attn Kevin Steele, contest question
    ... Kevin Steele wrote: ... drawing for some item, do we enter each week or does our 1 entry put us in each weeks drawing? ... Good question - I'm keeping the entry pool alive for each set of giveaways throughout the whole contest, so you only have to enter once. ... Thnik about it! ...
    (alt.games.mame)