Minggu, 30 April 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 (122)

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

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.

.

__,_._,___

Sabtu, 29 April 2017

Re: [MS_AccessPros] Updating a date field with criteria

 

John,


Thank you very much for the help. 

As always i gain new things and ways to handle the questions and their solutions.

This Date Serial was a new thing for me.

Thanks again,
Regards,
Khalid


---In MS_Access_Professionals@yahoogroups.com, <JohnV@...> wrote :

Khalid-

Me.MembershipExpireDate = DateSerial(Year(Me.MembershipStartDate) + 2, 7, 1)

John Viescas, Author
Effective SQL
SQL Queries for Mere Mortals 
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications 
(Paris, France)




On Apr 29, 2017, at 10:18 AM, khalidtanweerburrah@... [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:



Hi all,


On my form "Add New Member" there is a date type field "MembershipStartDate".


The requirement is that after update of this control, other date type field " MembershipExpireDate" may be updated with the following conditions:


Private Sub MembershipStartDate_AfterUpdate()

    If cboMembershipType <> "FM" Or cboMembershipType <> "HM" Or cboMembershipType <> "LM" Then

   ' MembershipExpireDate Day should be 01

   '.MembershipExpireDate Month should be 07

   ' This means first day and month of financial year

   ' Finally, MembershipExpireDate Year should be MembershipStartDate + 2

    End If


End Sub


Help required please.

Khalid



 



__._,_.___

Posted by: khalidtanweerburrah@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] Updating a date field with criteria

 

Khalid-


Me.MembershipExpireDate = DateSerial(Year(Me.MembershipStartDate) + 2, 7, 1)

John Viescas, Author
Effective SQL
SQL Queries for Mere Mortals 
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications 
(Paris, France)




On Apr 29, 2017, at 10:18 AM, khalidtanweerburrah@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:



Hi all,


On my form "Add New Member" there is a date type field "MembershipStartDate".


The requirement is that after update of this control, other date type field " MembershipExpireDate" may be updated with the following conditions:


Private Sub MembershipStartDate_AfterUpdate()

    If cboMembershipType <> "FM" Or cboMembershipType <> "HM" Or cboMembershipType <> "LM" Then

   ' MembershipExpireDate Day should be 01

   '.MembershipExpireDate Month should be 07

   ' This means first day and month of financial year

   ' Finally, MembershipExpireDate Year should be MembershipStartDate + 2

    End If


End Sub


Help required please.

Khalid



 



__._,_.___

Posted by: John Viescas <johnv@msn.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] Updating a date field with criteria

 

Hi all,


On my form "Add New Member" there is a date type field "MembershipStartDate".


The requirement is that after update of this control, other date type field " MembershipExpireDate" may be updated with the following conditions:


Private Sub MembershipStartDate_AfterUpdate()

    If cboMembershipType <> "FM" Or cboMembershipType <> "HM" Or cboMembershipType <> "LM" Then

   ' MembershipExpireDate Day should be 01

   '.MembershipExpireDate Month should be 07

   ' This means first day and month of financial year

   ' Finally, MembershipExpireDate Year should be MembershipStartDate + 2

    End If

End Sub


Help required please.

Khalid



 

__._,_.___

Posted by: khalidtanweerburrah@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] Label visible or not visible according to conditions

 

Duane,


Thank you very much for replying and telling the solution, i am sorry it was my mistake field "PassportExpiryDate" in tblPassport was "Passport ExpiryDate" a space after Passport, i changed it to
"PassportExpiryDate" and then it was OK.

Thanks once again for replying,
regards,
Khalid
 


---In MS_Access_Professionals@yahoogroups.com, <duanehookom@...> wrote :

Khalid,

This is very easy to test by creating a new, blank query and entering this into the SQL view:


SELECT MemberID FROM tblPassPort WHERE PassportExpiryDate < Date()


Try it and you should find the problem immediately.


Regards,

Duane Hookom

Switzerland




From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of khalidtanweerburrah@... [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Friday, April 28, 2017 5:20 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] Label visible or not visible according to conditions
 


John,

Run-time error '2471':

The expression you entered as a query parameter produced this error:
'[PassportExpiryDate]'


---In MS_Access_Professionals@yahoogroups.com, <JohnV@...> wrote :

Khalid-

What is the error?

John Viescas, Author
Effective SQL
SQL Queries for Mere Mortals 
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications 
http://www.viescas.com/
www.viescas.com
Welcome to the home of John Viescas Consulting. If you're at all interested in Microsoft Access or SQL Server, this is the place to be! Check out the book ...

 
(Paris, France)




On Apr 28, 2017, at 12:08 PM, khalidtanweerburrah@... [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:



Hi John,

It is giving error on

varZ = DLookup("[MemberID]", "tblPassport", "[PassportExpiryDate] < Date()")

The varible varZ what i defined was not giving error but the conditions were  not working.

Regards,
Khalid


---In MS_Access_Professionals@yahoogroups.com, <JohnV@...> wrote :

Khalid-

Try this:

    varZ = DLookup("[MemberID]", "tblPassport", "[PassportExpiryDate] < Date()") 

And:

    varB = DLookup("[MemberID]", "tblCNIC", "[CNIC ExpiryDate] < Date()") 


John Viescas, Author
Effective SQL
SQL Queries for Mere Mortals 
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications 
(Paris, France)




On Apr 28, 2017, at 10:30 AM, Khalid Tanweer khalidtanweerburrah@... [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:



Hi All, 

I have a Form "MainMenu" it has three Lables. My need is that if on Form "MainMenu" On Load event the conditions are true or false the following labels should be Visible or not Visible. 

LabelNotification1 
LabelNotification2 
LabelNotification3 

Form "MainMenu" On Load event is: 

Private Sub Form_Load() 
    '1st Check 
    Me.LabelNotification1.Visible = False 
    Dim varZ As Variant 
    varZ = DLookup("[MemberID]", "tblPassport", "[PassportExpiryDate]" < Date) 
'    varZ = DLookup("[MemberID]", "tblPassport", " Month([PassportExpiryDate])< Month(Date()) And Day([PassportExpiryDate])<Day(Date())") 
    If Not IsNull(varZ) Then 
        Me.LabelNotification1.Visible = True 
    Else 
        Me.LabelNotification1.Visible = False 
    End If 
    '----------------- 
    '2nd Check 
    Me.LabelNotification2.Visible = False 
    Dim varB As Variant 
    varB = DLookup("[MemberID]", "tblCNIC", "[CNIC ExpiryDate]" < Date) 
    If Not IsNull(varB) Then 
        Me.LabelNotification2.Visible = True 
    Else 
        Me.LabelNotification2.Visible = False 
    End If 
    '----------------- 
    '3rd Check 
    Me.LabelNotification3.Visible = False 
    Dim varX As Variant 
    varX = DLookup("[MemberID]", "Members", " Month([Dob])= Month(Date()) And Day([Dob])=Day(Date())") 
    If Not IsNull(varX) Then 
        Me.LabelNotification3.Visible = True 
    Else 
        Me.LabelNotification3.Visible = False 
    End If 
End Sub 
    '----------------- 
At present 3rd Check is working correctly, i need correct code for 1st Check and 2nd Check. 

Help needed please. 

Regards, 
Khalid 









__._,_.___

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

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] Label visible or not visible according to conditions

 

John,


First of all sorry for not replying yesterday as i have to move from office.
Thank you very much for pointing me the error that "PassportExpiryDate" is not a valid field in tblPassport.

I checked it in "tblPassport" the field was named as ""Passport ExpiryDate" there was a space after Passport, which i removed and then all was OK.

Thank you once again,
regards,
Khalid
 


---In MS_Access_Professionals@yahoogroups.com, <JohnV@...> wrote :

Khalid-

That tells me that PassportExpiryDate is not a field in tblPassport.

John Viescas, Author
Effective SQL
SQL Queries for Mere Mortals 
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications 
(Paris, France)




On Apr 28, 2017, at 12:20 PM, khalidtanweerburrah@... [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:



John,

Run-time error '2471':

The expression you entered as a query parameter produced this error:
'[PassportExpiryDate]'


---In MS_Access_Professionals@yahoogroups.com, <JohnV@...> wrote :

Khalid-

What is the error?

John Viescas, Author
Effective SQL
SQL Queries for Mere Mortals 
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications 
(Paris, France)




On Apr 28, 2017, at 12:08 PM, khalidtanweerburrah@... [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:



Hi John,

It is giving error on

varZ = DLookup("[MemberID]", "tblPassport", "[PassportExpiryDate] < Date()")

The varible varZ what i defined was not giving error but the conditions were  not working.

Regards,
Khalid


---In MS_Access_Professionals@yahoogroups.com, <JohnV@...> wrote :

Khalid-

Try this:

    varZ = DLookup("[MemberID]", "tblPassport", "[PassportExpiryDate] < Date()") 

And:

    varB = DLookup("[MemberID]", "tblCNIC", "[CNIC ExpiryDate] < Date()") 


John Viescas, Author
Effective SQL
SQL Queries for Mere Mortals 
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications 
(Paris, France)




On Apr 28, 2017, at 10:30 AM, Khalid Tanweer khalidtanweerburrah@... [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:



Hi All, 

I have a Form "MainMenu" it has three Lables. My need is that if on Form "MainMenu" On Load event the conditions are true or false the following labels should be Visible or not Visible. 

LabelNotification1 
LabelNotification2 
LabelNotification3 

Form "MainMenu" On Load event is: 

Private Sub Form_Load() 
    '1st Check 
    Me.LabelNotification1.Visible = False 
    Dim varZ As Variant 
    varZ = DLookup("[MemberID]", "tblPassport", "[PassportExpiryDate]" < Date) 
'    varZ = DLookup("[MemberID]", "tblPassport", " Month([PassportExpiryDate])< Month(Date()) And Day([PassportExpiryDate])<Day(Date())") 
    If Not IsNull(varZ) Then 
        Me.LabelNotification1.Visible = True 
    Else 
        Me.LabelNotification1.Visible = False 
    End If 
    '----------------- 
    '2nd Check 
    Me.LabelNotification2.Visible = False 
    Dim varB As Variant 
    varB = DLookup("[MemberID]", "tblCNIC", "[CNIC ExpiryDate]" < Date) 
    If Not IsNull(varB) Then 
        Me.LabelNotification2.Visible = True 
    Else 
        Me.LabelNotification2.Visible = False 
    End If 
    '----------------- 
    '3rd Check 
    Me.LabelNotification3.Visible = False 
    Dim varX As Variant 
    varX = DLookup("[MemberID]", "Members", " Month([Dob])= Month(Date()) And Day([Dob])=Day(Date())") 
    If Not IsNull(varX) Then 
        Me.LabelNotification3.Visible = True 
    Else 
        Me.LabelNotification3.Visible = False 
    End If 
End Sub 
    '----------------- 
At present 3rd Check is working correctly, i need correct code for 1st Check and 2nd Check. 

Help needed please. 

Regards, 
Khalid 










__._,_.___

Posted by: khalidtanweerburrah@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.


.

__,_._,___