Kamis, 30 November 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 (129)

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 (161)

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.

.

__,_._,___

[MS_AccessPros] Reference Libraries - Different Versions

 

Hello Pros,

We just installed an Autodesk Vault software on our engineering computers. It has links into Office and especially Outlook. It must also affect Access because after the install, the switchboard won't run. My investigations into this lead me to believe that 2 different versions of msado28.tlb is to blame. The engineering PCs now have a 2013 version of the file where all my other PCs have a 2012 version of the file. I tried to rename the 2012 version on my PC and was going to copy in the 2013 version and see if it would compile and run but the PC wouldn't let me rename the file. I also tried compiling the database on the engineering PC but it gives a 429 error. How can I fix this reference?

Doyce

__._,_.___

Posted by: winberry.doyce@con-way.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.


.

__,_._,___

Rabu, 29 November 2017

Re: [MS_AccessPros] Re: Dlookup Compile Error

 

The only time it would be false would be if it does not have content. Its being ran in the cmbFOlders_AfterUpdate.


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 ‎Tuesday‎, ‎November‎ ‎28‎, ‎2017‎ ‎03‎:‎32‎:‎01‎ ‎PM, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:


 

Art,
If it works, stick with it. I don't see:
- where you would be setting cboIndexKey01.visible to false
- where you are actually running the code

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: Tuesday, November 28, 2017 3:06 PM
To: Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals]
Subject: Re: [MS_AccessPros] Re: Dlookup Compile Error
 


I came up with this and it works but is there a cleaner way to do it?  

 If IsNull(DLookup("[IndexKey01Label]", "tblCabinets", "[CabinetID] = " & Forms!frmMainWindow![cmbCurrentECabinet])) Then
       Me.lblIndexKey01Label.Visible = False
     Else
       Me.lblIndexKey01Label.Caption = DLookup("[IndexKey01Label]", "tblCabinets", "[CabinetID] = " & Forms!frmMainWindow![cmbCurrentECabinet])
       Me.lblIndexKey01Label.Visible = True
       Me.cboIndexKey01.Visible = True
       Me.cboIndexKey01.RowSource = "SELECT tblFolders.FolderID, tblFolders.IndexKey01 FROM tblFolders " & _
     " WHERE FolderID = " & Nz(Me.cmbCurrentEFolder) & _
     " ORDER BY IndexKey01"
     End If




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 ‎Tuesday‎, ‎November‎ ‎28‎, ‎2017‎ ‎02‎:‎23‎:‎11‎ ‎PM, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:


 

Art,


Is the control a label? If so, it doesn't have a value. You would need to set the caption property. Assuming the CabinetID is numeric:


Me.lblIndexKey01Label.Caption = DLookup("[IndexKey01Label]", "tblCabinets", "[CabinetID] = " & Me.cmbCurrentECabinet)


Duane Hookom





From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of dbalorenzini@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Tuesday, November 28, 2017 2:07 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Re: Dlookup Compile Error
 


Yeah me. I figured out the syntax error but now I have another error:


Me.lblIndexKey01Label = DLookup("[IndexKey01Label]", "tblCabinets", "[CabinetID] = " & Me.cmbCurrentECabinet)


Object doesn't support this property or method.


The specific on the combo is:


Name: cmbCurrentECabinet


Record Source: SELECT tblCabinets.CabinetID, tblCabinets.CabinetName FROM tblCabinets;

Bound Colum 1

Column COunt: 2

Column Width: 0;1





__._,_.___

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 (8)

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.


.

__,_._,___

Selasa, 28 November 2017

RE: [MS_AccessPros] Re: Dlookup Compile Error

 

Hi Art

Philosophically, I'm with Duane – "if it ain't broke, don't fix it".  However, in this case you can greatly reduce the amount of code and improve performance (though I suspect that is not an issue).

If I understand correctly, you want the caption of the label set to the value of [IndexKey01Label], which is a field in the same record as the selected row in your combo box, cmbCurrentECabinet.

First, I suggest you add this field as a third (hidden) column in your RowSource, to get rid of the DLookups:
    RowSource: SELECT tblCabinets.CabinetID, tblCabinets.CabinetName, tblCabinets.IndexKey01Label FROM tblCabinets ORDER BY tblCabinets.CabinetName;
    BoundColumn:   1
    ColumnCount:    3
    ColumnWidths:  0;;0
(Note the two semicolons in ColumnWidths – if you don't specify the width for a column then it gets to use (or share, if there are more than one) all the unallocated width in the combo box.  In this case, as the other two columns have zero width, the second column (CabinetName) gets the whole combo box width.  This makes it easier to maintain – if, say, you want to change the size of the combo box.)

Now, you can refer to the IndexKey01Labelfor the currently selected cabinet by:
     Me.cmbCurrentECabinet.Column(2)
(Note that the Column property for a combo box starts counting at 0, so Column(2) is the THIRD column)

Also, I assume that lblIndexKey01Label is the attached label for cboIndexKey01, in which case it will appear/disappear as you make the combo box visible.invisible.

Now your code can look like this:

Dim strIndexKey01Label As String
strIndexKey01Label = Nz(Me.cmbCurrentECabinet.Column(2), "")
If Len(strIndexKey01Label) =0 Then
    Me.cboIndexKey01.Visible = False
Else
    Me.lblIndexKey01Label.Caption = strIndexKey01Label
    Me.cboIndexKey01.RowSource = "SELECT tblFolders.FolderID, tblFolders.IndexKey01 FROM tblFolders " & _
     " WHERE FolderID = " & Nz(Me.cmbCurrentEFolder) & _
     " ORDER BY IndexKey01"
    Me.cboIndexKey01.Visible = True
End If

What I'm not clear about is the relationship between cmbCurrentECabinet and cmbCurrentEFolder and cboIndexKey01.  It seems to me that you should be setting cboIndexKey01.RowSource in the AfterUpdate event of cmbCurrentEFolder, not cmbCurrentECabinet, because it needs to change when (and only when) cmbCurrentECabinet changes.

Best wishes,
Graham

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com]
Sent: Wednesday, 29 November 2017 10:32
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] Re: Dlookup Compile Error

 

 

Art,

If it works, stick with it. I don't see:

- where you would be setting cboIndexKey01.visible to false

- where you are actually running the code

 

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: Tuesday, November 28, 2017 3:06 PM
To: Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals]
Subject: Re: [MS_AccessPros] Re: Dlookup Compile Error

 

 

I came up with this and it works but is there a cleaner way to do it?  

 

 If IsNull(DLookup("[IndexKey01Label]", "tblCabinets", "[CabinetID] = " & Forms!frmMainWindow![cmbCurrentECabinet])) Then
       Me.lblIndexKey01Label.Visible = False
     Else
       Me.lblIndexKey01Label.Caption = DLookup("[IndexKey01Label]", "tblCabinets", "[CabinetID] = " & Forms!frmMainWindow![cmbCurrentECabinet])
       Me.lblIndexKey01Label.Visible = True
       Me.cboIndexKey01.Visible = True
       Me.cboIndexKey01.RowSource = "SELECT tblFolders.FolderID, tblFolders.IndexKey01 FROM tblFolders " & _
     " WHERE FolderID = " & Nz(Me.cmbCurrentEFolder) & _
     " ORDER BY IndexKey01"
     End If

 

 

 


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 ‎Tuesday‎, ‎November‎ ‎28‎, ‎2017‎ ‎02‎:‎23‎:‎11‎ ‎PM, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:

 

 

 

Art,

 

Is the control a label? If so, it doesn't have a value. You would need to set the caption property. Assuming the CabinetID is numeric:

 

Me.lblIndexKey01Label.Caption = DLookup("[IndexKey01Label]", "tblCabinets", "[CabinetID] = " & Me.cmbCurrentECabinet)

 

Duane Hookom

 

 


From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of dbalorenzini@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Tuesday, November 28, 2017 2:07 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Re: Dlookup Compile Error

 

 

Yeah me. I figured out the syntax error but now I have another error:

 

Me.lblIndexKey01Label = DLookup("[IndexKey01Label]", "tblCabinets", "[CabinetID] = " & Me.cmbCurrentECabinet)

 

Object doesn't support this property or method.

 

The specific on the combo is:

 

Name: cmbCurrentECabinet

 

Record Source: SELECT tblCabinets.CabinetID, tblCabinets.CabinetName FROM tblCabinets;

Bound Colum 1

Column COunt: 2

Column Width: 0;1

 

 

__._,_.___

Posted by: "Graham Mandeno" <graham@mandeno.com>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (7)

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] Re: Dlookup Compile Error

 

Art,
If it works, stick with it. I don't see:
- where you would be setting cboIndexKey01.visible to false
- where you are actually running the code

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: Tuesday, November 28, 2017 3:06 PM
To: Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals]
Subject: Re: [MS_AccessPros] Re: Dlookup Compile Error
 


I came up with this and it works but is there a cleaner way to do it?  

 If IsNull(DLookup("[IndexKey01Label]", "tblCabinets", "[CabinetID] = " & Forms!frmMainWindow![cmbCurrentECabinet])) Then
       Me.lblIndexKey01Label.Visible = False
     Else
       Me.lblIndexKey01Label.Caption = DLookup("[IndexKey01Label]", "tblCabinets", "[CabinetID] = " & Forms!frmMainWindow![cmbCurrentECabinet])
       Me.lblIndexKey01Label.Visible = True
       Me.cboIndexKey01.Visible = True
       Me.cboIndexKey01.RowSource = "SELECT tblFolders.FolderID, tblFolders.IndexKey01 FROM tblFolders " & _
     " WHERE FolderID = " & Nz(Me.cmbCurrentEFolder) & _
     " ORDER BY IndexKey01"
     End If




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 ‎Tuesday‎, ‎November‎ ‎28‎, ‎2017‎ ‎02‎:‎23‎:‎11‎ ‎PM, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:


 

Art,


Is the control a label? If so, it doesn't have a value. You would need to set the caption property. Assuming the CabinetID is numeric:


Me.lblIndexKey01Label.Caption = DLookup("[IndexKey01Label]", "tblCabinets", "[CabinetID] = " & Me.cmbCurrentECabinet)


Duane Hookom





From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of dbalorenzini@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Tuesday, November 28, 2017 2:07 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Re: Dlookup Compile Error
 


Yeah me. I figured out the syntax error but now I have another error:


Me.lblIndexKey01Label = DLookup("[IndexKey01Label]", "tblCabinets", "[CabinetID] = " & Me.cmbCurrentECabinet)


Object doesn't support this property or method.


The specific on the combo is:


Name: cmbCurrentECabinet


Record Source: SELECT tblCabinets.CabinetID, tblCabinets.CabinetName FROM tblCabinets;

Bound Colum 1

Column COunt: 2

Column Width: 0;1





__._,_.___

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 (6)

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] Re: Dlookup Compile Error

 

I came up with this and it works but is there a cleaner way to do it?  

 If IsNull(DLookup("[IndexKey01Label]", "tblCabinets", "[CabinetID] = " & Forms!frmMainWindow![cmbCurrentECabinet])) Then
       Me.lblIndexKey01Label.Visible = False
     Else
       Me.lblIndexKey01Label.Caption = DLookup("[IndexKey01Label]", "tblCabinets", "[CabinetID] = " & Forms!frmMainWindow![cmbCurrentECabinet])
       Me.lblIndexKey01Label.Visible = True
       Me.cboIndexKey01.Visible = True
       Me.cboIndexKey01.RowSource = "SELECT tblFolders.FolderID, tblFolders.IndexKey01 FROM tblFolders " & _
     " WHERE FolderID = " & Nz(Me.cmbCurrentEFolder) & _
     " ORDER BY IndexKey01"
     End If




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 ‎Tuesday‎, ‎November‎ ‎28‎, ‎2017‎ ‎02‎:‎23‎:‎11‎ ‎PM, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:


 

Art,


Is the control a label? If so, it doesn't have a value. You would need to set the caption property. Assuming the CabinetID is numeric:


Me.lblIndexKey01Label.Caption = DLookup("[IndexKey01Label]", "tblCabinets", "[CabinetID] = " & Me.cmbCurrentECabinet)


Duane Hookom





From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of dbalorenzini@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Tuesday, November 28, 2017 2:07 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Re: Dlookup Compile Error
 


Yeah me. I figured out the syntax error but now I have another error:


Me.lblIndexKey01Label = DLookup("[IndexKey01Label]", "tblCabinets", "[CabinetID] = " & Me.cmbCurrentECabinet)


Object doesn't support this property or method.


The specific on the combo is:


Name: cmbCurrentECabinet


Record Source: SELECT tblCabinets.CabinetID, tblCabinets.CabinetName FROM tblCabinets;

Bound Colum 1

Column COunt: 2

Column Width: 0;1



__._,_.___

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.


.

__,_._,___

Re: [MS_AccessPros] Re: Dlookup Compile Error

 

That is what I found..

Me.cboIndexKey01.RowSource = "SELECT tblFolders.FolderID, tblFolders.IndexKey01 FROM tblFolders " & _
     " WHERE FolderID = " & Nz(Me.cmbCurrentEFolder) & _
     " ORDER BY IndexKey01"

Me.lblIndexKey01Label.Caption = DLookup("[IndexKey01Label]", "tblCabinets", "[CabinetID] = " & Forms!frmMainWindow![cmbCurrentECabinet])

But now I have to take a step further.

If the top statement returns nothing I need to not to display the label or the combo box and vica versa if it is not blank.

I hope that make sense.

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 ‎Tuesday‎, ‎November‎ ‎28‎, ‎2017‎ ‎02‎:‎23‎:‎11‎ ‎PM, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:


 

Art,


Is the control a label? If so, it doesn't have a value. You would need to set the caption property. Assuming the CabinetID is numeric:


Me.lblIndexKey01Label.Caption = DLookup("[IndexKey01Label]", "tblCabinets", "[CabinetID] = " & Me.cmbCurrentECabinet)


Duane Hookom





From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of dbalorenzini@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Tuesday, November 28, 2017 2:07 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Re: Dlookup Compile Error
 


Yeah me. I figured out the syntax error but now I have another error:


Me.lblIndexKey01Label = DLookup("[IndexKey01Label]", "tblCabinets", "[CabinetID] = " & Me.cmbCurrentECabinet)


Object doesn't support this property or method.


The specific on the combo is:


Name: cmbCurrentECabinet


Record Source: SELECT tblCabinets.CabinetID, tblCabinets.CabinetName FROM tblCabinets;

Bound Colum 1

Column COunt: 2

Column Width: 0;1



__._,_.___

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 (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.


.

__,_._,___