Minggu, 02 Desember 2012

RE: [MS_AccessPros] Timer

 

Bill-

Try this:

Private Sub Form_Timer()
Dim datTimeValue As Date
' Grab the current value
datTimeValue = TimeValue(Me.txtClock)
' Subtract 1 second
datTimeValue = datTimeValue - #00:00:01#
' Update the visual
Me.txtClock = datTimeValue
' Force a Refresh to make sure the new value shows <===
Me.Refresh
' If decremented to 0,
If Format(datTimeValue, "hh:mm:nn") = "00:00:00" Then
' Turn off the timer
Me.TimerInterval = 0
' Make a sound
Beep
' Put the focus on the text box
Me.txtClock.SetFocus
' Disable the Pause and Stop buttons
Me.cmdPause.Enabled = False
Me.cmdStop.Enabled = False
End If
End Sub

John Viescas, Author
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications
SQL Queries for Mere Mortals
http://www.viescas.com/
(Paris, France)

-----Original Message-----
From: MS_Access_Professionals@yahoogroups.com
[mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of agent1of6
Sent: Monday, December 03, 2012 5:25 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] Timer

John,
I just thought I would update you on this. The good news is that all the
code is loaded in the form, the buttons made, and the text box set up.
However, when I start the clock it runs for one second.

I have had a busy weekend so I have not been able to go through the code
line by line.

I am thinking I need to put a loop in there.
I am at a conference for a few days so maybe I will get a chance to look at
it there.

Thanks,
Bill
MN

--- In MS_Access_Professionals@yahoogroups.com, "Bill Singer"
<Bill.Singer@...> wrote:
>
> John,
>
> Thanks and WOW!. I will try to work through this code this weekend. I
> will let you know how it goes.
>
>
>
> Bill Singer
>
>
>
> From: MS_Access_Professionals@yahoogroups.com
> [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of John
> Viescas
> Sent: Friday, November 30, 2012 11:20 AM
> To: MS_Access_Professionals@yahoogroups.com
> Subject: Re: [MS_AccessPros] Timer
>
>
>
>
>
> Bill-
>
> OK. Let's assume the text box is called txtClock. Format="hh:mm:nn"
>
> Three command buttons: cmdStart (Caption START), cmdPause (Caption
> PAUSE, Enabled = No), cmdStop (Caption STOP, enabled = No)
>
> Private Sub cmdStart_Click()
> Dim datTimeValue As Date
> ' Make sure it's a valid date/time value If Not IsDate(Me.txtClock)
> Then MsgBox "You must enter a valid time value."
> Exit Sub
> End If
> ' Grab the value as a Time - strip off any date part datTimeValue =
> TimeValue(Me.txtClock) ' Put it back as hh:mm:ss Me.txtClock =
> datTimeValue ' Make sure it's not zero If Format(datTimeValue,
> "hh:mm:nn") = "00:00:00" Then MsgBox "You must set the starting time
> to something other than zero."
> Exit Sub
> End If
> ' Turn on the timer interval
> Me.TimerInterval = 1000
> ' Enable the other two buttons
> Me.cmdPause.Enabled = True
> Me.cmdStop.Enabled = True
> End Sub
>
> Private Sub Form_Timer()
> Dim datTimeValue As Date
> ' Grab the current value
> datTimeValue = TimeValue(Me.txtClock)
> ' Subtract 1 second
> datTimeValue = datTimeValue - #00:00:01# ' Update the visual
> Me.txtClock = datTimeValue ' If decremented to 0, If
> Format(datTimeValue, "hh:mm:nn") = "00:00:00" Then ' Turn off the
> timer Me.TimerInterval = 0 ' Make a sound Beep ' Put the focus on the
> text box Me.txtClock.SetFocus ' Disable the Pause and Stop buttons
> Me.cmdPause.Enabled = False Me.cmdStop.Enabled = False End If End Sub
>
> Private Sub cmdPause_Click()
> ' Stop the timer
> Me.TimerInterval = 0
> End Sub
>
> Private Sub cmdStop_Click()
> ' Stop the timer
> Me.TimerInterval = 0
> ' Clear the text box
> Me.txtClock = #00:00:00#
> ' Put the focus there
> Me.txtClock.SetFocus
> ' Disable pause and stop
> Me.cmdPause.Enabled = False
> Me.cmdStop.Enabled = False
> End Sub
>
> That should get you startedC
>
> John Viescas, Author
> Microsoft Access 2010 Inside Out
> Microsoft Access 2007 Inside Out
> Microsoft Access 2003 Inside Out
> Building Microsoft Access Applications SQL Queries for Mere Mortals
> http://www.viescas.com/ (Paris, France)
>
> -----Original Message-----
> From: Bill Singer <Bill.Singer@...
> <mailto:Bill.Singer%40at-group.net> >
> Reply-To: <MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com> >
> Date: Friday, November 30, 2012 5:33 PM
> To: <MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com> >
> Subject: RE: [MS_AccessPros] Timer
>
> John,
>
> Well I guess that is bad news and good news. I was hoping for some
> type of "Clock" function. The good news is that it can still be done.
> Your question at the end of your email made me laugh. Absolutely I
> will need help writing that code! Anything you can send my way would be
great.
>
> Thanks,
>
> Bill Singer
>
> From: MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> [mailto:MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of John
> Viescas
> Sent: Friday, November 30, 2012 9:59 AM
> To: MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> Subject: Re: [MS_AccessPros] Timer
>
> Bill-
>
> If you just want a digital countdown, you can build your own with a
> Text Box and the Timer event. Enter the total time you want to start
> at in the text box, then click a Start button. Code behind the Start
> button would then set the form's TimerInterval property to 1000 (1000
> milliseconds = 1
> second) to start the clock. In your On Timer event procedure, subtract
> 1 second from the clock value. You could also provide a Pause button
> (set TimerInterval to 0 to stop it from firing) and a Stop button (set
> TimerInterval to 0 and set the Text Box to 0). Need some help writing
> the code?
>
> The other alternative is to search for a clock or countdown ActiveX
> control on the web.
>
> John Viescas, Author
> Microsoft Access 2010 Inside Out
> Microsoft Access 2007 Inside Out
> Microsoft Access 2003 Inside Out
> Building Microsoft Access Applications SQL Queries for Mere Mortals
> http://www.viescas.com/ (Paris, France)
>
> -----Original Message-----
> From: Bill Singer <Bill.Singer@...
> <mailto:Bill.Singer%40at-group.net>
> <mailto:Bill.Singer%40at-group.net> >
> Reply-To: <MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> <mailto:MS_Access_Professionals%40yahoogroups.com> >
> Date: Friday, November 30, 2012 4:32 PM
> To: <MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> <mailto:MS_Access_Professionals%40yahoogroups.com> >
> Subject: [MS_AccessPros] Timer
>
> I am wondering if access has a clock function or something that would
> work like a game clock in a football game. I want to set the time,
> click the start button and then have the clock start counting down.
>
> Thanks,
>
> Bill
>
> MN
>
> [Non-text portions of this message have been removed]
>
> ------------------------------------
>
> Yahoo! Groups Links
>
> [Non-text portions of this message have been removed]
>
> ------------------------------------
>
> Yahoo! Groups Links
>
>
>
>
>
> [Non-text portions of this message have been removed]
>

------------------------------------

Yahoo! Groups Links

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (7)
Recent Activity:
.

__,_._,___
Diposting oleh di Tidak ada komentar:

Re: [MS_AccessPros] Timer

 

John,
I just thought I would update you on this. The good news is that all the code is loaded in the form, the buttons made, and the text box set up. However, when I start the clock it runs for one second.

I have had a busy weekend so I have not been able to go through the code line by line.

I am thinking I need to put a loop in there.
I am at a conference for a few days so maybe I will get a chance to look at it there.

Thanks,
Bill
MN

--- In MS_Access_Professionals@yahoogroups.com, "Bill Singer" <Bill.Singer@...> wrote:
>
> John,
>
> Thanks and WOW!. I will try to work through this code this weekend. I will
> let you know how it goes.
>
>
>
> Bill Singer
>
>
>
> From: MS_Access_Professionals@yahoogroups.com
> [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of John Viescas
> Sent: Friday, November 30, 2012 11:20 AM
> To: MS_Access_Professionals@yahoogroups.com
> Subject: Re: [MS_AccessPros] Timer
>
>
>
>
>
> Bill-
>
> OK. Let's assume the text box is called txtClock. Format="hh:mm:nn"
>
> Three command buttons: cmdStart (Caption START), cmdPause (Caption PAUSE,
> Enabled = No), cmdStop (Caption STOP, enabled = No)
>
> Private Sub cmdStart_Click()
> Dim datTimeValue As Date
> ' Make sure it's a valid date/time value
> If Not IsDate(Me.txtClock) Then
> MsgBox "You must enter a valid time value."
> Exit Sub
> End If
> ' Grab the value as a Time - strip off any date part
> datTimeValue = TimeValue(Me.txtClock)
> ' Put it back as hh:mm:ss
> Me.txtClock = datTimeValue
> ' Make sure it's not zero
> If Format(datTimeValue, "hh:mm:nn") = "00:00:00" Then
> MsgBox "You must set the starting time to something other than
> zero."
> Exit Sub
> End If
> ' Turn on the timer interval
> Me.TimerInterval = 1000
> ' Enable the other two buttons
> Me.cmdPause.Enabled = True
> Me.cmdStop.Enabled = True
> End Sub
>
> Private Sub Form_Timer()
> Dim datTimeValue As Date
> ' Grab the current value
> datTimeValue = TimeValue(Me.txtClock)
> ' Subtract 1 second
> datTimeValue = datTimeValue - #00:00:01#
> ' Update the visual
> Me.txtClock = datTimeValue
> ' If decremented to 0,
> If Format(datTimeValue, "hh:mm:nn") = "00:00:00" Then
> ' Turn off the timer
> Me.TimerInterval = 0
> ' Make a sound
> Beep
> ' Put the focus on the text box
> Me.txtClock.SetFocus
> ' Disable the Pause and Stop buttons
> Me.cmdPause.Enabled = False
> Me.cmdStop.Enabled = False
> End If
> End Sub
>
> Private Sub cmdPause_Click()
> ' Stop the timer
> Me.TimerInterval = 0
> End Sub
>
> Private Sub cmdStop_Click()
> ' Stop the timer
> Me.TimerInterval = 0
> ' Clear the text box
> Me.txtClock = #00:00:00#
> ' Put the focus there
> Me.txtClock.SetFocus
> ' Disable pause and stop
> Me.cmdPause.Enabled = False
> Me.cmdStop.Enabled = False
> End Sub
>
> That should get you started©
>
> John Viescas, Author
> Microsoft Access 2010 Inside Out
> Microsoft Access 2007 Inside Out
> Microsoft Access 2003 Inside Out
> Building Microsoft Access Applications
> SQL Queries for Mere Mortals
> http://www.viescas.com/
> (Paris, France)
>
> -----Original Message-----
> From: Bill Singer <Bill.Singer@...
> <mailto:Bill.Singer%40at-group.net> >
> Reply-To: <MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com> >
> Date: Friday, November 30, 2012 5:33 PM
> To: <MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com> >
> Subject: RE: [MS_AccessPros] Timer
>
> John,
>
> Well I guess that is bad news and good news. I was hoping for some type of
> "Clock" function. The good news is that it can still be done. Your
> question at the end of your email made me laugh. Absolutely I will need
> help writing that code! Anything you can send my way would be great.
>
> Thanks,
>
> Bill Singer
>
> From: MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> [mailto:MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of John
> Viescas
> Sent: Friday, November 30, 2012 9:59 AM
> To: MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> Subject: Re: [MS_AccessPros] Timer
>
> Bill-
>
> If you just want a digital countdown, you can build your own with a Text
> Box and the Timer event. Enter the total time you want to start at in the
> text box, then click a Start button. Code behind the Start button would
> then set the form's TimerInterval property to 1000 (1000 milliseconds = 1
> second) to start the clock. In your On Timer event procedure, subtract 1
> second from the clock value. You could also provide a Pause button (set
> TimerInterval to 0 to stop it from firing) and a Stop button (set
> TimerInterval to 0 and set the Text Box to 0). Need some help writing the
> code?
>
> The other alternative is to search for a clock or countdown ActiveX
> control on the web.
>
> John Viescas, Author
> Microsoft Access 2010 Inside Out
> Microsoft Access 2007 Inside Out
> Microsoft Access 2003 Inside Out
> Building Microsoft Access Applications
> SQL Queries for Mere Mortals
> http://www.viescas.com/
> (Paris, France)
>
> -----Original Message-----
> From: Bill Singer <Bill.Singer@...
> <mailto:Bill.Singer%40at-group.net>
> <mailto:Bill.Singer%40at-group.net> >
> Reply-To: <MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> <mailto:MS_Access_Professionals%40yahoogroups.com> >
> Date: Friday, November 30, 2012 4:32 PM
> To: <MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> <mailto:MS_Access_Professionals%40yahoogroups.com> >
> Subject: [MS_AccessPros] Timer
>
> I am wondering if access has a clock function or something that would work
> like a game clock in a football game. I want to set the time, click the
> start button and then have the clock start counting down.
>
> Thanks,
>
> Bill
>
> MN
>
> [Non-text portions of this message have been removed]
>
> ------------------------------------
>
> Yahoo! Groups Links
>
> [Non-text portions of this message have been removed]
>
> ------------------------------------
>
> Yahoo! Groups Links
>
>
>
>
>
> [Non-text portions of this message have been removed]
>

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (6)
Recent Activity:
.

__,_._,___
Diposting oleh di Tidak ada komentar:

Re: [MS_AccessPros] Referencing control on subform to requery

 

Hi John, Thanks for the reply. I am still have the problem and I think is has to do with the fact that I am using a split-form in the tabctrl. The form name of the split form is F_Correspondence (selection type: Subform/Subreport) with two forms making the split. The upper form is frmCorrespondence (where the controls occur) and the bottom form is F_CorrespondenceDS (datasheet view). As a note I am trying to use the split-form design of A.D. Tejpal which is the only split-form I found to work within a tab-control.
Any further suggestions would be greatly appreciated.

Rod

--- In MS_Access_Professionals@yahoogroups.com, John Viescas <JohnV@...> wrote:
>
> Dear rodbevill- (name?)
>
> Assuming you'll be running Requery in code behind the outer form (perhaps
> in the Current event), you would reference the controls on the subforms
> like this:
>
> Me.Subformcontrolname.Form!NameOfControl
>
> Note that Subformcontrolname is the name of the subform control, NOT the
> name of the form inside the control - though they are often the same.
>
> John Viescas, Author
> Microsoft Access 2010 Inside Out
> Microsoft Access 2007 Inside Out
> Microsoft Access 2003 Inside Out
> Building Microsoft Access Applications
> SQL Queries for Mere Mortals
> http://www.viescas.com/
> (Paris, France)
>
>
>
> -----Original Message-----
> From: rodbevill <desertscroller@...>
> Reply-To: <MS_Access_Professionals@yahoogroups.com>
> Date: Saturday, December 1, 2012 5:25 AM
> To: <MS_Access_Professionals@yahoogroups.com>
> Subject: [MS_AccessPros] Referencing control on subform to requery
>
> The db that I am developing (Access 2010 on Windows 7) consist of a main
> form with a tabcontrol. Each tab consist of a split form. Within the
> split form are combo-boxes with data based on a saved query. The issue
> is requerying the row source for the various combo-boxes when the record
> on the main form changes. Each of the tabs contain different data from
> the db tables. Each tab only uses one table. Each tab is linked to the
> main form thru an id field.
> Query definition for the combo-box row source:
> SELECT tblParcel.lngParcelID, tblParcel.lngParcelNum
> FROM tblParcel
> WHERE (((tblParcel.lngTPTID)=GETTPTID()));
>
> The function GETTPTID() retrieves the ID which is updated every time the
> main form updates to a new record.
> I am trying to use the TabCtl On Change to initiate the requery for the
> combo-box. Tried several approaches at a loss. The combo-box is used to
> list the currently identified property parcels used when sending
> correspondence. Not sure if I have explained the issue well enough? Any
> suggestions would be greatly appreciated.
>
>
>
>
> ------------------------------------
>
> Yahoo! Groups Links
>

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (3)
Recent Activity:
.

__,_._,___
Diposting oleh di Tidak ada komentar:

Re: Bls: [belajar-access] sharing ttg aplikasi surat jalan

bisa mas, coba buat query spt ini misal, qryRptCetakSuratJalan ; query inilah yang nantinya di jadikan source object lainnya.

SELECT tblRptCetakSuratJalan.DONo, tblRptCetakSuratJalan.ID, tblRptCetakSuratJalan.Tgl, tblRptCetakSuratJalan.PONo, tblRptCetakSuratJalan.Hal, tblRptCetakSuratJalan.kpdId, tblRptCetakSuratJalan.SONo, tblRptCetakSuratJalan.NoPol, tblRptCetakSuratJalan.Banyaknya, tblRptCetakSuratJalan.NamaBarang, tblRptCetakSuratJalan.Remark, tblRptCetakSuratJalan.kodeBarang, tblMstBarang.NamaBarang1, tblMstBarang.NamaBarang2, tblMstBarang.NamaBarang3, tblMstBarang.NamaBarang4, tblRptCetakSuratJalan.satuan, tblMstBarang.NamaBarang5
FROM tblMstBarang INNER JOIN tblRptCetakSuratJalan ON tblMstBarang.kodeBarang = tblRptCetakSuratJalan.kodeBarang;

 
Thank you | Terima Kasih | Matur Suksema

Sumiyanto


From: Muhamad Safei <safeimuhamad@yahoo.com>
To: belajar-access@yahoogroups.com
Sent: Saturday, 1 December 2012 12:52 AM
Subject: Re: Bls: [belajar-access] sharing ttg aplikasi surat jalan

 
Ya mas..sebtulnya menu import itu dibuat uk menghindari proses pada menu buat surat jalan.nenu buat surat jalAn hanya digunakan uk edite data ktka ada kesalahan data dari import.jadi ceritanya gni mas,kta sudah pnya progran uk bikin surat jalan.dr program tersebut bisa export data ke excel dn menampilkan field dan data sprti yg sy krmkn pd athacment.nah sedangkhn program sisuja ini uk rekanan yg memasrkn produk dari perusHaan kita,mereka tidak mau iNput satu persatu.inginya data yang dri perushaan kita lgsung bisa diimport,dan mereka hny tinggal cetak surat jalan aja..krn datanya sama saja.permasalahannya apakah bisa kita menampilkan data keterangan barang dengan hanya import kode barang,tanpa harus proses pada combo lis pada form menu surat jalan??

Ok thnks..msh semangat mas..
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
From: Sumiyanto Surabaya <sumiyanto@live.com>
Sender: belajar-access@yahoogroups.com
Date: Fri, 30 Nov 2012 18:03:54 +0800
To: <belajar-access@yahoogroups.com>
ReplyTo: belajar-access@yahoogroups.com
Subject: RE: Bls: [belajar-access] sharing ttg aplikasi surat jalan

 
Bisa saja mas dilengkapi sambil jalan pada form buat surat jalan,  kan di sana ada combo box untuk pilihan. takutnya data yang ada hubungan nya dengan data master di excel nanti tidak konsisten. silakan di coba dahulu. Nanti kirim kemari lagi hasilnya.  
 
Biasanya sih yang kami lakukan kolaborasi dengan data excel, hanya pertama kali insert data master barang. Karena biasanya data ini ribuan item dan jika di entry manual membutuhkan waktu yang sangat lama. Sehingga jika mau implementasi suatu aplikasi bisa mempersingkat waktu. Tetapi jika memasuki entry transaksi ya harus menjalankannya melalui aplikasi. Tidak di by pass melalui insert by query. Demikian masih semangat kan.
 
Salam,
 
Sumiyanto Surabaya
 
http://cakyanto.wordpress.com/
http://mugi.or.id/blogs/sumiyanto/
From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com] On Behalf Of Muhamad Safei
Sent: Friday, November 30, 2012 3:25 PM
To: belajar-access@yahoogroups.com
Subject: Bls: Bls: [belajar-access] sharing ttg aplikasi surat jalan
 
harus persis sama ya mas?? kl kita buat fieldnya sama tapi bbrpa datanya dikosongkan bisa tidakk ya.misalnya kita hanya mengisi kpdIdnya saja atau kodebarangnya saja..sementara filed kepada1-kepada4 kita ambil dari tabel master,begitu juga untuk kode barang... bisa tidak ya??
 
 
Thnks atas jawabannya...
 
 
Dari: Sumiyanto Surabaya <sumiyanto@live.com>
Kepada: belajar-access@yahoogroups.com
Dikirim: Jumat, 30 November 2012 6:53
Judul: RE: Bls: [belajar-access] sharing ttg aplikasi surat jalan
 
 
 
 
Lengkap mungkin tidak bisa mas, karena field table hasil import excel tidak sama persis seperti table TblRptCetakSuratJalan seperti gambar diatas
 
Ini query append yang bisa dilakukan;
 
INSERT INTO tblRptCetakSuratJalan ( Tgl, NoPol, sopir, DONo, PONo, SONo, Banyaknya )
SELECT NamaTabel.Tanggal, NamaTabel.NoPol, NamaTabel.Supir, NamaTabel.NoDo, NamaTabel.NoPo, NamaTabel.NoSo, NamaTabel.Qty
FROM NamaTabel;
 
Mungkin hasil query ini solusinya bisa di edit/dilengkapi pada form buat surat jalan, atau menambahkan data pada excel nya, sehingga pada saat di import ke table baru dan di insert akan sesuai.
 
Salam jabat erat selalu dan semoga memberi semangat, meminjam salamnya bang Edy dan cak Hariyanto
 
Sumiyanto Surabaya
 
 
 
 
 
 
From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com] On Behalf Of Muhamad Safei
Sent: Thursday, November 29, 2012 10:09 AM
To: belajar-access@yahoogroups.com
Subject: Re: Bls: [belajar-access] sharing ttg aplikasi surat jalan
 
 
Insert ke TblRptCetakSuratJalan pak.bagaimana cra insert update ketabelnya.dan apakah bisa data yg ditampilkan pada tblrptcetaksuratjalan lengkap seprti data sebelumnya??krn tbl trsbt menJadi source uk cetak surat jalan..
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
From: Sumiyanto Surabaya <sumiyanto@yahoo.com>
Sender: belajar-access@yahoogroups.com
Date: Wed, 28 Nov 2012 16:35:42 -0800 (PST)
To: belajar-access@yahoogroups.com<belajar-access@yahoogroups.com>
ReplyTo: belajar-access@yahoogroups.com
Subject: Re: Bls: [belajar-access] sharing ttg aplikasi surat jalan
 
 
Function tersebut hanya meng-import data dari excel, jadi hanya membuat table baru. jadi belum di jadikan sumber data object manapun. nah mungkin bapak bisa menjelaskan, setelah terbentuk table baru ini, mau di insertkan ke table mana.
di sana kan ada tblTrSuratJalan, dan tblRptCetakSuratJalan. baru nanti kita buat query insert/update.
 
 
Thank you | Terima Kasih | Matur Suksema

Sumiyanto
 
From: Muhamad Safei <safeimuhamad@yahoo.com>
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Sent: Wednesday, 28 November 2012 2:33 PM
Subject: Bls: [belajar-access] sharing ttg aplikasi surat jalan
 
 
Apakah perlu ada perubahan pada tabel databasenya??
 
 


 
 
 
 
Dari: Sumiyanto Surabaya <sumiyanto@live.com>
Kepada: belajar-access@yahoogroups.com
Dikirim: Rabu, 28 November 2012 9:14
Judul: RE: [belajar-access] sharing ttg aplikasi surat jalan
 
 
Karena menggunakan access 2003, bisa di save as data excelnya  ke 2003 juga (data unk import.xls) kemudian jalankan prosedur import data excel sbb;
 
Private Sub Command3_Click()
 
'sesuaikan nama table dan lokasi path data excelnya
DoCmd.TransferSpreadsheet acImport, _
acSpreadsheetTypeExcel8, _
"NamaTabel", _
"C:\Documents and Settings\Yanto\My Documents\Downloads\Compressed\SiSuJa\SiSuJa\data unk import.xls", _
True
 
MsgBox "import DATA excel finish", _
vbOKOnly, "Import"
 
End Sub
 
 
Salam,
 
Sumiyanto Surabaya
 
 
 
 
From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com] On Behalf Of Muhamad Safei
Sent: Tuesday, November 27, 2012 9:44 AM
To: belajar-access@yahoogroups.com
Subject: [belajar-access] sharing ttg aplikasi surat jalan [1 Attachment]
 
 
[Attachment(s) from Muhamad Safei included below]
slamt pagi semuanya..saya ada aplikasi surat jalan..saya akan menambahkan menu untuk import untuk memasukan data agar bisa langsung dari excel,tanpa input satu2...mohon masukannya...langkah2 apa saja yang mesti saya lakukan...thnks...file terlampir...
 
 




  
 
 
 
 
 


Diposting oleh di Tidak ada komentar:

RE: [MS_AccessPros] IT suggests not to use MS Access

 

Dan

If your IT department says don't use Access for databases, it's because they
don't know how to properly develop an Access database. Splitting is the answer.
The data in aback end rarely becomes unstable. But unless you have proof they
won't listen to you. That's a decent article you linked. If you can get the lead
IT person to read it and discuss it with you, you might be able to convince him
that Access is okay to use...as long as the data does not have to be secured.

Compromise and build the back end in SQL Server. If money is an issue, use SQL
Server Express. It's free and has all the tools you will need to build your
tables. Plus it has the security and stability of SQL Server Standard edition.

You can even build your tables in Access and then use SQL Server Migration
Assistant for Access to upsize the back end.

Regards,
Bill Mosca,
Founder, MS_Access_Professionals
That'll do IT <http://thatlldoit.com/> http://thatlldoit.com
MS Access MVP

<https://mvp.support.microsoft.com/profile=C4D9F5E7-BB03-4291-B816-64270730881E>
https://mvp.support.microsoft.com/profile=C4D9F5E7-BB03-4291-B816-64270730881E

My Nothing-to-do-with Access blog

<http://wrmosca.wordpress.com> http://wrmosca.wordpress.com

From: MS_Access_Professionals@yahoogroups.com
[mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Dan Abc
Sent: Saturday, December 01, 2012 6:39 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] IT suggests not to use MS Access

At work our IT is suggesting not to use MS Access because the data base is prone
to corruption, is that true?

the data bases that I made are small and still work fine after 2 years

http://www.techrepublic.com/blog/10things/10-reasons-why-it-pros-hate-microsoft-
access-but-really-shouldnt/386

[Non-text portions of this message have been removed]

[Non-text portions of this message have been removed]

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (3)
Recent Activity:
.

__,_._,___
Diposting oleh di Tidak ada komentar:

[belajar-access] Command Add

 

Dear Para Master Access


Saya new member, minta bantuan para master sekalian.

Kondisi :

Saya buat table namanya "JURNAL" berisi nama fields-fields dibawah ini :
Fields 1 "KdDivisi" ---- text
Fileds 2 "KdSpk" ----- text
Fields 3 "Tgl" ---------Date/time
Fields 4 "NoBukti" -----text
Fields 5 "ExtraKey"----Number
Fields 6 "KdNsb" ------text
Fields 7 "KdThp" ------text
Fields 8 "KdSbdy" -----text
Fields 9 "Uraian" ------text
Fields 10 "Debet" -----currency
Fields 11 "Kredit" -----currency

Saya buat Form dari data Jurnal tersebut, dan saya tambahkan beberapa button antaranya New, Add, Delete, Close, & Edit.
Dimana button Add tersebut mau saya kondisikan bila saya "click" langsung save & new tetapi nilai fields 1, fields 2, fields 3 & fileds 4 sama seperti isian sebelumnya karena berarti satu NoBukti tanpa mengisi ulang (menghindari lupa nilai NoBukti sebelumnya) dan extrakey akan bernilai +1 dari nilai sebelumnya. Gimana mendeskripsikan kondisi tersebut para master. Jika button New berarti Save & New semua fields kosong artinya kelompok NoBukti baru dan extrakey bernilai 1.

Terimakasih.



Salam
Purwanto
NewMember (dalam proses belajar)




 
Salam
Purwanto

Finance Staff
PT. Wijaya Karya -- Proyek PLTU Kalsel, Asam asam
email. wanto_pur17@yahoo.com
tlp. 085252582676

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (1)
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___
Diposting oleh di Tidak ada komentar:

[belajar-access] Membuat command Add

 

Dear Para Master Access

Sya new member, mohon dibantu Pak, Mas, Mbak, Bu...
Saya mempunyai table Jurnal sudah saya buat form.y
Jurnal tersebut berisi field "Tgl" "KdDivisi" "KdSPK" "NoBukti" "KdNsbah" "KdTahab" "KdSumberdaya" "Uraian" "Debet" "Kredit".

Nah pada form.y nanti akan saya buat button "New" "Add" "Delete" "Close"

Dimana btnNew akan menghasilkan "save & New Rocords"

sedangkan btnAdd maksudnya "save + new records" tetapi dalam kondisi beberapa field tetap nilainya sama.

Contoh : Jika saya nantinya klik "Add" akan membuat kondisi ke new records tetapi nilai field "Tgl" "KdDivisi" "KdSPK" "NoBukti" tetap sama. Tapi saya bingung gimana caranya membuat kondisi tersebut.

Jadi mohon dibantu Om?

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (1)
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___
Diposting oleh di Tidak ada komentar:
Langganan: Postingan (Atom)