numerar « WordPress.com Tag Feed

Número correlativo en un campo numérico

lumbanico — Sat, 07 Jun 2008 22:45:23 +0000

Para generar un número correlativo en un campo numérico y que además tenga en cuenta los huecos dejados por anteriores eliminaciones de registros se puede utilizar la siguiente función. Es decir, suponiendo que los valores de ese campo numéricos fueran, por ejemplo: 1, 2, 3, 5, 6, 8, 9, 11, el código devolverá como resultado el 4. Una vez añadido el 4, la siguiente vez debería devolvería el 7, la siguiente el 10 y la siguiente el 12.

Function fCounter(FieldName As String, TableName As String, Optional DbPath As String) As Long
Dim SQL As String
Dim db As Object 'DAO.Database
Dim rst As Object 'DAO.Recordset
On Error GoTo fCounter_Error
SQL = "SELECT " & FieldName & " FROM " & TableName & " WHERE " & FieldName & " = 1"
If DbPath = "" Then
Set db = CurrentDb
Else
Set db = DBEngine.OpenDatabase(DbPath)
End If
Set rst = db.OpenRecordset(SQL, DB_OPEN_SNAPSHOT)
If rst.EOF Or rst.BOF Then
fCounter = 1
Else
SQL = "SELECT " & TableName & "." & FieldName & " + 1" & " FROM " & TableName & " LEFT JOIN " & TableName & " AS TMP" & " ON " & TableName & "." & FieldName & " + 1" & " = TMP." & FieldName & " WHERE TMP." & FieldName & " IS NULL" & " ORDER BY " & TableName & "." & FieldName
Set rst = db.OpenRecordset(SQL)
fCounter = rst(0)
End If
Exit_Function:
If Not rst Is Nothing Then rst.Close
Set rst = Nothing
If Not db Is Nothing Then db.Close
Set db = Nothing
On Error GoTo 0
Exit Function
fCounter_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
Resume exit_Function
End Function

La llamada a la función sería de la siguiente forma:

SiguienteNumero = fCounter("campo_numerico", "Tabla")

Fuente: Access & VBA

ORDIN nr. 1.087 din 8 aprilie 2008...

nagyav — Mon, 05 May 2008 12:21:44 +0000

privind modificarea Ordinului ministrului de stat, ministrul finantelor, nr. 1.801/1995

Actul prezinta interes pentru activitatea fiscala, aducand modificari in ceea ce priveste formularele utilizate in acest domeniu.

In anexa la acest act normativ sunt prevazute modelul de Registru pentru evidenta numerarului din casieria tezaur, Registru pentru evidenta numerarului manipulat de personalul casieriei, Registru pentru evidenta numerarului manipulat de personalul casieriei, modelul de Carnet de cecuri pentru ridicare de numerar.

O propunere. Externalizarea unor servicii ale BNR, dupa model norvegian.

hymerion — Thu, 17 Apr 2008 06:34:29 +0000

În principiu, oricine posedă bancnote şi monede acordă un împrumut fără dobândă băncii centrale. Acest lucru permite băncii centrale să investească şi să obţină un profit pe capital echivalent împrumutului fără dobândă, asigurându-i astfelun venit din emisiunea de monedă (seignorage). Astfel, se poate afirma că beneficiarii acoperă anumite costuri legate de numerar. Dacă beneficiarii ar suporta toate costurile cu distribuţia numerarului, ar acoperi mai mult decât costul pentru utilizarea numerarului, ceea ce e ineficient. Drept pentru care, Norges bank a actionat in 3 etape. I. înfiinţat Norsk Kontantservice AS (NOKAS), deţinută în comun de bănci private şi Norges Bank.În etapa a doua se propunea reducerea numărului de depozite ale băncii centrale şi a perioadei din zi în care băncile să poată aduce sau retrage bani la/de la un depozit al băncii centrale, pentru care băncile să primească dobândă. Asociaţia băncilor nu a fost de acord, invocând necesitatea unor depozite pentru depozitarea interimară şi redistribuire şi a solicitat luarea în considerare a unor aranjamente cu depozitele private. Acest aranjament trebuia să se bazeze pe anumite reguli, conform cărora băncile să poată să-şi depoziteze numerarul şi să primească o anumită formă de remuneraţie, ca şi cum numerarul ar fi fost depozitat la banca centrală. Restul, aici

Numerar registros en un formulario continuo

lumbanico — Wed, 26 Dec 2007 11:44:55 +0000

Se añade la siguiente función a nuestro formulario:

Public Function AWorden(xDATO) As Double
With Me.RecordsetClone
If IsNull(xDATO) Then
AWorden = .RecordCount + 1
Else
If Me.NewRecord Then
AWorden = .RecordCount + 1
Else
.Bookmark = Me.Bookmark
AWorden = .AbsolutePosition + 1
End If
End If
End With
End Function

y se incorpora un cuadro de texto al formulario al que se le coloca en la propiedad "Origen del control":

=AWorden([uncampodelatabla])

El procedimiento también sirve para formularios no tabulares.

Fuente: Foro de Access VBA