GuiGarnize

Olá Tenho que fazer uma numeração automática de OS só que ele deve ser formulada assim "OSxxx/17" Onde o "/17" é o ano atual O código por enquanto está assim: Global cnn As New ADODB.Connection Global Tabela As New ADODB.Recordset Global vConexao As Boolean Global sql As String -------------------------------------------------------------------------------------------------------------------------------------- Public Sub conectar() If vConexao = False Then cnn.CursorLocation = adUseClient cnn.Open "provider=microsoft.jet.oledb.4.0;persist security info = false; data source = " & App.Path & "\ControleOS.mdb;" vConexao = True End If End Sub -------------------------------------------------------------------------------------------------------------------------------------- Public Function desconectar() If vConexao = True Then cnn.Close vConexao = False End If End Function -------------------------------------------------------------------------------------------------------------------------------------- Public Function novocodigo_OS() Dim lastnumber As Long, newnumber As Long Dim Ano As Integer Ano = Year(Now) If Ano = "2017" Then Ano = "17" End If conectar Tabela.Open "select * from OS", cnn With Tabela If .BOF = True And .EOF = True Then lastnumber = 0 Else .MoveLast lastnumber = !Cod_OS End If newnumber = lastnumber + 1 frmAbreOS.txtCodOS.Text = "OS" & newnumber & "/" & Ano frmAbreOS.txtCodOS.Enabled = False End With desconectar End Function Queria saber se tem como melhorar pra não ter que criar varias condições pra cada ano.