Photos dates mixed up

I have moved from iPhoto to Photos. Images which I had scaned into iPhoto and changed the date have reverted back to the date they were imported into iPhoto. Any way of sorting this apart from opening up iPhoto and noting the dates manually? apart from that reasonably happy with Photos.
mark

The sort order on iOS 5+ is by 'date modified' (iPad photo order). If you want more control over your synced photos then you could consider using a third-party photo management app such as Photo Manager Pro, which allows you to change the sort order (date created, size, rating, or you can drag them into your own order) and you can delete synced photos directly in it.
In terms of the Photos app, you can leave feedback for Apple here : http://www.apple.com/feedback/ipad.html

Similar Messages

Is there a way of changing photos' dates all at once?

Hi,
I imported a number of photos taken within one week into iPhoto - some of them were assigned a wrong date by my camera which made the last photos the first ones in the folder.
I know I can change the photos' dates manually one by one, but is there any workaround to select multiple photos and change their dates simultaniously? I couldn't find any automator action...anybody who knows a hint?
Thanks
MacBook 2.0 GHz; 1,25 GB RAM; 60 GB HDD Mac OS X (10.4.8) iPhoto 06

Hi Terence,
thanks for the reply. It does work. Could have figured it out myself, I guess...but I always marked the photos and then tried to change their dates in this little information box in the lower left corner (which doesn't work).
Best regards
MacBook 2.0 GHz; 1,25 GB RAM; 60 GB HDD Mac OS X (10.4.8)

Mac storage filled with "Photo" data, but no photos in iPhoto?

I bought my Macbook Air last May, and I have filled it with around 1000 songs, and I had around 2,500 photos in iPhoto. I checked my storage because I wanted to import more photos to iPhoto, but it would not work. The message, "Can not complete import because there was a problem with a photo" or a message at the top on the iPhoto import tab that was along those lines. So, I checked my storage and it said that I only had around 5 GB left, and on my camera I had 22GB of data. So I bought a external hard drive and moved ALL of my photos over to the hard drive to make space. Now I have 20 photos left in my iPhoto, and I checked my Mac Storage, and it says I still have 30GB of photo data, and 50GB of movie data. 36GB are free out of 121GB when I look at my storage info under "About this Mac" I have cleared iPhoto as well as iMovie. Does anyone have any idea where I can find the files that are taking up all my storage? Thanks for any help!

Again what exactly did you do?
the correct way to move your iPhoto library (you can not move just photos) is
Moving the iPhoto library is safe and simple - quit iPhoto and drag the iPhoto library intact as a single entity to the external drive - depress the option key and launch iPhoto using the "select library" option to point to the new location on the external drive - fully test it and then trash the old library on the internal drive (test one more time prior to emptying the trash)
And be sure that the External drive is formatted Mac OS extended (journaled) (iPhoto does not work with drives with other formats) and that it is always available prior to launching iPhoto
And backup soon and often - having your iPhoto library on an external drive is not a backup and if you are using Time Machine you need to check and be sure that TM is backing up your external drive
LN

Why do my photo dates change she Facebook updates an album?

When I click on a FaceBook album in Aperture. The little clock thing goes around and around then when it is done all the photos in that album have a date of waht the current date/time is. It makes all them pics out of order when looking ato photos. I don't want this. I want the dates to remain the original. I have no way of knowing waht the original date and time was now! Very frustrating.

BTW, the title should be Why do my photo date's change when facebbok updates an album?

Batch Change Photos' Date - Not Time

Is there a way to change a bunch of photos' date, but not the time?

Neil:
Not in iPhoto. Unfortunately you've go to change the time as well. If there are not too many of them you can do it this way.
1 - move all that you want to redate to the same date to a new roll.
2 - in the Finder copy the folder in the Original folder that represents the roll with the files to be redated to the desktop.
3 - using an application like PhotoInfo batch change the date to whatever you need. It can just add or subtract a specific number of days, months or years to the date as you see fit.
4 - change the name of the folder and import back into iPhoto.
5 - delete the original roll of photos with the incorrect date.
That's about it. It's not too convoluted and can be done. This way the new date will be embedded in the file and stay with it if needed in a new library or other application.
Do you Twango?

Photo date help.

Hello. I did do a search and found some info on this, but that info was a few years old so i thought id touch base again.
When i upload pics from my camera to i-photo the dates and times the pictures were taken is in the info of each pic. However, when i do as much as drag a photo out of iphoto and onto my desk top, that info is lost. I like to store my pics on a flash drive but when i export/resize the pics from iphoto into my pictures folder in "finder" and then move them to my flash drive, all the time data is gone. No way to save that time info with the pics, huh? If not is there a way to upload pics to my mac mini and bypass iphoto so i dont lose the time info? I really like being able to see the info for each pic and the last 5 batches of pics i had developed dont have the correct times. Thanks, O

When i upload pics from my camera to i-photo the dates and times the pictures were taken is in the info of each pic.
OK
However, when i do as much as drag a photo out of iphoto and onto my desk top, that info is lost.
Probably not - althought exporting is a much better way to get photos out of iPhoto drag and drop does not lose the photos date - that is embeded in the EXIF data within the photo (changes made in iPhoto may not be maintained if you drag and drop - but will be if you export)
If not is there a way to upload pics to my mac mini and bypass iphoto so i dont lose the time info?
iPhoto is not at all required - you can use image capture (in your applications folder) to upload photos, you can use the finder to drag them to disk - you can set your preferences in the iPhoto preferences
However alghough you do not give much information I strongly suspect that you are simply confusing photo dates with file dates - two totally different things - Photo data inculding dates is store within the photo in EXIF and IPTC fields and is viewed using a photo program
Files on the other hand have their own set of data describing the file and this is viewed using a file program and the finder or Windows explorer --
SO as a wild guess I suspect you are expecting the file date to be the photos date - while there are programs that can do that (google is your friend - here is one that sounds like it might help - not tested or recommended - just found on Google - http://www.publicspace.net/ABetterFinderAttributes/) that is not the norm - the photo data is in the photo and viewed by photo programs - file programs view the file idata and the data of a file is when it was made - not when the data it holds was created - the photo taken in this case)
LN

How do I remove the photo dates other than with Sport Removal?

How can I remove the photo dates that appear in yellow from a photo other than using the Spot Removal tool which has not worked?

While I agree that more detail is necessary from the original poster ... maybe even a screen capture
I don't know if this is what the original poster means, but when I have tried to use the Lightroom 5 Enhanced Spot Removal Tool for this purpose, I could never obtain a solution that seemed to remove the offending object and fill in the desired area with a relatively continuous and natural looking result. It always seemed clear to me, when I tried to do this, that the result always had un-natural looking discontinuities in the end result caused by my application of the Enhanced Sport Removal Tool.
And so, in my case, to eliminate the dates from the bottom of my photos, I wound up using different software ... in my case Photoshop Elements, which produced a more satisfactory result.
On the left is the version of the photo created by Photoshop Elements, the date is missing (and at the bottom right, a lamp to illuminate the sign is also missing); while on the right is the image with no attempt to remove the date and lamp. My attempts to reproduce the removal of this date via Lightroom were unsuccessful, the grass never looked natural, the grass always had discontinuities which made the result unsatisfactory, and I did not save the Lightroom attempts to remove the date and lamp. (And if you look carefully on the left, you can see places where the shadows abrupty have disappeared, an artifact of the process, however I still deemed the photo on the left to be successful at the removal of these items, as I don't usually focus on the shadows)

Update Photo Date

Just installed Elements 10. I am scanning old photos into Photoshop. When I go in and manually upate the photo date (instead of the default scan date), it appears to accept the change. When I pull the photo up again, the date is altered (e.g., from 1950 to 1949). If I pull it up yet again, the date chagnes yet again (e.g., from 1950 to 1949 to 1948).

I am having the same problem with Elements 10. I did not have this problem with previous versions of Photoshop Elements. I have tried online help, but they were not successful helping me either. I have tried changing the dates through photoshop Editor as well as in Elements, with no luck. Also I installed Lightroom 4.1, 64 bit. I love the program, but changes made there also do not stay with the date I give them. These last photos I scanned now show the date as 1/1/9999. I will be anxiously awaiting a fix for this problem. Another problem I am having is that once I have entered the organizer and closed the program, it apparently does not shut down. If I try entering the organizer again, I must either re-start my computer or first go to task manager and manually close the program there. I do not have the same problem with Elements Editor. I can access it multiple times with no problem.

Batch change photo dates in Photos for 10.10.3?

If anyone has access to the 10.10.3 beta or has managed to use Photos at all, does it still allow you to batch change photo dates like iPhoto used to? Thanks!

lazarusnine wrote:
Interesting. I would have thought that the moratorium lifted on press releases and reviews of Photos by a number of tech websites would have applied here as well. I had a little look at the Terms of Use on this website and didn't see any prohibitions on speaking about upcoming products, but perhaps I've missed something. Are those participating in the Developer Preview disallowed from speaking about Photos if major press outlets are not?
Apple does not and cannot control major press outlets.
However, they do control their own products and beta releases are subject to an NDA.
-> https://developer.apple.com/programs/terms/registered_apple_developer_20100301.p df

Changed photo dates--how to fix

I bought a Mac and transferred all files. Now all of the photo dates have been changed to the date I transferred the files! Some of them shot on an actual camera came out OK, but almost all of them that had originally be shot on a cellphone had the dates changed.
Any ideas on how to correct or has Mac just screwed me. I can't backtrack all the dates.

Details help - what version of iPhoto - of the OS?
In any case the Mac has not "screwed" you - obviously for the photos that were properly formed everything is ok -
Some of them shot on an actual camera came out OK,
iPhoto (like all capable photo managers) gets the dates from the EXIF data put into the photo by the camera and if the phone is properly storing photo by the phone
You can correct dates using the Batch change date time command if the EXIF data is nonexistent and using the adjust change date/time command if the EXIF data is wrong (like a camera being set incorrectly)
LN

Where is the actual iPhoto photos data stored?

I'm trying to find the data files for iPhoto in OS X Lion, data used to be in the user Library, but I can't find that either. Where is the actual iPhoto photos data stored?

1. Set the preferences to edit in another program, Photoshop. (Advanced Tab)
2. Drag the image to the email message (the problem you describe should be fixed in 10.8.3)
3. Select all the images in the event or album and show the Info pane.
4. You have to export them first in order to compress, so either drag them out of iPhoto into the destination or use the Export command.
5. Clunky? Works pretty great for me.
6. I can access all of my photos right there in iPhoto. I can access other people's photos there, too.
If you don't want iPhoto to organize the files, tell it not to. Prefs, Advanced, Copy Items into the iPhoto Library.
If you didn't want someone to comment on this,
Seriously? It is rediculous that we needed a forum to find our own files.
Then why did you post it?
Are you an Apple OS designer and are offended or something? Why are you even looking at this post if it's not an issue for you?
Look up the thread a ways.

Upload pictures and retain adjusted photo date

After scanning a number of old photos, I upload them onto my MAC PC and I adjusted the photo date and time via the batch change function. I then exported the photos from iPhoto and transferred them onto another Mac PC and upload them into iPhoto on that PC. The photos did not retain the modified date on the upload, but rather show the date on which they were scanned.
Is there any way to transfer photos between iPhoto libraries (on different PCs) and maintain the adjusted date and time of the photo?

Unfortunately no.
This data is recorded in the Exif metadata that is created when a Camera takes a photo. However, scanners so not create Exif and so there is nowhere for this data to be written to. Therefore, applications that can't access the Exif use the Date Created info from the file.
You may be able to change the Date Created info on the File using an app like
http://www.publicspace.net/ABetterFinderAttributes/
but beware: don't run this in files already in iPhoto, only before importing or after export.
Regards
TD

How do I extract original photo date when importing photos?

Hi,
I am trying to import photos from a backup CD of pictures that I created in August. However, when I import them into iPhoto, the date that gets associated with the photo is the August date of the CD creation instead of the original photo date.
I can see the original date of the photo image file, and I want that to be the date that iPhoto uses to organize the photos.
Is there any preference I can set to extract the date information from the image data itself and NOT from the date stamp on the CD file?
Thanks!
Jason
Message was edited by: JasonGP

Please don't take the following as a flame...
<quote>The move option is grayed out when importing from a card to save you from yourself. At least that's what I've always assumed.</quote>
That's a bit draconian don't you think? Why have the option greyed out if you don't want the user to be able to do this. It's kind of like saying hahah, this is possible to do, but, you, the user, are a moron. Why even place the option on the page in the first place.
<quote>It just happens to be a bug that few on this forum care to see fixed because most of us feel that using it is unwise due to the danger of lost images and corrupted cards.</quote>
Again, why put it on page as an option if it weren't intended to be enabled in a plist somewhere for those who wish to be 'unwise.'
My logic is as follows: If Apple provides software that is more accessible to the 'unwashed masses' (because it's included with Leopard ie. Image Capture) and it deletes images directly from the camera, then why would a professional package (Aperture) limit the so called 'professional' from designing and using his/her own workflow governed by their own experience. Which could include first a backup to dvd or other device of your choice (keyword here: CHOICE) THEN import images and delete directly from the camera. Logically this is completely BACKWARDS, the app available to the 'masses'(Image Capture) should NOT let the user delete images directly from the camera and the 'professional' app (Aperture) should allow more flexibility for the advanced user who understands the implications of his/her work flow and adjusts accordingly.
Besides, And I quote myself "I have searched the forums here and have only seen people offer advice why this is not good. Not to be an A##, but I don't want advice. I need an answer to my question. How do I enable this functionality?"
Therefore, respectfully, your answer is: non sequitur.
Best Regards

Data mixing when simultaneously inserting data from Multiple Users

I am facing a problem in SQL Server 2000. My software designed in VB6 and problem is that when two or three users save the sale invoice at the same time then invoices data mixed up with each other. Please any person guide
me. I shall be very thankful to you.

Dear's All please read carefully my below code, I am using this vb6 query for the saving. my data saving in 4 tables and updating of 1 table.
Private Sub Form_Load()
Con
Call AutoSaleId
End Sub
Public Sub AutoSaleId()
If rs.State = adStateOpen Then
rs.Close
End If
rs.Open ("Select SaleId From SALES Order By SaleId"), cn, adOpenKeyset, adLockOptimistic
If rs.BOF Then
SaleIdTxt.Text = "1"
'Exit Sub
End If
On Error Resume Next
rs.MoveLast
SaleIdTxt.Text = rs("SaleId") + 1
End Sub
Private Sub SaveImg_Click()
On Error GoTo Err_X
If SaleIdTxt.Enabled = False Then
If AuthorityTxt.Text = "N" Then
MsgBox ("Sorry! You Have No Authority To Changing This Invoice Please Contact To Admin"), vbInformation, "Information"
Exit Sub
End If
End If
ChkSecureCust.Value = 0
If rs.State = adStateOpen Then
    rs.Close
    End If
    rs.Open ("Select * From SECURECUSTOMERS Where DeliveryId='" & DeliveryIdTxt.Text & "'And SectorId='" & Left(CustomerIdTxt.Text, 2) & "'"), cn, adOpenKeyset, adLockBatchOptimistic
If Not rs.EOF Then
If rs(0) = DeliveryIdTxt.Text And rs(1) = Left(CustomerIdTxt.Text, 2) Then
ChkSecureCust.Value = 1
End If
End If
If DeliveryDescriptionTxt.Text = "" Then
MsgBox ("Sorry! Please Select Delivery Then Press Save Button"), vbInformation, "Information"
DeliveryIdTxt.SetFocus
Exit Sub
End If
If SalemanIdTxt.Text = "" Then
MsgBox ("Sorry! Please Create Sale Man Then Press Save Button"), vbInformation, "Information"
SalemanCmb.SetFocus
Exit Sub
End If
If BusinessGroupIdTxt.Text = "" Then
MsgBox ("Sorry! Please Create Business Group Then Press Save Button"), vbInformation, "Information"
BusinessGroupCmb.SetFocus
Exit Sub
End If
If CustomerNameTxt.Text = "" Then
MsgBox ("Sorry! Please Select Customer Then Press Save Button"), vbInformation, "Information"
CustomerIdTxt.SetFocus
Exit Sub
End If
If ChkSecureCust.Value = 0 Then
MsgBox ("Sorry! Please Select Customers Related To Delivery"), vbInformation, "Information"
CustomerIdTxt.Text = ""
CustomerIdTxt.SetFocus
Exit Sub
End If
'If Flx Grid is Empity Then This Message Will Be Create
If SaleIdTxt.Enabled = True Then
If Flx.Rows <= 2 Then
MsgBox ("Sorry! Product Grid Is Empity Please Enter Products And Then Press Save Button"), vbCritical, "Warning"
ProductIdTxt.SetFocus
For j = 2 To RecFlx.Rows - 1
If RecFlx.Rows > 2 Then
RecFlx.RemoveItem (RecFlx.Rows)
End If
Next j
For j = 2 To PurRetBatchFlx.Rows - 1
If PurRetBatchFlx.Rows > 2 Then
PurRetBatchFlx.RemoveItem (PurRetBatchFlx.Rows)
End If
Next j
Exit Sub
End If
End If 'End
For RF = 2 To RecFlx.Rows - 1
If RecFlx.TextMatrix(RF, 5) = "" Then
MsgBox ("Sorry! Batch Quantity Is Missing Of This Product(" + RecFlx.TextMatrix(RF, 1) + ")Please Enter The Batch Quantity."), vbInformation, "Information"
Exit Sub
End If
Next RF
'This Query For Assign (0) To Purchase Returns Batch Flx Columns Numbers Of 3 And 4
For g = 2 To PurRetBatchFlx.Rows - 1
PurRetBatchFlx.TextMatrix(g, 5) = "0"
PurRetBatchFlx.TextMatrix(g, 6) = "0"
PurRetBatchFlx.TextMatrix(g, 7) = "0"
Next g 'End
'This Query For, If Record Match Between Record Flx And Opening Batch Flx Then (1) No Assign To Opening Batch Flx Of Column No (3) For UpDates Tables When We Changing In Products And Batchs
For a = 2 To RecFlx.Rows - 1
For b = 2 To PurRetBatchFlx.Rows - 1
If PurRetBatchFlx.TextMatrix(b, 0) & PurRetBatchFlx.TextMatrix(b, 1) & PurRetBatchFlx.TextMatrix(b, 2) = RecFlx.TextMatrix(a, 0) & RecFlx.TextMatrix(a, 1) & RecFlx.TextMatrix(a, 2) Then
PurRetBatchFlx.TextMatrix(b, 5) = "1"
End If
Next b
Next a 'End
For c = 2 To Flx.Rows - 1
For d = 2 To PurRetBatchFlx.Rows - 1
If Flx.TextMatrix(c, 0) = PurRetBatchFlx.TextMatrix(d, 1) Then
PurRetBatchFlx.TextMatrix(d, 6) = "1"
End If
Next d
Next c 'End
For i = 2 To Flx.Rows - 1
Flx.TextMatrix(i, 12) = "0"
Next i
'For Auto Sale Id
If SaleIdTxt.Enabled = True Then
    Call AutoSaleId
    End If
'End Auto Sale Id
For j = 2 To Flx.Rows - 1
    If rs.State = adStateOpen Then
    rs.Close
    End If
    rs.Open ("Select SaleId,ProductId From SALESBODY Where SaleId='" & SaleIdTxt.Text & "' And ProductId='" & Flx.TextMatrix(j, 0) & "'"), cn, adOpenKeyset, adLockBatchOptimistic
If Not rs.EOF Then
On Error Resume Next
If rs(1) = SaleIdTxt.Text And rs(2) = Flx.TextMatrix(j, 0) Then
Flx.TextMatrix(j, 12) = "1"
End If
End If
    Next j
For i2 = 2 To RecFlx.Rows - 1
RecFlx.TextMatrix(i2, 7) = "0"
RecFlx.TextMatrix(i2, 9) = "0"
'11 Column For Check The Batch Into Current Stock If Any User Used This Batch
RecFlx.TextMatrix(i2, 11) = "0"
'Edit Able 11 Column For Check The Batch Into Current Stock If Any User Used This Batch
If SaleIdTxt.Enabled = False Then
RecFlx.TextMatrix(i2, 14) = "0"
If RecFlx.TextMatrix(i2, 12) = "" Then
RecFlx.TextMatrix(i2, 12) = "1"
End If
End If
Next i2
For g2 = 2 To RecFlx.Rows - 1
If RecFlx.TextMatrix(g2, 6) = "" Then
RecFlx.TextMatrix(g2, 6) = "N"
End If
Next g2
For j2 = 2 To RecFlx.Rows - 1
    If rs.State = adStateOpen Then
    rs.Close
    End If
    rs.Open ("Select SaleId,ProductId,BatchNo From SALESBATCH Where SaleId='" & SaleIdTxt.Text & "' And ProductId='" & RecFlx.TextMatrix(j2, 1) & "' And BatchNo='" & RecFlx.TextMatrix(j2, 2) &
"'"), cn, adOpenKeyset, adLockBatchOptimistic
If Not rs.EOF Then
On Error Resume Next
If rs(0) = SaleIdTxt.Text And rs(1) = RecFlx.TextMatrix(j2, 1) And rs(2) = RecFlx.TextMatrix(j2, 2) Then
RecFlx.TextMatrix(j2, 7) = "1"
End If
End If
    Next j2
For h = 2 To RecFlx.Rows - 1
If RecFlx.TextMatrix(h, 8) = "" Then
RecFlx.TextMatrix(h, 8) = "N"
End If
Next h
For h1 = 2 To RecFlx.Rows - 1
If RecFlx.TextMatrix(h1, 10) = "" Then
RecFlx.TextMatrix(h1, 10) = "Y"
End If
Next h1
For h2 = 2 To PurRetBatchFlx.Rows - 1
If PurRetBatchFlx.TextMatrix(h2, 8) = "" Then
PurRetBatchFlx.TextMatrix(h2, 8) = "Y"
End If
Next h2
    For S = 2 To RecFlx.Rows - 1
    If rs.State = adStateOpen Then
    rs.Close
    End If
    rs.Open ("Select ProductId,BatchNo From CURRENTSTOCK Where ProductId='" & RecFlx.TextMatrix(S, 1) & "' And BatchNo='" & RecFlx.TextMatrix(S, 2) & "'"), cn, adOpenKeyset, adLockBatchOptimistic
If Not rs.EOF Then
If rs(0) = RecFlx.TextMatrix(S, 1) And rs(1) = RecFlx.TextMatrix(S, 2) Then
RecFlx.TextMatrix(S, 9) = "1"
End If
End If
    Next S
    For G1 = 2 To PurRetBatchFlx.Rows - 1
    If rs.State = adStateOpen Then
    rs.Close
    End If
    rs.Open ("Select ProductId,BatchNo From CURRENTSTOCK Where ProductId='" & PurRetBatchFlx.TextMatrix(G1, 1) & "' And BatchNo='" & PurRetBatchFlx.TextMatrix(G1, 2) & "'"), cn, adOpenKeyset, adLockBatchOptimistic
If Not rs.EOF Then
If rs(0) = PurRetBatchFlx.TextMatrix(G1, 1) And rs(1) = PurRetBatchFlx.TextMatrix(G1, 2) Then
PurRetBatchFlx.TextMatrix(G1, 7) = "1"
End If
End If
    Next G1
'This Query For 11 Number Column For Check The Batch Into Current Stock If Any User Used This Batch
    If SaleIdTxt.Enabled = True Then
    For n2 = 2 To RecFlx.Rows - 1
    If RecFlx.TextMatrix(n2, 8) = "N" And RecFlx.TextMatrix(n2, 10) = "Y" Then
    RecFlx.TextMatrix(n2, 11) = "1"
    End If
    Next n2
    For n = 2 To RecFlx.Rows - 1
    If RecFlx.TextMatrix(n, 8) = "N" And RecFlx.TextMatrix(n, 10) = "Y" Then
      If rs.State = adStateOpen Then
      rs.Close
      End If
      rs.Open ("Select * From CURRENTSTOCK Where ProductId = '" & RecFlx.TextMatrix(n, 1) & "' And BatchNo = '" & RecFlx.TextMatrix(n, 2) & "'"), cn, adOpenKeyset, adLockBatchOptimistic
      If Not rs.EOF Then
      If rs(0) = RecFlx.TextMatrix(n, 1) And rs(1) = RecFlx.TextMatrix(n, 2) Then
      RecFlx.TextMatrix(n, 11) = "2"
      End If
      End If
      End If
      Next n
      For n3 = 2 To RecFlx.Rows - 1
      If RecFlx.TextMatrix(n3, 8) = "N" And RecFlx.TextMatrix(n3, 10) = "Y" Then
      If RecFlx.TextMatrix(n3, 11) = "1" Then
      MsgBox ("Sorry! You Have No Stock Of This Product(" + RecFlx.TextMatrix(n3, 1) + ") And Batch(" + RecFlx.TextMatrix(n3, 2) + ")Because Any Other User Alredy Used This Batch Please Remove
This Batch."), vbInformation, "Information"
      Call EmptyGrid
      Exit Sub
      End If
      End If
      Next n3
      'End 11 Number Column Query
    End If
'This Query For Check The Batch Qty From Current Stock If Any User Use This Batch Qty
      If SaleIdTxt.Enabled = True Then
      For f1 = 2 To RecFlx.Rows - 1
    If RecFlx.TextMatrix(f1, 8) = "N" And RecFlx.TextMatrix(f1, 10) = "Y" Then
      If rs.State = adStateOpen Then
      rs.Close
      End If
      rs.Open ("Select * From CURRENTSTOCK Where ProductId='" & RecFlx.TextMatrix(f1, 1) & "' And BatchNo = '" & RecFlx.TextMatrix(f1, 2) & "'"), cn, adOpenKeyset, adLockBatchOptimistic
      If Not rs.EOF Then
      If Trim(Val(rs(2)) < Val(RecFlx.TextMatrix(f1, 5))) Then
      MsgBox ("Sorry! You Have Low Stock Of This Product(" + RecFlx.TextMatrix(f1, 1) + ") And Batch(" + RecFlx.TextMatrix(f1, 2) + ")Because Any Other User Alredy Used This Batch Qty Please
Reduce This Qty."), vbInformation, "Information"
      Call EmptyGrid
      Exit Sub
      End If
      End If
    End If
    Next f1
    End If
'End The Query Of Check The Batch Qty If Any User Use This Batch Qty
    If SaleIdTxt.Enabled = False Then
    For f1 = 2 To RecFlx.Rows - 1
    For f = 2 To PurRetBatchFlx.Rows - 1
    If RecFlx.TextMatrix(f1, 8) = "N" And RecFlx.TextMatrix(f1, 10) = "Y" And RecFlx.TextMatrix(f1, 12) = "1" Then
    If RecFlx.TextMatrix(f1, 1) = PurRetBatchFlx.TextMatrix(f, 1) And RecFlx.TextMatrix(f1, 2) = PurRetBatchFlx.TextMatrix(f, 2) Then
      If rs.State = adStateOpen Then
      rs.Close
      End If
      rs.Open ("Select * From CURRENTSTOCK Where ProductId='" & RecFlx.TextMatrix(f1, 1) & "' And BatchNo = '" & RecFlx.TextMatrix(f1, 2) & "'"), cn, adOpenKeyset, adLockBatchOptimistic
      If Not rs.EOF Then
      If Trim(Val(Val(rs(2)) + Val(PurRetBatchFlx.TextMatrix(f, 4))) < Val(RecFlx.TextMatrix(f1, 5))) Then
      MsgBox ("Sorry! You Have Low Stock Of This Product(" + RecFlx.TextMatrix(f1, 1) + ") And Batch(" + RecFlx.TextMatrix(f1, 2) + ")Because Any Other User Alredy Used This Batch Qty Please
Reduce This Qty."), vbInformation, "Information"
      Call EmptyGrid
      Exit Sub
      End If
      End If
      End If
      If Trim(RecFlx.TextMatrix(f1, 1) = PurRetBatchFlx.TextMatrix(f, 1) And RecFlx.TextMatrix(f1, 2) <> PurRetBatchFlx.TextMatrix(f, 2) Or RecFlx.TextMatrix(f1, 1) <> PurRetBatchFlx.TextMatrix(f, 1)) Then
      If rs.State = adStateOpen Then
      rs.Close
      End If
      rs.Open ("Select * From CURRENTSTOCK Where ProductId='" & RecFlx.TextMatrix(f1, 1) & "' And BatchNo = '" & RecFlx.TextMatrix(f1, 2) & "'"), cn, adOpenKeyset, adLockBatchOptimistic
      If Not rs.EOF Then
      If Trim(Val(rs(2)) < Val(RecFlx.TextMatrix(f1, 5))) Then
      MsgBox ("Sorry! You Have Low Stock Of This Product(" + RecFlx.TextMatrix(f1, 1) + ") And Batch(" + RecFlx.TextMatrix(f1, 2) + ")Because Any Other User Alredy Used This Batch Qty Please
Reduce This Qty."), vbInformation, "Information"
      Call EmptyGrid
      Exit Sub
      End If
      End If
      End If
      If RecFlx.TextMatrix(f1, 1) = PurRetBatchFlx.TextMatrix(f, 1) Then
      RecFlx.TextMatrix(f1, 14) = "1"
      End If
      If RecFlx.TextMatrix(f1, 14) = "0" Then
      If rs.State = adStateOpen Then
      rs.Close
      End If
      rs.Open ("Select * From CURRENTSTOCK Where ProductId='" & RecFlx.TextMatrix(f1, 1) & "' And BatchNo = '" & RecFlx.TextMatrix(f1, 2) & "'"), cn, adOpenKeyset, adLockBatchOptimistic
      If Not rs.EOF Then
      If Trim(Val(rs(2)) < Val(RecFlx.TextMatrix(f1, 5))) Then
      MsgBox ("Sorry! You Have Low Stock Of This Product(" + RecFlx.TextMatrix(f1, 1) + ") And Batch(" + RecFlx.TextMatrix(f1, 2) + ")Because Any Other User Alredy Used This Batch Qty Please
Reduce This Qty."), vbInformation, "Information"
      Call EmptyGrid
      Exit Sub
      End If
      End If
      End If
      End If
      Next f
      Next f1
      End If
    If SaleIdTxt.Enabled = False Then
    For n2 = 2 To RecFlx.Rows - 1
    If RecFlx.TextMatrix(n2, 8) = "N" And RecFlx.TextMatrix(n2, 10) = "Y" And RecFlx.TextMatrix(n2, 12) = "1" Then
    RecFlx.TextMatrix(n2, 11) = "1"
    End If
    Next n2
    For n = 2 To RecFlx.Rows - 1
    For r = 2 To PurRetBatchFlx.Rows - 1
    If RecFlx.TextMatrix(n, 8) = "N" And RecFlx.TextMatrix(n, 10) = "Y" And RecFlx.TextMatrix(n, 12) = "1" Then
    If RecFlx.TextMatrix(n, 1) = PurRetBatchFlx.TextMatrix(r, 1) And RecFlx.TextMatrix(n, 2) = PurRetBatchFlx.TextMatrix(r, 2) And Val(RecFlx.TextMatrix(n, 5)) <= Val(PurRetBatchFlx.TextMatrix(r, 4)) Then
      RecFlx.TextMatrix(n, 11) = "2"
      End If
    If RecFlx.TextMatrix(n, 1) = PurRetBatchFlx.TextMatrix(r, 1) And RecFlx.TextMatrix(n, 2) <> PurRetBatchFlx.TextMatrix(r, 2) Or RecFlx.TextMatrix(n, 1) <> PurRetBatchFlx.TextMatrix(r, 1) Then
      If rs.State = adStateOpen Then
      rs.Close
      End If
      rs.Open ("Select * From CURRENTSTOCK Where ProductId = '" & RecFlx.TextMatrix(n, 1) & "' And BatchNo = '" & RecFlx.TextMatrix(n, 2) & "'"), cn, adOpenKeyset, adLockBatchOptimistic
      If Not rs.EOF Then
      If rs(0) = RecFlx.TextMatrix(n, 1) And rs(1) = RecFlx.TextMatrix(n, 2) Then
      RecFlx.TextMatrix(n, 11) = "2"
      End If
      End If
      End If
      End If
      Next r
      Next n
      For n3 = 2 To RecFlx.Rows - 1
      If RecFlx.TextMatrix(n3, 8) = "N" And RecFlx.TextMatrix(n3, 10) = "Y" And RecFlx.TextMatrix(n3, 12) = "1" Then
      If RecFlx.TextMatrix(n3, 11) = "1" Then
      MsgBox ("Sorry! You Have No Stock Of This Product(" + RecFlx.TextMatrix(n3, 1) + ") And Batch(" + RecFlx.TextMatrix(n3, 2) + ")Because Any Other User Alredy Used This Batch Please Remove
This Batch."), vbInformation, "Information"
      Call EmptyGrid
      Exit Sub
      End If
      End If
      Next n3
      'End 11 Number Column Query
    End If
'=========================================================
'Start Saving Portion
'=========================================================
    cn.BeginTrans
    If SaleIdTxt.Enabled = True Then
    cn.Execute ("Insert Into SALES(SaleId,DeliveryId,CustomerId,SaleManId,BusinessGroupId,SaleDate,PreviousBalance,GrossValue,TotalDis1,TotalDis2,TotalGst,AmountReceiveable,EditAuthority,AdjustNoteAmount,AdjustedNoteId)Values " &
"('" & SaleIdTxt.Text & "','" & DeliveryIdTxt.Text & "','" & CustomerIdTxt.Text & "','" & SalemanIdTxt.Text & "','" & BusinessGroupIdTxt.Text & "','" &
SaleDate.Value & "','" & Val(PreviousBalTxt.Text) & "','" & Val(GrossValTxt.Text) & "','" & Val(TotDis1Txt.Text) & "','" & Val(TotDis2Txt.Text) & "','" & Val(GSTValTxt.Text)
& "','" & Val(NetValDecimalTxt.Text) & "','" & "N" & "','" & Val(AdjustNoteAmountTxt.Text) & "','" & AdjustNoteIdTxt.Text & "')")
    End If
    For i = 2 To Flx.Rows - 1
    If Flx.TextMatrix(i, 12) = "1" Then
    cn.Execute ("UPDATE SALESBODY SET Qty = '" & Flx.TextMatrix(i, 3) & "',Bonus = '" & Flx.TextMatrix(i, 4) & "',Price = '" & Val(Flx.TextMatrix(i, 5)) & "',SaleDiscountRatio = '"
& Val(Flx.TextMatrix(i, 6)) & "',SaleDiscount2Ratio = '" & Val(Flx.TextMatrix(i, 7)) & "',STRatio = '" & Val(Flx.TextMatrix(i, 8)) & "',TotalValue = '" & Val(Flx.TextMatrix(i, 9)) & "',TotalSalesTax
= '" & Val(Flx.TextMatrix(i, 10)) & "'WHERE SaleId='" & SaleIdTxt.Text & "' And ProductId='" & Flx.TextMatrix(i, 0) & "'")
    ElseIf Flx.TextMatrix(i, 12) = "0" Then
    cn.Execute ("Insert Into SALESBODY(SaleId,ProductId,Qty,Bonus,Price,SaleDiscountRatio,SaleDiscount2Ratio,STRatio,TotalValue,TotalSalesTax)Values " & "('" & SaleIdTxt.Text & "','" & Flx.TextMatrix(i,
0) & "','" & Flx.TextMatrix(i, 3) & "','" & Flx.TextMatrix(i, 4) & "','" & Val(Flx.TextMatrix(i, 5)) & "','" & Val(Flx.TextMatrix(i, 6)) & "','" & Val(Flx.TextMatrix(i,
7)) & "','" & Val(Flx.TextMatrix(i, 8)) & "','" & Val(Flx.TextMatrix(i, 9)) & "','" & Val(Flx.TextMatrix(i, 10)) & "')")
    End If
    Next i
    For p = 2 To PurRetBatchFlx.Rows - 1
    If PurRetBatchFlx.TextMatrix(p, 8) = "Y" Then
Set rs = cn.Execute("Select * From CURRENTSTOCK Where ProductId='" & PurRetBatchFlx.TextMatrix(p, 1) & "' And BatchNo = '" & PurRetBatchFlx.TextMatrix(p, 2) & "'")
If Not rs.EOF Then
If rs(0) = PurRetBatchFlx.TextMatrix(p, 1) And rs(1) = PurRetBatchFlx.TextMatrix(p, 2) Then
    cn.Execute ("UPDATE CURRENTSTOCK SET Qty = '" & Val(rs("Qty")) + Val(PurRetBatchFlx.TextMatrix(p, 4)) & "' WHERE ProductId='" & PurRetBatchFlx.TextMatrix(p, 1) & "' And BatchNo = '"
& PurRetBatchFlx.TextMatrix(p, 2) & "'")
    End If
    End If
    End If
    Next p
    For i2 = 2 To RecFlx.Rows - 1
    If RecFlx.TextMatrix(i2, 10) = "D" And RecFlx.TextMatrix(i2, 7) = "1" Then
    cn.Execute ("Delete From SALESBATCH Where SaleId='" & SaleIdTxt.Text & "' And ProductId='" & RecFlx.TextMatrix(i2, 1) & "'And BatchNo='" & RecFlx.TextMatrix(i2, 2) & "'")
    ElseIf RecFlx.TextMatrix(i2, 6) = "N" And RecFlx.TextMatrix(i2, 10) = "Y" Then
    cn.Execute ("Insert Into SALESBATCH(SaleId,ProductId,BatchNo,AvailQty,Qty,ExpDate)Values " & "('" & SaleIdTxt.Text & "','" & RecFlx.TextMatrix(i2, 1) & "','" & RecFlx.TextMatrix(i2,
2) & "','" & RecFlx.TextMatrix(i2, 4) & "','" & RecFlx.TextMatrix(i2, 5) & "','" & Format(RecFlx.TextMatrix(i2, 3), "mm/dd/yyyy") & "')")
    End If
    Next i2
    For j = 2 To PurRetBatchFlx.Rows - 1
    If PurRetBatchFlx.TextMatrix(j, 6) = "0" Then
    Set rs = cn.Execute("Select * From SALESBODY Where SaleId='" & SaleIdTxt.Text & "' And ProductId='" & PurRetBatchFlx.TextMatrix(j, 1) & "'")
If Not rs.EOF Then
cn.Execute ("Delete From SALESBODY Where SaleId='" & SaleIdTxt.Text & "' And ProductId='" & PurRetBatchFlx.TextMatrix(j, 1) & "'")
cn.Execute ("Delete From SALESBATCH Where SaleId='" & SaleIdTxt.Text & "' And ProductId='" & PurRetBatchFlx.TextMatrix(j, 1) & "' And BatchNo='" & PurRetBatchFlx.TextMatrix(j, 2) & "'")
End If
End If
    Next j
'This Query For Update Current Stock Table
    For n = 2 To PurRetBatchFlx.Rows - 1
    If PurRetBatchFlx.TextMatrix(n, 8) = "D" Then
    If PurRetBatchFlx.TextMatrix(n, 7) = "1" And PurRetBatchFlx.TextMatrix(n, 8) = "D" Then
    Set rs = cn.Execute("Select * From CURRENTSTOCK Where ProductId='" & PurRetBatchFlx.TextMatrix(n, 1) & "'And BatchNo='" & PurRetBatchFlx.TextMatrix(n, 2) & "'")
If Not rs.EOF Then
If rs(0) = PurRetBatchFlx.TextMatrix(n, 1) And rs(1) = PurRetBatchFlx.TextMatrix(n, 2) Then
cn.Execute ("UPDATE CURRENTSTOCK SET Qty = '" & Val(rs("Qty")) + Val(PurRetBatchFlx.TextMatrix(n, 4)) & "' WHERE ProductId='" & PurRetBatchFlx.TextMatrix(n, 1) & "' And BatchNo = '" & PurRetBatchFlx.TextMatrix(n,
2) & "'")
End If
End If
End If
If PurRetBatchFlx.TextMatrix(n, 7) = "0" And PurRetBatchFlx.TextMatrix(n, 8) = "D" Then
    cn.Execute ("Insert Into CURRENTSTOCK(ProductId,BatchNo,Qty,ExpDate)Values " & "('" & PurRetBatchFlx.TextMatrix(n, 1) & "','" & PurRetBatchFlx.TextMatrix(n, 2) & "','" & PurRetBatchFlx.TextMatrix(n,
4) & "','" & Format(PurRetBatchFlx.TextMatrix(n, 3), "mm/dd/yyyy") & "')")
End If
End If
Next n
For f = 2 To RecFlx.Rows - 1
    If RecFlx.TextMatrix(f, 8) = "N" And RecFlx.TextMatrix(f, 10) = "Y" Then
      Set rs = cn.Execute("Select * From CURRENTSTOCK Where ProductId='" & RecFlx.TextMatrix(f, 1) & "' And BatchNo = '" & RecFlx.TextMatrix(f, 2) & "'")
      If Not rs.EOF Then
      If rs(0) = RecFlx.TextMatrix(f, 1) And rs(1) = RecFlx.TextMatrix(f, 2) Then
      cn.Execute ("UPDATE CURRENTSTOCK SET Qty = '" & Val(rs("Qty")) - Val(RecFlx.TextMatrix(f, 5)) & "' WHERE ProductId='" & RecFlx.TextMatrix(f, 1) & "' And BatchNo = '" &
RecFlx.TextMatrix(f, 2) & "'")
      End If
      End If
    End If
Next f
'End Query For Update Current Stock Table
    If SaleIdTxt.Enabled = True Then
    cn.Execute ("Insert Into CUSTOMERBALANCES(CustomerId,Transactions,IDS,BusinessGroupId,Date,Debit)Values " & "('" & CustomerIdTxt.Text & "','" & "2" & "','" & SaleIdTxt.Text
& "','" & BusinessGroupIdTxt.Text & "','" & SaleDate.Value & "','" & Val(NetValDecimalTxt.Text) & "')")
    If AdjustNoteIdTxt.Text <> "" Then
    cn.Execute ("Insert Into ADJUSTEDCREDITNOTES(SaleId,NoteId,CustomerId,Date,AdjustAmount)Values " & "('" & SaleIdTxt.Text & "','" & AdjustNoteIdTxt.Text & "','" & CustomerIdTxt.Text
& "','" & SaleDate.Value & "','" & Val(AdjustNoteAmountTxt.Text) & "')")
    cn.Execute ("UPDATE CREDITNOTES SET AdjustNotAdjust='" & "1" & "'Where NoteId='" & AdjustNoteIdTxt.Text & "'")
    End If
    ElseIf SaleIdTxt.Enabled = False Then
    cn.Execute ("UPDATE SALES SET DeliveryId='" & DeliveryIdTxt.Text & "',CustomerId='" & CustomerIdTxt.Text & "',SaleManId='" & SalemanIdTxt.Text & "',BusinessGroupId='" & BusinessGroupIdTxt.Text
& "',SaleDate='" & SaleDate.Value & "',PreviousBalance='" & Val(PreviousBalTxt.Text) & "',GrossValue='" & Val(GrossValTxt.Text) & "',TotalDis1='" & Val(TotDis1Txt.Text) & "',TotalDis2='"
& Val(TotDis2Txt.Text) & "',TotalGst='" & Val(GSTValTxt.Text) & "',AmountReceiveAble='" & Val(NetValDecimalTxt.Text) & "',EditAuthority='" & "N" & "',AdjustNoteAmount='" &
Val(AdjustNoteAmountTxt.Text) & "',AdjustedNoteId='" & AdjustNoteIdTxt.Text & "'Where SaleId = '" & SaleIdTxt.Text & "'")
    cn.Execute ("UPDATE CUSTOMERBALANCES SET CustomerId = '" & CustomerIdTxt.Text & "',BusinessGroupId = '" & BusinessGroupIdTxt.Text & "',Date = '" & SaleDate.Value & "',Debit= '"
& Val(NetValDecimalTxt.Text) & "' Where Transactions = '" & "2" & "'And IDS = '" & SaleIdTxt.Text & "'")
    If AdjustNoteIdTxt.Text <> "" Then
    cn.Execute ("Insert Into ADJUSTEDCREDITNOTES(SaleId,NoteId,CustomerId,Date,AdjustAmount)Values " & "('" & SaleIdTxt.Text & "','" & AdjustNoteIdTxt.Text & "','" & CustomerIdTxt.Text
& "','" & SaleDate.Value & "','" & Val(AdjustNoteAmountTxt.Text) & "')")
    cn.Execute ("UPDATE CREDITNOTES SET AdjustNotAdjust='" & "1" & "'Where NoteId='" & AdjustNoteIdTxt.Text & "'")
    ElseIf AdjustNoteIdTxt.Text <> "" Then
    cn.Execute ("UPDATE ADJUSTEDCREDITNOTES SET SaleId='" & SaleIdTxt.Text & "',NoteId='" & AdjustNoteIdTxt.Text & "',CustomerId='" & CustomerIdTxt.Text & "',Date='" & SaleDate.Value
& "',AdjustAmount='" & Val(AdjustNoteAmountTxt.Text) & "'Where NoteId='" & AdjustNoteIdTxt.Text & "'")
    End If
    End If
    cn.CommitTrans
    cn.Execute ("Delete From CURRENTSTOCK Where Qty='" & 0 & "'")
If MsgBox("Record Save Successfully.For Waranty Press YES And For Without Waranty Press No", vbYesNo + vbExclamation, "Question") = vbYes Then
ViewSaleInvoice.Show
Else
ViewUnWarrantedSaleInvoice.Show
End If
'Clear All Text Boxes
ClearImg_Click
Err_X:
If Err.Number <> 0 Then
' Display error meesage ...
    MsgBox "SQL " + Err.Description + " Try Again", vbCritical, "SQL Error"
    Err.Clear
    cn.RollbackTrans
    Exit Sub
    End If
End Sub

Photo Data in Develop?

How can I delete shoting Data when I have the Picture in Develop Space, I do not have it in Library.
It shows the Photo #, date it was taken and the File Size,
thank you for you help,as you see I am new to Lightroom.
thanks
dee-dee542

dee-dee542,
What you will see in the two possible info overlays can be customized in View/View Options (Ctrl-J). In there you can set Loupe Info 1 and Loupe Info 2. Pressing "I" several times cycles through Loupe Info 1, Loupe Info 2 and no overlay.
Beat Gossweiler
Switzerland

Photos dates mixed up

Similar Messages

Maybe you are looking for