Numerar facturas

[jaf16]

Tengo un tabla access con IdFactura,IdProveedor,NumeroFactura. En la tabla hay proveedores diferentes y cada uno tiene su numeración, es decir puede haber varios con el mismo numero de factura, lo que quiero es que se le asigne automáticamente el número que le corresponda a cada uno de ellos, teniendo en cuenta el anterior que tenían o si no tenían que empiece en 1.

Como puedo conseguir esto?

[Avellaneda]

Una solución podría ser crear una consulta limitada al proveedor y ordenada por número de factura. Si la consulta arroja registros, le sumas una unidad al último registro y si no arroja ninguno, le pones 1.

Algo así:

SELECT NumeroFactura FROM LaTabla WHERE IdProveedor = " & VariableProveedor & " ORDER BY NumeroFactura"

[jaf16]

Gracias por tu respuesta, tengo una duda.
Tengo el siguiente código:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; data source=C:\FACTURACION\FACTURACION.MDB")
Dim dafacturar As OleDbDataAdapter = New OleDbDataAdapter("SELECT IDFACTURA,FECHA,NUMERO,DTO,IMPDESCUENTO,BASEIMPONI BLE,FACTURAR FROM FACTURACION WHERE FACTURAR=FALSE", conexion)
Dim dsproveedores As DataSet = New DataSet
Dim cmdBuilder As New OleDbCommandBuilder(dafacturar)
With dafacturar
.InsertCommand = cmdBuilder.GetInsertCommand
.DeleteCommand = cmdBuilder.GetDeleteCommand
.UpdateCommand = cmdBuilder.GetUpdateCommand
End With
Dim dt As DataTable = DirectCast(Me.DataGridView1.DataSource, DataTable)
dafacturar.Update(dt)
conexion.Close()

End Sub

En el que a través de un datagrid visualizo la información que se va a pasar a la tabla.

Mi duda es, desde este punto como le indico la numeración en función del proveedor?

[Avellaneda]

Iniciado por jaf16

Gracias por tu respuesta, tengo una duda.
Tengo el siguiente código:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; data source=C:\FACTURACION\FACTURACION.MDB")
Dim dafacturar As OleDbDataAdapter = New OleDbDataAdapter("SELECT IDFACTURA,FECHA,NUMERO,DTO,IMPDESCUENTO,BASEIMPONI BLE,FACTURAR FROM FACTURACION WHERE FACTURAR=FALSE", conexion)
Dim dsproveedores As DataSet = New DataSet
Dim cmdBuilder As New OleDbCommandBuilder(dafacturar)
With dafacturar
.InsertCommand = cmdBuilder.GetInsertCommand
.DeleteCommand = cmdBuilder.GetDeleteCommand
.UpdateCommand = cmdBuilder.GetUpdateCommand
End With
Dim dt As DataTable = DirectCast(Me.DataGridView1.DataSource, DataTable)
dafacturar.Update(dt)
conexion.Close()

End Sub

En el que a través de un datagrid visualizo la información que se va a pasar a la tabla.

Mi duda es, desde este punto como le indico la numeración en función del proveedor?

Pero.. ¿Dónde está el proveedor, en la misma tabla, en otra..?
Si es en la misma, ¿cómo se llama el campo? y si es en otra, ¿qué campos tiene?

[jaf16]

Está en la misma tabla de Facturacion,

[Avellaneda]

Iniciado por jaf16

Está en la misma tabla de Facturacion,

Bueno, como tampoco das demasiada información, vamos a suponer que el campo que indica al proveedor se llama idProveedor. En tal caso podrías usar una función que devuelva el último número de factura incrementado en una unidad, algo así:

Código:

Public Function BuscarFactura(ByVal Prov As Long) As Long

        Using oCn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; data source=C:\FATURACION\FACTURACION.MDB")
            Dim sql As String = "SELECT MAX(Numero) As ultimo FROM Facturacion WHERE idProveedor = " & Prov
            Try
                Dim oDa As OleDbDataAdapter = New OleDbDataAdapter(sql, oCn)
                Dim oDs As New DataSet
                oDa.Fill(oDs, "Tabla")
                Dim oDt As New DataTable
                oDt = oDs.Tables("Tabla")
                Return oDt.Rows(0).Item(0) + 1
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Using
    End Function

Para llamarla sólo le tienes que pasar como parámetro el id del proveedor (en este caso estamos suponiendo que el campo idProveedor es de tipo Long, si no es así modifica el parámetro de antrada a la función y la consulta).