ACCESS FEED: April 2020

Kamis, 30 April 2020

Re: [MSAccessProfessionals] Add new record not in combo box

you need to add Code to "On Not in List" event of the combo to add the New Client:

Private Sub yourCombo_NotInList(NewData As String, Response As Integer)
    Response = acDataErrContinue
    If MsgBox("Client: " & NewData & " is not on table." & vbCrLf & vbCrLf & _
                "Do you want to add this?", vbQuestion + vbYesNo, "Client Not Found") = vbYes Then

'If ClientID is not Auto
'CurrentDb.Execute "Insert into Clients (ClientID) Select " & NewData & ";"
        CurrentDb.Execute "Insert into Clients (ClientLName) Select " & Chr(34) & NewData & Chr(34) & ";"
        Response = acDataErrAdded
    End If
End Sub

Arnelito G. Puzon

_._,_._,_

Groups.io Links:

You receive all messages sent to this group.

_._,_._,_

Re: [MSAccessProfessionals] Getting duplicate values in combo box

Apologies!

Toukey,

Please respond in a way that includes the previous email thread so we don't have to look back through deleted emails to get a sense of what you are referring to.

No one can give you good advice about tables without understanding the purpose of your application. Many of us old mature developers will step away from the computer when designing our table structure. Make sure you have an eraser to fine tune your tables.

Our very own Crystal has an excellent resource for the basics at http://www.accessmvp.com/strive4peace/.

Access Basics

Microsoft Access Basics on GoSkills 40 lessons to empower you to build an application with Access Access Basics is designed for those of you with a thirst to understand the fundamentals of Access with programming in mind ... whether you realize it or not.

www.accessmvp.com

_._,_._,_

Groups.io Links:

You receive all messages sent to this group.

_._,_._,_

Re: [MSAccessProfessionals] Getting duplicate values in combo box

Toukey,

Please respond in a way that includes the previous email thread so we don't have to look back through deleted emails to get a sense of what you are referring to.

No one can give you good advice about tables without understanding the purpose of your application. Many of us ~~old~~ mature developers will step away from the computer when designing our table structure. Make sure you have an eraser to fine tune your tables.

Our very own Crystal has an excellent resource for the basics at http://www.accessmvp.com/strive4peace/.

Access Basics

www.accessmvp.com

Duane

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> on behalf of toukey1 via groups.io <toukey1=yahoo.com@groups.io>
Sent: Thursday, April 30, 2020 8:33 AM
To: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io>
Subject: Re: [MSAccessProfessionals] Getting duplicate values in combo box

Thanks for your response Duane.

So then I should have 2 tables; one with the client info as you have in your response and the other would hold the recdate e.g. recdateid (primary key) recdate and ClientID (from the client table) where the join would be on the ClientID in both tables?

Regards
Toukey

Re: [MSAccessProfessionals] Getting duplicate values in combo box

_._,_._,_

Groups.io Links:

You receive all messages sent to this group.

_._,_._,_

Re: [MSAccessProfessionals] Getting duplicate values in combo box

Toukey,

One table is rarely enough. You should study some regarding relational databases. Your application should have a table of clients with a primary key like ClientID. The fields clientlname, clientfname, addr1, and addr2 should be in the client table and no where else in your application. Then you would use the client table as the Row Source of your combo box so there is no way there should be any duplicates.

Also Date is not a good name for a field. Is this ContactDate, BirthDate, HireDate, or what. Date is the name of a function which can cause confusion in code and queries and control sources.

Regards,

Duane

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> on behalf of toukey1 via groups.io <toukey1=yahoo.com@groups.io>
Sent: Wednesday, April 29, 2020 10:59 PM
To: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io>
Subject: [MSAccessProfessionals] Getting duplicate values in combo box

Hi,

Haven't used Access in ages so please forgive me for all the questions.

I created a very simple database with one table and one form which contains the following fields:
clientid, clientlname, clientfname, addr1, addr2, date.

I created a combobox on clientid however I am faced with duplicate values (clientid, clientlname, clientfname, addr1, addr2) when I click the combo box to select the client. I would like to see 1 row per client. For new records where the client already exist, the only field that would be updated is the 'date' field. I tried using 'Select Distinct' in the Row Source but it didn't help.

Any assistance would be greatly appreciated.

Regards
Toukey

Rabu, 29 April 2020

[MSAccessProfessionals] Getting duplicate values in combo box

_._,_._,_

Groups.io Links:

You receive all messages sent to this group.

_._,_._,_

Re: [MSAccessProfessionals] Add new record not in combo box

Ok - I will give that code a try.

_._,_._,_

Groups.io Links:

You receive all messages sent to this group.

_._,_._,_

[MSAccessProfessionals] Add new record not in combo box

Hi,

I created a very simple database with one table and one form which contains the following fields:
clientid, clientlname, clientfname, addr1, addr2, date.

I created a combobox on clientid. For existing clients I can select from the combobox and the rest of the fields are updated successfully but if it's a new client, I want to be able to enter the info on the same form.

How easy is it to accomplish this?

Regards
Toukey

_._,_._,_

Groups.io Links:

You receive all messages sent to this group.

_._,_._,_

Selasa, 21 April 2020

Re: [MSAccessProfessionals] No longer see table properties in MS Access 365 Query

Hi jfakes,

You aren't the only one having this issue. I believe the only workaround is to go the the SQL view and add the alias there like:

FROM dbo_WO_WorkOrders AS [Work Orders]

It looks like you have rather complex queries so copying and pasting into an editor to search and replace might help.

Sorry there isn't a solution at the moment that I am aware of.

Regards,

Duane

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> on behalf of jfakes.rm via groups.io <jfakes=rocketmail.com@groups.io>
Sent: Tuesday, April 21, 2020 8:48 AM
To: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io>
Subject: [MSAccessProfessionals] No longer see table properties in MS Access 365 Query

In past editions of MS Access when I was in a query design view, I could click on the table and see certain properties such as the table name. That way, if I wanted to change the alias to a table used more then once, I could change the name. I no longer see that info and Access automatically names the duplicated table.

I also used to use that feature to copy the names of tables when I'm making user manuals etc.

I checked one of my databases on a computer that has Access 2013 and it works but not in a computer running Access 365. Any suggestions?

I've attached a Word document with screenshots from both versions of Access.

[MSAccessProfessionals] No longer see table properties in MS Access 365 Query

_._,_._,_

Groups.io Links:

You receive all messages sent to this group.

_._,_._,_

Re: [MSAccessProfessionals] Change Forecolor and backcolor

Thanks Duane

because with the hide property the border of the fields are also hidden.

Ciao

Domenico

Il giorno mar 21 apr 2020 alle ore 14:08 Duane Hookom <duanehookom@hotmail.com> ha scritto:

I would first consider just hiding the control. Select all of the controls to hide and enter "Hide" into their Tag properties.

I'm not sure where your decision to display or not comes from but set the booHide and run the code.

Dim ctlVar As Control

Dim booHide As Boolean

booHide = False

For Each ctlVar In Me.Controls

If ctlVar.Tag = "Hide" Then

ctlVar.Visible = Not booHide

End If

Next

Regards,

Duane

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> on behalf of crystal (strive4peace) via groups.io <strive4peace2008=yahoo.com@groups.io>
Sent: Tuesday, April 21, 2020 2:21 AM
To: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io>
Subject: Re: [MSAccessProfessionals] Change Forecolor and backcolor

hi Domenico,

you may want to test:

If ctlVar.FormatConditions.count >0 Then

unless there is a specific reason you only want to change it if it has exactly 1

kind regards,
crystal

msaccessgurus.com

On 4/21/2020 1:39 AM, domcoz wrote:

Thanks Duane,

I modified the code like this:

Dim ctlVar As control
For Each ctlVar In Me.Controls
If ctlVar.visible = True Then
Select Case ctlVar.ControlType
Case acTextBox
On Error Resume Next
If ctlVar.FormatConditions.count = 1 Then
ctlVar.FormatConditions.Delete
End If
ctlVar.ForeColor = RGB(255, 255, 255)
ctlVar.BackColor = RGB(255, 255, 255)
End Select
End If
Next

I'll explain: I have a complex report and my boss asked me to be able to print it without values. and then I thought about this trick.

Thanks a lot,.

Domenico

_._,_._,_

Groups.io Links:

You receive all messages sent to this group.

_._,_._,_

Re: [MSAccessProfessionals] Change Forecolor and backcolor

I would first consider just hiding the control. Select all of the controls to hide and enter "Hide" into their Tag properties.

I'm not sure where your decision to display or not comes from but set the booHide and run the code.

Dim ctlVar As Control

Dim booHide As Boolean

booHide = False

For Each ctlVar In Me.Controls

If ctlVar.Tag = "Hide" Then

ctlVar.Visible = Not booHide

End If

Regards,

Duane

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> on behalf of crystal (strive4peace) via groups.io <strive4peace2008=yahoo.com@groups.io>
Sent: Tuesday, April 21, 2020 2:21 AM
To: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io>
Subject: Re: [MSAccessProfessionals] Change Forecolor and backcolor

hi Domenico,

you may want to test:

If ctlVar.FormatConditions.count >0 Then

unless there is a specific reason you only want to change it if it has exactly 1

kind regards,
crystal

msaccessgurus.com

On 4/21/2020 1:39 AM, domcoz wrote:

Thanks Duane,

I modified the code like this:

Dim ctlVar As control
For Each ctlVar In Me.Controls
If ctlVar.visible = True Then
Select Case ctlVar.ControlType
Case acTextBox
On Error Resume Next
If ctlVar.FormatConditions.count = 1 Then
ctlVar.FormatConditions.Delete
End If
ctlVar.ForeColor = RGB(255, 255, 255)
ctlVar.BackColor = RGB(255, 255, 255)
End Select
End If
Next

I'll explain: I have a complex report and my boss asked me to be able to print it without values. and then I thought about this trick.

Thanks a lot,.

Domenico

Re: [MSAccessProfessionals] Change Forecolor and backcolor

hi Domenico,

you may want to test:

If ctlVar.FormatConditions.count >0 Then

unless there is a specific reason you only want to change it if it has exactly 1

kind regards,
crystal

msaccessgurus.com

On 4/21/2020 1:39 AM, domcoz wrote:

Thanks Duane,

I modified the code like this:

Dim ctlVar As control
For Each ctlVar In Me.Controls
If ctlVar.visible = True Then
Select Case ctlVar.ControlType
Case acTextBox
On Error Resume Next
If ctlVar.FormatConditions.count = 1 Then
ctlVar.FormatConditions.Delete
End If
ctlVar.ForeColor = RGB(255, 255, 255)
ctlVar.BackColor = RGB(255, 255, 255)
End Select
End If
Next

I'll explain: I have a complex report and my boss asked me to be able to print it without values. and then I thought about this trick.

Thanks a lot,.

Domenico

Senin, 20 April 2020

Re: [MSAccessProfessionals] Change Forecolor and backcolor

Thanks Duane,

I modified the code like this:

Dim ctlVar As control
For Each ctlVar In Me.Controls
If ctlVar.visible = True Then
Select Case ctlVar.ControlType
Case acTextBox
On Error Resume Next
If ctlVar.FormatConditions.count = 1 Then
ctlVar.FormatConditions.Delete
End If
ctlVar.ForeColor = RGB(255, 255, 255)
ctlVar.BackColor = RGB(255, 255, 255)
End Select
End If
Next

I'll explain: I have a complex report and my boss asked me to be able to print it without values. and then I thought about this trick.

Thanks a lot,.

Domenico

_._,_._,_

Groups.io Links:

You receive all messages sent to this group.

_._,_._,_

Re: [MSAccessProfessionals] Change Forecolor and backcolor

If I understand the code correctly sets the control format properties accept those controls that have Conditional Formatting set. If this is the case, you may need to use the code to unset conditional formatting and then setting it back on as needed.

Regards,

Duane

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> on behalf of domcoz <domcoz@gmail.com>
Sent: Monday, April 20, 2020 3:47 AM
To: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io>
Subject: [MSAccessProfessionals] Change Forecolor and backcolor

Hi,

Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)

Dim ctlVar As control

For Each ctlVar In Me.Controls

Select Case ctlVar.ControlType

Case acTextBox

ctlVar.ForeColor = RGB(255, 255, 255)

ctlVar.BackColor = RGB(255, 255, 255)

End Select

End Sub

I have to change the forecolor and backcolor properties in certain conditions, everything works well except for fields where there is a conditional format.

do you have any idea why?

Thank you very much

Domenico

[MSAccessProfessionals] Change Forecolor and backcolor

Hi,

Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)

Dim ctlVar As control

For Each ctlVar In Me.Controls

Select Case ctlVar.ControlType

Case acTextBox

ctlVar.ForeColor = RGB(255, 255, 255)

ctlVar.BackColor = RGB(255, 255, 255)

End Select

End Sub

I have to change the forecolor and backcolor properties in certain conditions, everything works well except for fields where there is a conditional format.

do you have any idea why?

Thank you very much

Domenico

_._,_._,_

Groups.io Links:

You receive all messages sent to this group.

_._,_._,_

Senin, 13 April 2020

[AccessDevelopers] Excellent Chance to earn digital currency on your Phone, Free, No Risk, No cost. [3 Attachments]

Hello Everyone,

I am Tony, Sorry for bugging you.

We are members of the PI network which is the first digital currency for everyday people.

Pi is a new cryptocurrency for and by everyday people that you can "mine" (or earn) from your phone.

This brand new digital currency (https://minepi.com/cakzxd) was developed by a group of Stanford University Ph.D.'s.

You can earn your own PI coins for free by simply downloading the (Pi Network) app from the Google Play Store or Apple App Store.

It does not drain your phone battery, And you even do not need to leave the APP open to mine,

Pi does not affect your phone's performance or use your network data.

Once you have downloaded the app (pi network, or pi, or minepi) app from the Google Play Store or Apple App Store and insert the invitation code (cakzxd), you just need to click the green lighting button once a day(every 24 hours) to start mining.

Follow the steps below, to get started:

1. First of all you would need to download the Pi app(pi network, or pi, or minepi) app from the Google Play Store or Apple App Store. Or download the app from https://minepi.com/cakzxd

The apple store link is https://apps.apple.com/ca/app/pi-network/id1445472541

The Google Play store link is https://play.google.com/store/apps/details?id=com.blockchainvault

2. After installing the app, you need to verify your identity to log in to the app. You can verify using Facebook account or cell phone number (minepi will text you a verification code),

Or you need to send an SMS to USA or UK if you are outside North America, please email me at arcticglobal@gmail.com if you get any problem.

I highly recommend that you verify your PI account immediately by phone or Facebook to avoid losing any PI coins you mined. (In case you have forgotten your password or changed your telephone device, you cannot log in again with your password.)

3. The app will ask you for the invitation code. Use cakzxd as your invitation code.

4. The app will start a guided tour and it will show you how to use the app. In order to start mining just click the green color Lightning Bolt symbol & that all.

5. Remember to tap the green color Lightning Bolt symbol every 24 hours to renew the mining cycle. Suggest setting up a timer to remind you.

6. Three days (72 mining hours) later, build your own security circle to increase your mining rate. You can email me at arcticglobal@gmail.com if you have any difficulty or do not know how to.

7. I suggest you sending an email to arcticglobal@gmail.com after you setup your account, so I can check your account and help you correct any problem ASAP.

8. Tap chat (right upper corner), then tap "@cakzxd's earning team", you may post your question there, or read my answer to those questions or any notification.

No cost, No risk, No hazard

Pi Network https://minepi.com/cakzxd

invitation code: cakzxd

If you have a cell phone, know how to install an app. and want a stable income with unlimited opportunity in the near future, you are in the RIGHT PLACE at the RIGHT TIME.

You do not need to sell anything, No inventory. No deliveries. No collecting payments. No meetings. No bugging friends. There are no fees to purchase, no quotas, and no limits, even there is no financial commitment required.

You only need to take less than 5 seconds daily. Free training is included.

No Cost, No Risk, No Hazard

What have you got to lose?

Is the new cryptocurrency PI Network another scam or legit?

I have always been very skeptical and distant from all the hype around digital currency in general due to my basic investment principle that when everyone on the street starts talking about an investment product, it is generally too late to invest in it. It is in this state of mind that I listen to a family friend who tried for months to encourage me to join his cryptocurrency investment group. He got my attention when he mentioned that this one is a new innovation that is at the free distribution phase with no financial commitment required.

As soon as I reached home, I started making some background research on the Pi Network and found that not only it is a very legitimate and innovative digital currency initiative, but more importantly, it is still at the right stage to jump in with an excellent risk-reward ratio. Of course, there is no guaranty that it will be a successful project, but what you tent to lose is a few minutes a day of hitting a button on your mobile and the mobilization of your network of friend and family at no financial cost to you or them for a possible reward of amassing lot of Pi digital currencies that could be very valuable in the future if the project is successful. Below is the summary of the findings of my research on the PI Network and my recommendation.

1. It is a project credited to three Stanford University PHDs namely: Dr Nicolas Kokkalls (head of technology), Dr. Chengdiao Fan (Head of product) and Vincent McPhillips (head of the community)

2. The company only offers a service, but no product. After downloading the Pi Network app, you need to confirm that you are a human by pressing a lightning symbol on the app at 24 hours intervals. This will initiate the mining process at a predetermined rate on your mobile device (currently 0.20pi/hr) without draining your phone battery. You are free to exit the app after that action without discontinuing the mining process.

3. It is a FREE App. Free to download (with no ads) either from google play or apple store. You may search pi, pinetwork,or minepi

4. Members can join only on invitation from other members. You can accelerate your mining rate by inviting other members to join using your code. You are welcome to use mine to join if you decide to or if this review adds any value to you (cakzxd).

5. After three successful mining cycles of 24 hours each, you qualify to become a contributor and you can form a security circle of 3 to 5 trusted members. This will accelerate your mining rate as well.

6. The mining rate has been halve for any multiple of 10 members that the network achieved. The project started in March 2019 at a rate of 3.1 Pi/hr and in November 2019 the network reached 1 million members and the current rate is 0.20 pi/hr.

7. The next milestone is at 10million members and it is not yet clear if the mining process will be discontinued at that stage or if it will continue to reduce in speed.

8. On Pi network white paper, a summary description of the technology they use is as follows: For Pi, we introduced the additional design requirement of employing a consensus algorithm (the process that records transactions into a distributed ledger) that would also be extremely user-friendly and ideally enable mining on personal computers and mobile phones. The consensus algorithm that they use is the Stellar Consensus Protocol (SCP) that was architected by David Mazieres a Professor of Computing Science at Stanford University as stated in Pi Network white paper as well.

My recommendation:

Pi has no value currently, just as Bitcoin in 2008, but could have value in the future. Pi Network is using an innovative digital currency technology that will decentralize the mining of digital currency to ordinary people and is user-friendly through mobile phones. In my view, the risk-reward ratio justifies my recommendation of jumping in while it is still open. But like for everything in life, feel free to do your own research. This is only my personal opinion and if you decide to go by it I will appreciate you using my code to join. It will bless me in return by accelerating my mining rate. You can reach me at arcticglobal@gmail.com if you would like to discuss more about this project.

Again, before and after installing this PI app, please read the following and make sure you understand them well, Or if you have any questions, please reply to this email or reply to arcticglobal@gmail.com

--PI is global,

--Verify your PI account with your phone number or Facebook immediately to avoid losing any PI coins you mined,

--1 person, 1 PI account, 1 device,

--Update the mining cycle every day by pressing the green lighting button every 24 hours,

--after 3 days, build your own security circle to increase the earning rate.

Doctor Nicolas Kokkalis, is a Postdoctoral Scholar in Computer Science at Stanford University, He is doing Social Computing research at Stanford and teaching a Decentralized Applications class.

https://hci.stanford.edu/nicolas/

Stanford grads develop cryptocurrency for smartphone users to increase its accessibility

https://www.stanforddaily.com/2019/09/16/stanford-grads-develop-cryptocurrency-for-smartphone-users-to-increase-its-accessibility/

other news

https://deadline.com/2020/01/christine-birch-sony-executive-the-roygbiv-collective-pi-network-1202836761/

https://finance.yahoo.com/news/marketing-executive-christine-birch-expands-180000864.html

__._,_.___

View attachments on the web

Posted by: goa29 gohomes29 <gohomes29@yahoo.com>

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (3)

Check out the automatic photo album with 6 photo(s) from this topic.

Please zip all files prior to uploading to Files section.

Visit Your Group

• Privacy • Unsubscribe • Terms of Use

__,_._,___

Minggu, 12 April 2020

[AccessDevelopers] windows&office activator program

windows&office activator program

(ID:1202)

os support:windows Vista, 7, 8, 8.1, win10 all editions.

office support: 2010, 2013, 2016 ,2019.

permanent activation

one activator for 5 os&office

special price

license price (in microsoft shop):windows 10pro + Office Home & Student 2019 = 199.99$+149.99$ = 349.98$

activator price: only 34$ (for a limited time)

for buy: Send ID to our email

email: best.programs1200@yahoo.com

__._,_.___

Posted by: "amp.zirak@yahoo.com" <amp.zirak@yahoo.com>

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (1)

Please zip all files prior to uploading to Files section.

Visit Your Group

• Privacy • Unsubscribe • Terms of Use

__,_._,___

Senin, 06 April 2020

[AccessDevelopers] Excellent Chance to earn digital currency on your Phone, Free, No Risk, No cost.