/* */

Saturday, June 19, 2010

[belajar-access] Nambah angka otomatis

----- Original Message -----
From: "Aksan Kurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Saturday, June 19, 2010 8:42 PM
Subject: Re: [belajar-access] Nambah angka otomatis


> strShipNum = DMax("Shipment_No", "TblShipment")
>
> jadikan:
> Format(CInt(DMax("Right(Shipment_No,4)", "TblShipment")) + 1, "0000")
>
>
> aksan kurdin
>
> On 6/18/2010 10:51 AM, Cecep W wrote:
> > strShipNum = DMax("Shipment_No", "TblShipment")

Friday, June 18, 2010

Fw: [belajar-access] Tanya Soal DCount

 
----- Original Message -----
From: "suka access" <suka.access@gmail.com>
Sent: Friday, June 18, 2010 3:09 PM
Subject: Re: [belajar-access] Tanya Soal DCount

> kayaknya kurang kutip aja tuh
>
>  "[Standart]" =" True")
>
>
>
> Private Sub Form_Current()
> NomorPDP = Me.ID_PDP.Value
> Me.txtCount = DCount("[NoPcs]", "[T_Card_A_Detail]", "ID_PDP= " &
> NomorPDP & " AND "[Standart]" =" True")
> End Sub
>

[belajar-access] Re: Form Master-Child dengan database MySQL

----- Original Message -----
From: "aksankurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Friday, June 18, 2010 1:20 PM
Subject: [belajar-access] Re: Form Master-Child dengan database MySQL


dan ... jika anda creative, maka untuk dsn-less:
Private Sub Form_Load()' Me.RecordSource = "SELECT * FROM
[ODBC;DSN=PO;].Po"' Me.frm_posub_grid.Form.RecordSource = "SELECT *
FROM [ODBC;DSN=PO;].POSub" Me.RecordSource = "SELECT * FROM [ODBC;" &
ConnStr("localhost", "po", "root", "") & ";].Po"
Me.frm_posub_grid.Form.RecordSource = "SELECT * FROM [ODBC;" &
ConnStr("localhost", "po", "root", "") & "].POSub" Me.Requery
Me.frm_posub_grid.Form.RequeryEnd Sub

Fungsi untuk connstr:
Public Function ConnStr(serverName As String, dbName As String, userName
As String, pwd As String) As String ConnStr = "DRIVER={MySQL ODBC 5.1
Driver};SERVER=" _ & serverName & ";DATABASE=" & dbName & ";" & _
"UID=" & userName & ";PWD=" & pwd & ";OPTION=16426"End Function

look,anda tetap bisa memanfaatkan access untuk desain form yang cakep
dengan bound form on-the fly, layaknya kita sudah punya tabel di tab
tabel access, bukan ?


aksan kurdin

Tuesday, June 15, 2010

[belajar-access] Re: Access 2007 dan ,SQL Server 2008 aplikasi Client/Server

----- Original Message -----
From: "jkssbma" <jkssbma@yahoo.com>
To: <belajar-access@yahoogroups.com>
Sent: Tuesday, June 15, 2010 3:49 PM
Subject: [belajar-access] Re: Access 2007 dan ,SQL Server 2008 aplikasi
Client/Server


>
> Saya sudah coba dengan data link properties sudah dikenali. Tentang Port
mana yang dipakai untuk Service SQL SERVER saya belum tahu nomornya
> Tapi saya sangat berterima kasih.
>
> --- In belajar-access@yahoogroups.com, Aksan Kurdin <aksan.kurdin@...>
wrote:
> >
> > Jika service SQL Server-nya sudah jalan, seharusnya sudah bisa konek.
> > Untuk mengetes apakah service sql sudah jalan, bisa coba telnet ke
> > server dengan perintah:
> >
> > c:\telnet namaserver 1433
> >
> > atau langsung ke ip address-nya:
> >
> > c:\telnet 192.168.1.1 1433
> >

Sunday, June 6, 2010

[belajar-access] Access Project 2007 & SQL Server 2005

----- Original Message -----
From: "Mulyawan, Ayi Teguh" <mulyawan.tea@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Sunday, June 06, 2010 11:48 PM
Subject: RE: [belajar-access] Access Project 2007 & SQL Server 2005


> Alhamdulillah.akhirnya permasalahan saya sudah terselesaikan berkat
bantuan sang master pak Edy,
>
> Sekedar share mungkin ini bisa jadi ide buat rekan-rekan yang sedang
> membangun access dengan database yg ada di SQLServer.
>
> Terutama Mba Asri ini bisa jadi untuk inputan.
>
>
>
> Disini saya memakai Access2007 dan SQL2005, Semua database terletak di SQL
> server jadi access berperan sebagai frontend saja dengan harapan kinerja
nya
> tetap maximal.
>
>
>
> Dengan asumsi database & view alias query sudah ada di sql server dan
access
> sudah konek lewat ODBC tinggal buat prosedur sama formnya:
>
> 1. Buat procedure seperti ini:
>
> CREATE PROCEDURE [dbo].[NamaProsedure]
>
> @DevID char(20),@DATE VarChar(50) /*Maaf disini Date saya pakai VarChar */
>
> AS
>
> SELECT
> dbo.Tabel1.Time,
> dbo.Tabel1.U12,
> dbo.Tabel1.U23,
> dbo.Tabel1.U31
> FROM dbo.Tabel1

Thursday, June 3, 2010

[belajar-access] Func. utk Capture Network Username

----- Original Message -----
From: "Ivan Leonardo" <ivan@pttdp.com>
To: <belajar-access@yahoogroups.com>
Sent: Thursday, June 03, 2010 9:59 AM
Subject: [belajar-access] Func. utk Capture Network Username


> Semoga bermanfaat
>
> Private Declare Function apiGetUserName _
> Lib "advapi32.dll" Alias "GetUserNameA" _
> (ByVal lpBuffer As String, nSize As Long) As
Long
>
> '-------------------------------------------------
> ' This code is used to retrieve the network user
> ' name by accessing the API apiGetUserName.
> ' Created by: Unknown (Found on Dev Ashish
> ' web site www.mvps.org/access/)
> ' This code has not been altered in anyway.
> ' Added to database: 27 dec 1999
> ' Added by: Richard Rensel
> '-------------------------------------------------
>
> Function fOSUserName() As String
> On Error GoTo fOSUserName_Err
>
> Dim lngLen As Long, lngX As Long
> Dim strUserName As String
>