Generating a number...simple but

Collapse
This topic is closed.
X
X
Collapse
 
  • Page of 1
  • Time
  • Show
Clear All
new posts
Previous template Next
  • sparks
    #1

    Generating a number...simple but

    ok I was generating a combo of things into a unique identifier.

    Private Sub generatenumber( )
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim StudentNumber As Integer
    Set db = CurrentDb
    Set rs = db.OpenRecordse t("SELECT Max(qryParticip antids.gennumbe r) AS
    MaxofGenNUMBER FROM qryParticipanti ds;")
    If rs.RecordCount > 0 Then
    rs.MoveFirst
    Me.GenNUMBER = rs!maxofGenNumb er + 1
    Me.StudyID = "S" & Format(Me.GenNU MBER, "0000")
    End If
    rs.Close
    Set db = Nothing
    End Sub

    so they get a studyID sequence
    S0001
    S0002
    S0003

    this worked fine but now they want to get a studyID
    S0501
    S0502
    S0503

    how can I get this with an empty recordset.
    since the IF is not really needed since you call this on new record
    the count will always be 1.

    thanks for any ideas...this is weird
    why do they always want something that to me makes no since.

    Jerry


    Tags: None
    • Tom van Stiphout
      #2
      Re: Generating a number...simple but

      On Fri, 24 Mar 2006 14:13:30 GMT, sparks <jstalnak@swbel l.net> wrote:

      How about:
      Me.GenNUMBER = rs!maxofGenNumb er + 1
      If Me.GenNumber < 501 then Me.GenNumber = 501
      Me.StudyID = "S" & Format(Me.GenNU MBER, "0000")

      -Tom.

      [color=blue]
      >ok I was generating a combo of things into a unique identifier.
      >
      >Private Sub generatenumber( )
      >Dim db As DAO.Database
      >Dim rs As DAO.Recordset
      >Dim StudentNumber As Integer
      >Set db = CurrentDb
      >Set rs = db.OpenRecordse t("SELECT Max(qryParticip antids.gennumbe r) AS
      >MaxofGenNUMB ER FROM qryParticipanti ds;")
      > If rs.RecordCount > 0 Then
      > rs.MoveFirst
      > Me.GenNUMBER = rs!maxofGenNumb er + 1
      > Me.StudyID = "S" & Format(Me.GenNU MBER, "0000")
      > End If
      > rs.Close
      >Set db = Nothing
      >End Sub
      >
      >so they get a studyID sequence
      >S0001
      >S0002
      >S0003
      >
      >this worked fine but now they want to get a studyID
      >S0501
      >S0502
      >S0503
      >
      >how can I get this with an empty recordset.
      >since the IF is not really needed since you call this on new record
      >the count will always be 1.
      >
      >thanks for any ideas...this is weird
      >why do they always want something that to me makes no since.
      >
      >Jerry
      >[/color]

        Comment

        • sparks
          #3
          Re: Generating a number...simple but


          No thats too easy.
          What else you got.
          LOL

          thanks for the help I could not see that to save my life.
          I was thinking that if would always be 501.

          thanks again

          Jerry




          On Fri, 24 Mar 2006 07:21:16 -0700, Tom van Stiphout
          <no.spam.tom774 4@cox.net> wrote:
          [color=blue]
          >On Fri, 24 Mar 2006 14:13:30 GMT, sparks <jstalnak@swbel l.net> wrote:
          >
          >How about:
          >Me.GenNUMBER = rs!maxofGenNumb er + 1
          >If Me.GenNumber < 501 then Me.GenNumber = 501
          >Me.StudyID = "S" & Format(Me.GenNU MBER, "0000")
          >
          >-Tom.
          >
          >[color=green]
          >>ok I was generating a combo of things into a unique identifier.
          >>
          >>Private Sub generatenumber( )
          >>Dim db As DAO.Database
          >>Dim rs As DAO.Recordset
          >>Dim StudentNumber As Integer
          >>Set db = CurrentDb
          >>Set rs = db.OpenRecordse t("SELECT Max(qryParticip antids.gennumbe r) AS
          >>MaxofGenNUMBE R FROM qryParticipanti ds;")
          >> If rs.RecordCount > 0 Then
          >> rs.MoveFirst
          >> Me.GenNUMBER = rs!maxofGenNumb er + 1
          >> Me.StudyID = "S" & Format(Me.GenNU MBER, "0000")
          >> End If
          >> rs.Close
          >>Set db = Nothing
          >>End Sub
          >>
          >>so they get a studyID sequence
          >>S0001
          >>S0002
          >>S0003
          >>
          >>this worked fine but now they want to get a studyID
          >>S0501
          >>S0502
          >>S0503
          >>
          >>how can I get this with an empty recordset.
          >>since the IF is not really needed since you call this on new record
          >>the count will always be 1.
          >>
          >>thanks for any ideas...this is weird
          >>why do they always want something that to me makes no since.
          >>
          >>Jerry
          >>[/color][/color]

            Comment

            Previous template Next
            Working...