microsoft-access « WordPress.com Tag Feed

Jugando con fechas...

lumbanico — Tue, 22 Jul 2008 06:32:04 +0000

La siguiente función devuelve de fecha de inicio de una semana, pasándole el número de la semana y el año.

[sourcecode language='vb']Public Function fStartDateFromWeekNum(intWeekNumber As Integer, int4DigitYear As Integer) As Date
Dim DayOne As Date
Dim i As Integer
For i = 1 To 7
If DatePart("ww", DateSerial(int4DigitYear, 1, i), , vbFirstFullWeek) = 1 Then
DayOne = DateSerial(int4DigitYear, 1, i)
Exit For
End If
Next i
fStartDateFromWeekNum = DateAdd("ww", intWeekNumber - 1, DayOne)
End Function[/sourcecode]

Esta otra función determina el último viernes del mes:

[sourcecode language='vb']Public Function fGetLastFridayOfMonth(dtValue As Variant) As Variant
Dim dtTmpDate As Date
Dim intDaysInMonth As Integer
Dim i As Integer
If Not IsDate(dtValue) Then Exit Function
dtTmpDate = DateSerial(Year(dtValue), Month(dtValue) + 1, 0)
intDaysInMonth = DatePart("d", DateSerial(Year(dtValue), Month(dtValue) + 1, 0))
For i = intDaysInMonth To 1 Step -1
If WeekDay(dtTmpDate) = vbFriday Then
fGetLastFridayOfMonth = dtTmpDate
Exit For
End If
dtTmpDate = DateAdd("d", -1, dtTmpDate)
Next i
End Function[/sourcecode]

Fuente: Utter Access

Cerrar todos los formularios

lumbanico — Sat, 19 Jul 2008 19:52:07 +0000

[sourcecode language='vb']Public Sub CloseAllForms_Click()
Do While Forms.Count > 0
DoCmd.Close acForm, Forms(0).Name
Loop
End Sub[/sourcecode]

Fuente: access-programmers.co.uk

Calendario auxiliar en pop up

lumbanico — Sat, 19 Jul 2008 16:19:13 +0000

Entre todos los calendarios auxiliares para seleccionar una fecha este de Lebans es el que más me ha gustado. Así que lo utilizaré para mi aplicación. ¿Cuál utilizas tú?.

Descargar. Access 2000.

Fuente: Lebans

Disappearing borders in Microsoft Access 2002

Mister Slimm — Tue, 15 Jul 2008 00:04:23 +0000

So, amazingly, if you set the BackColor and BorderColor to the same value in a Microsoft Access 2002 TextBox then set BackStyle to Transparent, the border disappears. The solution is simply to adjust one of the values by 1 but still.

Mostrar datos en un informe previamente seleccionado en un cuadro de lista

lumbanico — Sat, 12 Jul 2008 19:57:41 +0000

Con la siguiente función se muestran en un informe únicamente los datos seleccionados previamente en un cuadro de diálogo:

[sourcecode language='vb']Dim NumerosPedidos As String
Dim ElementoSeleccionado As Variant
' Formamos una cadena con los números de pedidos seleccionados en el cuadro de lista y separados por comas (en este caso, sería algo como "10248,10249,10250,...")
For Each ElementoSeleccionado In Me.lstPedidos.ItemsSelected
NumerosPedidos = NumerosPedidos & Me.lstPedidos.ItemData(ElementoSeleccionado) & ","
Next
' Si había algún pedido seleccionado
If Len(NumerosPedidos) > 0 Then
' Quitamos la última coma de la cadena
NumerosPedidos = Left(NumerosPedidos, Len(NumerosPedidos) - 1)
' Y abrimos el informe en vista previa para visualizar los pedidos seleccionados
DoCmd.OpenReport "Pedidos", acViewPreview, , "IdPedido IN(" & NumerosPedidos & ")"
Else
' No se ha seleccionado ningún elemento del cuadro de lista
MsgBox "Por favor, selecciona algún pedido"
End If[/sourcecode]

Descargar. Access 2000.

Fuente: Access & VBA

How to Create Action Queries in Microsoft Access

Nagaraj — Tue, 08 Jul 2008 07:29:51 +0000

Queries within a DBMS system can do more than display answers to the questions you ask. Then can actually perform various actions on the data in your database. Action queries are queries that can add, change, or delete multiple records at one time. The added benefit is that you can preview the query results in Access before you run it. Microsoft Access provides 4 different types of Action Queries: Make-Table, Append, Update, and Delete. This article deals with Make-Table queries.

Steps

Start Microsoft Access and open your database
Click on the Queries tab of your database.
Click on the New button and then select Design View to start creating a query in Design view.
Choose the tables or other queries you wish to query
Choose the fields from the table/query you want.
- Just like normal queries, you will often have to specify a criterion in your query to get the results you want.
Run the query to make sure your query contains the results are you are looking for.
Now, you need to change the type of query this is. In the middle of the screen, click the Query type button.
Change to Make-Table.
Specify the name of the new table and if it is going to be created in the database you are currently working from, or another database.
- If you are creating the table for a separate database, you will have to specify the location of it.
Run the query.
- Because you running an action query that makes changes to your overall database structure, Microsoft Access will ask if you want to cancel the operation.
- Click Yes to close the dialog box, create the new table and return to Query Design View.
Save your query, and you're done.

Tips

Novices to action queries should preview their query before changing it to an action query.

Things You'll Need

Microsoft Access
A database
Data to consolidate into a new table

Ejemplo de un formulario continuo

lumbanico — Sun, 06 Jul 2008 09:37:22 +0000

El siguiente ejemplo muestra cómo crear un formulario continuo con un aspecto parecido al de una hoja de cálculo. Los datos se pueden ordenar haciendo click en la cabecera de cada columna, y se puede ajustar el ancho de las mismas de una forma muy sencilla. También se puede seleccionar la fecha a añadir en un campo mediante un calendario emergente.

Descargar. Access 2002

Fuente: Utter Access

Where I Read This Summer: Naperville Public Library

mrschu81 — Wed, 02 Jul 2008 00:38:11 +0000

After struggling to get Access to do what I wanted, I swallowed my pride and checked out Access 2007 for Dummies.

Plazo de días hábiles

lumbanico — Tue, 24 Jun 2008 17:48:05 +0000

Con el siguiente ejemplo se obtiene la fecha en la que finaliza una plazo hábil determinado por la fecha de inicio y el número de días que deben transcurrir. Para calcular la mencionada fecha se tienen en cuenta tanto sábados como domingos, como los días festivos que se añadan a la tabla que contiene la base de datos.

El día que proporciona la función es el día siguiente a la finalización del plazo, no el último día del plazo.

Descargar. Access 2000

Búsqueda activa en subformulario, sin tildes

lumbanico — Sun, 22 Jun 2008 12:49:19 +0000

Un paso más en la búsqueda activa/selectiva en un formulario. Mediante el siguiente ejemplo se realiza la búsqueda de datos independientemente de que la cadena que se busca contenga o no tildes.

Descargar. Access 2000

Abrir tabla externa sin vincular

lumbanico — Sun, 22 Jun 2008 10:32:30 +0000

Con el siguiente código se puede abrir desde una MDB las tabla de otra MDB sin hacer vinculación ni automatización:

[sourcecode language='vb']Sub AbrirTbl(ByVal Rutaservidor As String)
Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("SELECT * FROM Flash IN '" & Rutaservidor & "';")
While Rst.EOF = False
'Recorre el recordset
MsgBox Rst.Fields(0)
Rst.MoveNext
Wend
Rst.Close
Set Rst = Nothing
End Sub[/sourcecode]

Para llamar a esta funcion:

[sourcecode language='vb']Sub Prueba()
AbrirTbl "U:\Publicaciones\Planificacion\Bases de datos\Fundición_be.mdb"
End Sub[/sourcecode]

y debería funcionar...

Fuente: Access de Xavi

Mensaje de información en la barra de tareas

lumbanico — Sat, 21 Jun 2008 11:17:05 +0000

El siguiente ejemplo muestra como hacer aparecer el 'típico' mensaje de la barra de tareas que informa, advierte, ..., sobre las distintas actuaciones que se están llevando a cabo en la máquina (el globo de información que aparece junto al reloj de la barra de tareas).

Descargar. Access 2003

Fuente: Utter Access

Vincular tablas dbf

lumbanico — Mon, 16 Jun 2008 09:21:26 +0000

La siguiente función revincula una tabla formato dbf:

[sourcecode language='vb']Function VincularDBF(strPath As String, strTable As String)
On Error GoTo Err_VincularDBF
Dim tdf As TableDef
For Each tdf In CurrentDb.TableDefs
If Left(tdf.Connect, 5) = "Dbase" And tdf.Name = strTable Then
a = Left(tdf.Connect, InStr(tdf.Connect, "DATABASE") - 1)
a = a + "DATABASE=" & Mid(strPath, 1, Len(strPath) - Len(strTable) - 4)
'El 4 es para quitar la extensión del archivo
tdf.Connect = a
tdf.RefreshLink
End If
Next
VincularDBF = 0
Exit_VincularDBF:
Exit Function
Err_VincularDBF:
VincularDBF = Err.Number
Resume Exit_VincularDBF
End Function[/sourcecode]

Barra de progreso

lumbanico — Sat, 14 Jun 2008 23:37:49 +0000

Un método muy común de obtener una barra de progreso sobre una consulta de acción, es realizar los procesos uno a uno recorriendo un recordset. Cada vez que nos situamos en un nuevo registro, incrementamos el valor de la barra de progreso e invocamos un método del recordset (AddNew, Delete o Update). El inconveniente es que si la cantidad de registros a procesar es elevada, este sistema puede resultar inacabable. Es mucho más rápido dejar que el proceso lo realice el lenguaje sql.
La idea sería invocar una función dentro de la clausula where de la consulta de acción. Dicha función se encargaría de crear una barra de progreso y de ir aumentando su tamaño según las llamadas a la misma.

Option Compare Database
Private Contador As Long
Private Límite As Long

El primer parámetro de la función es una referéncia a cualquier campo de la consulta. Al hacer esto, obligamos a que la función sea invocada para cada registro. El segundo parámetro de la función, es una sql que nos sirva para calcular el número total de registros a procesar.

Public Function BarraProgreso(Valor As Variant, sql As String) As Boolean
Dim rst as DAO.Recordset
'Si es la primera llamada a la función, calculamos el número total de registros a procesar e iniciamos la barra de progreso
If Contador = 0 Then
Set rst = CurrentDb.OpenRecordset(sql, dbOpenSnapshot)
If rst.recordcount = 0 Then
Límite = 0
Else
Límite = rst.fields(0)
End if
rst.close
Set rst = Nothing
SysCmd acSysCmdInitMeter, "Progreso de la consulta ...", Límite
End If
Contador = Contador + 1
'Pasamos el número de registros procesados a la barra de progreso
SysCmd acSysCmdUpdateMeter, Contador
BarraProgreso = True
'Si hemos llegado al último registro, ponemos las variables a cero y borramos la barra de progreso.
If Contador >= Límite Then
SysCmd acSysCmdRemoveMeter
Límite = 0
Contador = 0
End If
End Function

El funcionamiento de la función sería el siguiente:

MsgBox "Vamos a iniciar la primera consulta ..."
CurrentProject.Connection.Execute "Select * Into Còpia From [Detalles de pedidos] Where " & "BarraProgreso(IdPedido, 'Select Count(*) From [Detalles de pedidos]')=True"

Fuente: www.mvp-access.com

Sustituir carácter de una cadena

lumbanico — Sat, 14 Jun 2008 23:18:07 +0000

La siguiente función reemplaza en la cadena pasada como parámetro, cada uno de los caracteres incluidos en la cadena strBuscar por el situado en la misma posición en la cadena strReemplazarCon por ese motivo ambas cadenas han de ser formadas por igual número de caracteres. Argumentos: strTexto => cadena a la que se han de hacer los cambios; strBuscar => cadena de letras a ser reemplazadas; strReemplazarCon => cadena de letras a reemplazar. La forma de llamara a la función sería la siguiente: strTexto = ReplaceExt(strTexto, "áéíóúü", "aeiouu").

La función es para Access 2000 ó superior. Ya que utiliza la función replace. Para usarla en Access 97 utiliza una función que sustituya a replace.

Public Function ReplaceExt(strTexto As String, strBuscar As String, strReemplazarCon As String) As String
Dim i As Long
If Len(strBuscar) = Len(strReemplazarCon) Then
For i = 1 To Len(strBuscar)
strTexto = Replace(strTexto, Mid(strBuscar, i, 1), Mid(strReemplazarCon, i, 1))
Next i
ReplaceExt = strTexto
Else
MsgBox "La longitud de las cadenas no coincide", vbOKOnly + vbCritical, "ATENCION"
End If
End Function

Fuente: www.mvp-access.com

Ocultar las tablas de una base de datos

lumbanico — Sat, 14 Jun 2008 22:22:18 +0000

La siguiente función oculta las tablas de la base de datos añadiendo el atributo DB_HIDDENOBJECT a cada una de las tablas:

Function OcultaDesoculta(Ocultar As Boolean)
Dim Tablas As TableDef
For Each Tablas In CurrentDb.TableDefs
If Ocultar = True Then
If Not (Tablas.Attributes And DB_HIDDENOBJECT) Then
Tablas.Attributes = Tablas.Attributes + DB_HIDDENOBJECT
End If
Else
If (Tablas.Attributes And DB_HIDDENOBJECT) Then
Tablas.Attributes = Tablas.Attributes - DB_HIDDENOBJECT
End If
End If
Next
End Function

Y llama a esta funcion con el parametro False/TRUE, es decir OcultaDesoculta False, y no se verán las tablas de la base de datos ni de coña.

Fuente: accessbuho.mvps.org

La siguiente función sirve tanto para ocultar/mostrar tablas locales como vinculadas.

Public Function AWHideTable(opHIDE As Boolean)
Dim tblTMP As TableDef
For Each tblTMP In CurrentDb.TableDefs
With tblTMP
If .Attributes = dbAttachedTable And opHIDE Then
.Attributes = dbHiddenObject
ElseIf .Attributes = (dbAttachedTable + dbHiddenObject) And Not opHIDE Then
.RefreshLink
ElseIf .Attributes = 0 And opHIDE Then
.Attributes = dbHiddenObject
ElseIf .Attributes = 1 And Not opHIDE Then
.Attributes = 0
End If
End With
Next
Application.RefreshDatabaseWindow
End Function

Fuente: accessbuho.mvps.org

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

[愚痴]SQL Serverのフロントエンドが糞という話とMicrosoft Access専門業者

dreamkeyboard — Sat, 07 Jun 2008 14:12:16 +0000

ちょっとまえSQL Server 2005のManagement toolを使っていたので、愚痴ってみよう。
まず第一に使いづらい。例えばデータベース毎の情報がツリーで一覧できるオブジェクトエクスプローラ？ってのがあるが、こんな巨大なものをツリーで見せられてもまじで困るんだが。そのツリーの中を検索できないというITリテラシーの低さはいかんともしがたい。ていうかバカ
どうもMicrosoftというのは検索するものというのはテキストとか文章とかに限っているみたいで困る。
驚くべきことは、どうもこのSQL Server 2005のマネージメントツールが、Visual StudioというMicrosoftのメイン開発環境のサブセットらしいということだ。
やってみればわかることだが、Visual Studioでも同じことがほぼそのまんまやれる
Visual Studioでデータベースを弄くっていると、まるであの糞ソフトのMicrosoft Accessを思い出す。でも使い勝手はAccessに軍杯が上がる。情けないこと
ところで未だにAccessなんかで商売しているソフト屋がいることに愕然とする。
Microsoft AccessというのはDBだけど、変にVisual Basic環境が充実していて癖がありまくりのソフト。小汚いプログラムだがそれで問題にならないなら大抵の事がやれるという万能ツールである。そして恐らく、心あるプロの業者なら禁忌するソフトでもある。例えば業者が他の業者を指して「あそこ（の開発）は何でもAccess」「あそこは今でもAccess」とかいったらその他の業者の開発能力は素人同然という意味と思って差し支えない
Microsoft Accessが糞なのは、例えばこんなことから垣間見ることができる。Microsoft AccessはDBだから自身でテーブルとかSQLとかオブジェクトとして管理する。そしてそのオブジェクトを一覧するウィンドウというの当然がある。それはいい。問題はそのウィンドウの中でテーブルなりオブジェクトを検索できないのである。100以上のテーブルとかがある（テーブルの）一覧から目的のブツ（テーブル)を探し出すのに頼れるツールが自分の「目」だなんて、アホでしかない※1 ※2 ※3。ソフトウェアとしての自覚が足りなすぎる。「あんたDBだよね？？？？」と声を大にしたい。
これは氷山のごくごく一部だが、Microsoft Accessはすべてにおいてそういう体たらくなので、心ある技術者はできるだけ関わらないように努力する。というか今時普通にスルーする。恐らくその扱いはCOBOLよりも低い。技術に疎い技術者でも使うのを嫌がるし。
Accessプログラマといえば、パートのおばちゃんというイメージが強い。雇う方も技術に疎い営業あがりか、SEとかを真っ当にやれなかったアホ技術者が営業紛いを経験した先での社長だ。
まだあるぞ。Microsoft Accessというソフトはなんでもやれるけどソフト自体の維持管理が大変。故に販売するような製品開発には絶対に向かない。こういうソフトでつくったプログラムを勧めたり売ったりする業者というのは、今時極度にIT度が不足しているし、技術向上とかも極度に怠っているから要注意。今時の技術をしらない故にぼったくられたり、おかしなもの掴まされるよ。老婆心

※1 最近のAccessなら検索できるかも、興味ないからしらん。2003辺りまでできないと思う。今頃できたところで評価は変わらないけど

※2 オブジェクトはテーブルで管理されているからテーブルで検索はできる。でも検索したテーブルを開くにはVBAでオブジェクトをshowしないとね。知っていれば他愛もないことだが普通そこまでやらない。しかし日本語のテーブルなりを目だけで探し出すのは私にとって苦痛なんだよ

※3 注釈がこれってのはどうなのよってツッコミは

Cuadro de diálogo para imprimir un informe

lumbanico — Sat, 31 May 2008 10:31:56 +0000

Para mostrar el cuadro de diálogo de impresión se puede hacer utilizando un código como el que sigue, asociándolo a un botón de comando o similar:

On Error GoTo err_DoCmd
' abrimos el informe en vista previa
DoCmd.OpenReport "Informe1", acViewPreview
' si queremos ocultar el informe podemos usar esta línea
Reports("Informe1").Visible = False
' mostramos el cuadro Imprimir ...
DoCmd.RunCommand acCmdPrint
' cerramos el informe
DoCmd.Close acReport, "Informe1"
On Error GoTo 0
' si este código pertenece a una función
' la siguiente línea sería Exit Function
Exit Sub

err_DoCmd:
'la acción RunCommand se canceló
If Err.Number = 2501 Then
Resume Next
Else ' otro tipo de error
MsgBox "Se ha producido el error " & Err.Number & Err.Description
End If

En el caso de estar trabajando con Access XP o superior, existe una opción extra en el método DoCmd.OpenReport que permite hacer invisible el informe. Si quisieras utilizarla, entonces la línea de código para abrir el informe sería parecida a ésta:

DoCmd.OpenReport "Informe", acPreview, , , acHidden

y también tendríamos que eliminar la línea con la cual ocultábamos el informe:

Reports("Informe1").Visible = False

Fuente: Access & VBA FAQ

Configuring Citrix to open a specific Access database

Allen Strelow — Fri, 30 May 2008 21:19:58 +0000

We deployed Citrix Presentation Server 4.5 in a five-server farm at one of our clients. They use it for Office 2003 and ERP program application serving. I've worked with Citrix in the past, and my impression is it's a great product that takes a while to learn. It takes longer to get really good at it. The Citrix community seems like a secret club where they are nice to their big resellers and the others are just an afterthought. We are not a Citrix Partner, nor do we play one on TV, nor are we auditioning for any roles.

My last interaction with Citrix was a support call to get pass-through authentication to work. I had to call because their support site is lame. I was 90% there, but was missing the last 10%. The support engineer was rude and had this smug "I-can't-believe-you-don't know-this" attitude. Excuse me sir, but we're paying you $400. Would it kill you to be nice? Windows 2008 TS Remote App provides almost all of the functionality of Citrix with a fraction of the hassle.

So another request came up: can we publish an application that has Access open a specific database? My colleague worked on a couple different ways but they didn't work. I suggested we publish MS Access as a separate app with a switch to open a specific DB. Using this article we set the command line of the app to read:

"C:\Program Files (x86)\Microsoft Office\Office12\MSACCESS.EXE" "\\contoso.com\DFS\Files\Sales\SalesStats.MDB"

Worked like a charm. Day saved, cocktail hour earned.

Tipe data pada Tabel dalam Microsoft Access

Andry Sucipto — Fri, 30 May 2008 09:38:08 +0000

Dalam membuat aplikasi dalam Mikrosoft Access, mau tidak mau kita harus bersinggungan dengan apa yang disebut dengan tipe data, tipe data tersebut merupakan salah satu peranan yang sangat penting di dalam menciptakan suatu tebel di dalam mikrosoft word, dan tabel itu sendiri merupakan sumber untuk pembuatan applikasi yang ada dalam Mikrosoft Access.

Adapun, tipe data dalam mikrosoft Acces ada 9 macam, diantanya adalah

TEXT : Tipe data ini menerima semua karakter baik huruf, angka, titik, koma, ataupun yang lain dan panjang karekternya ditentukan oleh nilai yang ada pada filesize yang ada dalam properti sampai 255 karakter, biasanya tipe ini sering digunakan untuk file alamat, dan yang lain

NUMBER : tipe ini hanya di khususkan untuk bilangan dari 0 dsampai 9, dan tidak mengenal adanya tanda tanda baca, misalnya titik, koma dan lain lain

CURRENCY : Tipe ini hanya berisi nilai mata uang

DATE/TIME : Tipe ini hanya di khususkan untuk penggunaan tanggal dan waktu, dan untuk format waktu dapat diatur tersendiri dengan propertisnya

AUTO NUMBER : Tipe ini digunakan untuk memberikan nomor secara berurutan, dan secar automatis di berikan oleh sistem Access

MEMO : Tipe ini sama dengan tipe text, hanya saja yang membedakan dengan tipe text adalam panjang maksimum type ini adalah 65535 karakter, sedangkan untuk text hanya 255

YES/NO : Tipe data ini hanya memiliki 2 ketentuan yaitu Yes/No, True/False, dan yang lain, tipe ini hanya berbentuk Check List ketiha tipe ini dilihat pada tmpilannya

OLE OBJECT : Tipe data ini berfungsi untuk mengaitkan dalam sebuah objek, atau bisa juga kita sebut dengan link, atau bisa juga untuk penyisipan objek misalnya Foto, Gambar atau yang lainnya

LOOKUP WIZARD : Tipe data ini digunakan untuk pengisian data pada tabel yang besangkutan kita ambilkan dari tabel tabel yang lain, yang divisualisasikan dalam bentuk Lisk Box atau Combo Box

Detectar inactividad en la aplicación

lumbanico — Sun, 18 May 2008 16:39:37 +0000

En este post se muestra cómo crear un procedimiento que se ejecutará si la aplicación de Microsoft Access no detecta ninguna entrada de usuario durante un período de tiempo especificado. Al evento IntervaloDeCronómetro la aplicación inicia la cuanta atrás en la que comprueba la inactividad del usuario. Una configuración de 1000 es igual a 1 segundo.

Descargar. Access 2000

Fuente: support.microsoft.com

Tiempo que lleva abierta una base de datos

lumbanico — Sun, 18 May 2008 10:19:01 +0000

El siguiente ejemplo acumula el tiempo que se ha estado utilizando la base de datos. Este emplo lo esto intentando utilizar para que la aplicación sobre la que estoy trabajando se desconecte/cierre, cuando lleve cierto tiempo sin utilizar.

Descargar. Access 2000.

Fuente: ensolva

Cambiar comas a puntos decimales

lumbanico — Sat, 17 May 2008 14:46:46 +0000

La siguiente función cambia el separador decimal por un punto, si el que se utiliza es una coma. Si le pasas la cadena que quieres que cambie p.e.: "245,05" y te la deja como "245.05".

Private Sub CambiarComaPunto(ByRef Cadena As String)
Dim I As Integer
I = InStr(1, Cadena, ",")
Mid(Cadena, I, 1) = "."
End Sub

Fuente: Xavi

I Don't Understand, I Understand

bahava — Sat, 17 May 2008 01:49:32 +0000

I saw this on a couple of blogs and so I figured I'd join in on the fun.

Part 1:

I don't understand how my phone cord at work ALWAYS gets tangled.

I don't understand why steep and cheap can't have more deals that I want

I don't understand why Facebook is still so appealing and easy to waste time on

I don't understand why I like blogging so much when I don't know who is reading

I don't understand how I can get so lost and involved in a book in no time

I don't understand why bugs freak me out and other animals don't

I don't understand why I live in this dichotomy of sporty clothes and girly clothes

Part 2:

I understand that I'm emotional and yet hate showing it

I understand that I am laid-back, flexible and a people-pleaser

I understand that I love to exercise and look sporty

I understand that if I buy something it better be "happy"

I understand I love listening and helping people

I understand Microsoft Access

I understand that I love making desserts