Sabtu, 30 September 2017

[belajar-access] File - Tata Tertib dan Aturan.txt

 


Tata tertib dan peraturan
Mailing List: belajar-access@yahoogroups.com

1. Mailing list ini membahas mengenai pemrograman Microsoft Access.
2. Tidak diperkenankan mem-posting topik yang tidak ada kaitannya sama sekali dengan pemrograman MS Access, peluang kerja atau tawaran kerja sama dengan keahlian di bidang MS Access, atau pengajaran/kursus MS Acces. Pelanggaran terhadap aturan ini akan di-ban dari keanggotaan milis ini.
3. Mohon berdiskusi dengan baik, dengan semangat membangun, demi kemajuan kita bersama. Hindarilah perbantahan (flame) yang bisa menjadi pertengkaran yang tidak perlu.
4 Hindari reply permintaan one-liner seperti 'saya minta juga dong', 'saya setuju', dan lain-lain yang tidak perlu.
5. Sedapat mungkin memberikan data-data yang lengkap dalam mengajukan suatu masalah untuk memudahkan rekan-rekan sesama member mengidentifikasi dan mencarikan solusi, termasuk memberikan subject yang sesuai dengan isi email, tidak dengan kata-kata seperti "tologing dong", "pusing...", "ada yang bisa bantu..", dll.

Moderator

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

Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

SPAM IS PROHIBITED

.

__,_._,___

[AccessDevelopers] File - Monthly_Notices.txt

 


Monthly notices:

Hi Kids!:

Don't forget to check out our "Links" section at the website for helpful sites. Also take a peek at books that others have found worthwhile in our books database under the 'Database' link of the main AccessDevelopers page. Feel free to add any books or links that you have found useful.

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

Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.


Please zip all files prior to uploading to Files section.

.

__,_._,___

Jumat, 29 September 2017

Re: [belajar-access] Memunculkan form lain dalam subform

 

Dear mas nino

Maaf email sebelumnya kurang spesifik, maksud sy memunculkan tombol tersebut di field / kolom untuk membuka form... 

Trims
Yadi

Pada tanggal 27 Sep 2017 3.46 PM, "'NinoGuevara@Gmail.com' ninoguevara@gmail.com [belajar-access]" <belajar-access@yahoogroups.com> menulis:
 

Dear Mas Yadi,

Bisa .. di tombol yang bersangkutan buat saja event Open Form, maka saat tombol ditekan sebuah form akan terbuka.

Rgds,
NGR



On 26/09/2017 14.35, Yadi yadisupriyadi83@yahoo.co.id [belajar-access] wrote:
 
Dear all

Bisa kah access memunculkan form lain dengan menekan button dalam kolom subform seperti gambar (kolom size). 

Mohon pencerahannya

Trim's
Yadi

__._,_.___

Posted by: Yadi <yadisupriyadi83@yahoo.co.id>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (3)

Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

SPAM IS PROHIBITED

.

__,_._,___

[MS_AccessPros] Grouping controls together in Access

 

I need a way to group a set up textboxes and comboboxes together. Does Access have a container control that wil ldo this besides the Tab control. I know Vb has a Panel and Frame Control and I teste The Option Group but it is just for options buttons. Is there away to achieve this effect, in most case the group of controls would be visible on not visible. But there are a few variance here also.


Thank you for any ideas you may have.


Art Lorenzini

SD

__._,_.___

Posted by: dbalorenzini@yahoo.com
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (1)

Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.


.

__,_._,___

Re: [MS_AccessPros] Put quote marks around result

 

This Actually WOrked:


Private Sub cmbCurrentECabinet_AfterUpdate()
'Me.cmbCurrentEFolder.RowSource = "SELECT Archive.ArchiveKey, Archive.ArchiveName, MainTitle.MainTitleKey, MainTitle.MainLevelTitle FROM " & _
'        "Archive INNER JOIN MainTitle ON Archive.ArchiveKey = MainTitle.ArchiveKey  where ArchiveKey='" & Me.cmbCurrentECabinet.Value & "'"
'    Me.cmbCurrentEFolder = Me.cmbCurrentEFolder.ItemData(0)

Dim sCurrentEFolderLoadSource As String

sCurrentEFolderLoadSource = "SELECT Distinct Archive.ArchiveKey, Archive.ArchiveName, MainTitle.MainTitleKey, MainTitle.MainLevelTitle FROM " & _
     "Archive INNER JOIN MainTitle ON Archive.ArchiveKey = MainTitle.ArchiveKey  where Archive.ArchiveKey='" & Me.cmbCurrentECabinet.Value & "'"
    
 Me.cmbCurrentEFolder.RowSource = sCurrentEFolderLoadSource
    Me.cmbCurrentEFolder.Requery





With Warm Regards,
 
Arthur D. Lorenzini
IT System Manager
Cheyenne River Housing Authority
Wk.(605)964-4265  Ext. 130
Fax (605)964-1070

"Valar Dohaeris"






On ‎Thursday‎, ‎September‎ ‎28‎, ‎2017‎ ‎10‎:‎36‎:‎31‎ ‎PM, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:


 

Art,
What does the select statement look like with the quotes?

Duane


From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of Art Lorenzini dbalorenzini@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Thursday, September 28, 2017 7:35:51 PM
To: Liz Ravenwood liz_ravenwood@beaerospace.com [MS_Access_Professionals]
Subject: Re: RE: [MS_AccessPros] Put quote marks around result
 


Added the quotes and Its still does not return anything.


With Warm Regards,
 
Arthur D. Lorenzini
IT System Manager
Cheyenne River Housing Authority
Wk.(605)964-4265  Ext. 130
Fax (605)964-1070

"Valar Dohaeris"






On ‎Thursday‎, ‎September‎ ‎28‎, ‎2017‎ ‎05‎:‎11‎:‎29‎ ‎PM, Liz Ravenwood liz_ravenwood@beaerospace.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:


 

…  "where ArchiveKey = '" & me.cmbCurrentECabinet.Value & "'"

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com]
Sent: Thursday, September 28, 2017 1:55 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Put quote marks around result

 




I have the following code:

 

Private Sub cmbCurrentECabinet_AfterUpdate()
Me.cmbCurrentEFolder.RowSource = "SELECT Archive.ArchiveKey, Archive.ArchiveName, MainTitle.MainTitleKey, MainTitle.MainLevelTitle FROM " & _
        "Archive INNER JOIN MainTitle ON Archive.ArchiveKey = MainTitle.ArchiveKey  where ArchiveKey=" & Me.cmbCurrentECabinet.Value
       

Me.cmbCurrentEFolder = Me.cmbCurrentEFolder.ItemData(0)
End Sub

 

When I display the select statement I get thr following

 

SELECT Archive.ArchiveKey, Archive.ArchiveName, MainTitle.MainTitleKey, MainTitle.MainLevelTitle FROM Archive INNER JOIN MainTitle ON Archive.ArchiveKey = MainTitle.ArchiveKey  where ArchiveKey=030215114103admindbaCAB

 

I am pretty sure I need to put quotes areound 030215114103admindbaCAB. How woul d I do t hat?

 

This is the second combo of a linked  set. First combo called cmbCurrentECabinet its record source is

SELECT DISTINCT Archive.ArchiveKey, Archive.[ArchiveName] FROM Archive;

 

The after_update code above to load te second combo cmbCurrentEFolder.

 

Thanks for any ideas.

 

Art Lorenzini

Sioux Falls, SD






This email (and all attachments) is for the sole use of the intended recipient(s) and may contain privileged and/or proprietary information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message.


__._,_.___

Posted by: Art Lorenzini <dbalorenzini@yahoo.com>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (5)

Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.


.

__,_._,___

Kamis, 28 September 2017

Re: [MS_AccessPros] Put quote marks around result

 

Art,
What does the select statement look like with the quotes?

Duane


From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of Art Lorenzini dbalorenzini@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Thursday, September 28, 2017 7:35:51 PM
To: Liz Ravenwood liz_ravenwood@beaerospace.com [MS_Access_Professionals]
Subject: Re: RE: [MS_AccessPros] Put quote marks around result
 


Added the quotes and Its still does not return anything.


With Warm Regards,
 
Arthur D. Lorenzini
IT System Manager
Cheyenne River Housing Authority
Wk.(605)964-4265  Ext. 130
Fax (605)964-1070

"Valar Dohaeris"






On ‎Thursday‎, ‎September‎ ‎28‎, ‎2017‎ ‎05‎:‎11‎:‎29‎ ‎PM, Liz Ravenwood liz_ravenwood@beaerospace.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:


 

…  "where ArchiveKey = '" & me.cmbCurrentECabinet.Value & "'"

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com]
Sent: Thursday, September 28, 2017 1:55 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Put quote marks around result

 




I have the following code:

 

Private Sub cmbCurrentECabinet_AfterUpdate()
Me.cmbCurrentEFolder.RowSource = "SELECT Archive.ArchiveKey, Archive.ArchiveName, MainTitle.MainTitleKey, MainTitle.MainLevelTitle FROM " & _
        "Archive INNER JOIN MainTitle ON Archive.ArchiveKey = MainTitle.ArchiveKey  where ArchiveKey=" & Me.cmbCurrentECabinet.Value
       

Me.cmbCurrentEFolder = Me.cmbCurrentEFolder.ItemData(0)
End Sub

 

When I display the select statement I get thr following

 

SELECT Archive.ArchiveKey, Archive.ArchiveName, MainTitle.MainTitleKey, MainTitle.MainLevelTitle FROM Archive INNER JOIN MainTitle ON Archive.ArchiveKey = MainTitle.ArchiveKey  where ArchiveKey=030215114103admindbaCAB

 

I am pretty sure I need to put quotes areound 030215114103admindbaCAB. How woul d I do t hat?

 

This is the second combo of a linked  set. First combo called cmbCurrentECabinet its record source is

SELECT DISTINCT Archive.ArchiveKey, Archive.[ArchiveName] FROM Archive;

 

The after_update code above to load te second combo cmbCurrentEFolder.

 

Thanks for any ideas.

 

Art Lorenzini

Sioux Falls, SD






This email (and all attachments) is for the sole use of the intended recipient(s) and may contain privileged and/or proprietary information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message.


__._,_.___

Posted by: Duane Hookom <duanehookom@hotmail.com>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (4)

Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.


.

__,_._,___

Re: RE: [MS_AccessPros] Put quote marks around result

 

Added the quotes and Its still does not return anything.


With Warm Regards,
 
Arthur D. Lorenzini
IT System Manager
Cheyenne River Housing Authority
Wk.(605)964-4265  Ext. 130
Fax (605)964-1070

"Valar Dohaeris"






On ‎Thursday‎, ‎September‎ ‎28‎, ‎2017‎ ‎05‎:‎11‎:‎29‎ ‎PM, Liz Ravenwood liz_ravenwood@beaerospace.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:


 

…  "where ArchiveKey = '" & me.cmbCurrentECabinet.Value & "'"

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com]
Sent: Thursday, September 28, 2017 1:55 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Put quote marks around result

 




I have the following code:

 

Private Sub cmbCurrentECabinet_AfterUpdate()
Me.cmbCurrentEFolder.RowSource = "SELECT Archive.ArchiveKey, Archive.ArchiveName, MainTitle.MainTitleKey, MainTitle.MainLevelTitle FROM " & _
        "Archive INNER JOIN MainTitle ON Archive.ArchiveKey = MainTitle.ArchiveKey  where ArchiveKey=" & Me.cmbCurrentECabinet.Value
       

Me.cmbCurrentEFolder = Me.cmbCurrentEFolder.ItemData(0)
End Sub

 

When I display the select statement I get thr following

 

SELECT Archive.ArchiveKey, Archive.ArchiveName, MainTitle.MainTitleKey, MainTitle.MainLevelTitle FROM Archive INNER JOIN MainTitle ON Archive.ArchiveKey = MainTitle.ArchiveKey  where ArchiveKey=030215114103admindbaCAB

 

I am pretty sure I need to put quotes areound 030215114103admindbaCAB. How woul d I do t hat?

 

This is the second combo of a linked  set. First combo called cmbCurrentECabinet its record source is

SELECT DISTINCT Archive.ArchiveKey, Archive.[ArchiveName] FROM Archive;

 

The after_update code above to load te second combo cmbCurrentEFolder.

 

Thanks for any ideas.

 

Art Lorenzini

Sioux Falls, SD






This email (and all attachments) is for the sole use of the intended recipient(s) and may contain privileged and/or proprietary information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message.

__._,_.___

Posted by: Art Lorenzini <dbalorenzini@yahoo.com>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (3)

Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.


.

__,_._,___

RE: [MS_AccessPros] Put quote marks around result

 

…  "where ArchiveKey = '" & me.cmbCurrentECabinet.Value & "'"

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com]
Sent: Thursday, September 28, 2017 1:55 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Put quote marks around result

 




I have the following code:

 

Private Sub cmbCurrentECabinet_AfterUpdate()
Me.cmbCurrentEFolder.RowSource = "SELECT Archive.ArchiveKey, Archive.ArchiveName, MainTitle.MainTitleKey, MainTitle.MainLevelTitle FROM " & _
        "Archive INNER JOIN MainTitle ON Archive.ArchiveKey = MainTitle.ArchiveKey  where ArchiveKey=" & Me.cmbCurrentECabinet.Value
       

Me.cmbCurrentEFolder = Me.cmbCurrentEFolder.ItemData(0)
End Sub

 

When I display the select statement I get thr following

 

SELECT Archive.ArchiveKey, Archive.ArchiveName, MainTitle.MainTitleKey, MainTitle.MainLevelTitle FROM Archive INNER JOIN MainTitle ON Archive.ArchiveKey = MainTitle.ArchiveKey  where ArchiveKey=030215114103admindbaCAB

 

I am pretty sure I need to put quotes areound 030215114103admindbaCAB. How woul d I do t hat?

 

This is the second combo of a linked  set. First combo called cmbCurrentECabinet its record source is

SELECT DISTINCT Archive.ArchiveKey, Archive.[ArchiveName] FROM Archive;

 

The after_update code above to load te second combo cmbCurrentEFolder.

 

Thanks for any ideas.

 

Art Lorenzini

Sioux Falls, SD






This email (and all attachments) is for the sole use of the intended recipient(s) and may contain privileged and/or proprietary information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message.

__._,_.___

Posted by: Liz Ravenwood <Liz_Ravenwood@beaerospace.com>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (2)

Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.


.

__,_._,___

[MS_AccessPros] Put quote marks around result

 

I have the following code:


Private Sub cmbCurrentECabinet_AfterUpdate()
Me.cmbCurrentEFolder.RowSource = "SELECT Archive.ArchiveKey, Archive.ArchiveName, MainTitle.MainTitleKey, MainTitle.MainLevelTitle FROM " & _
        "Archive INNER JOIN MainTitle ON Archive.ArchiveKey = MainTitle.ArchiveKey  where ArchiveKey=" & Me.cmbCurrentECabinet.Value
       

Me.cmbCurrentEFolder = Me.cmbCurrentEFolder.ItemData(0)
End Sub


When I display the select statement I get thr following


SELECT Archive.ArchiveKey, Archive.ArchiveName, MainTitle.MainTitleKey, MainTitle.MainLevelTitle FROM Archive INNER JOIN MainTitle ON Archive.ArchiveKey = MainTitle.ArchiveKey  where ArchiveKey=030215114103admindbaCAB


I am pretty sure I need to put quotes areound 030215114103admindbaCAB. How would I do that?


This is the second combo of a linked  set. First combo called cmbCurrentECabinet its record source is

SELECT DISTINCT Archive.ArchiveKey, Archive.[ArchiveName] FROM Archive;


The after_update code above to load te second combo cmbCurrentEFolder.


Thanks for any ideas.


Art Lorenzini

Sioux Falls, SD

__._,_.___

Posted by: dbalorenzini@yahoo.com
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (1)

Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.


.

__,_._,___