Search results

Ok I got it. I added Case xlOpenXMLWorkbook DetermineVersion = acSpreadsheetTypeExcel12Xml and it works now.

So, my function is wrong then??? Function DetermineVersion(intFileFormat As Integer) As Integer Select Case intFileFormat Case xlExcel9795 DetermineVersion = acSpreadsheetTypeExcel97 Case xlExcel7 DetermineVersion = acSpreadsheetTypeExcel7 Case...

Hi there, I have this code; Private Sub Command51_Click() 'Lets get the file name 'Debug.Print "Getting File Name" 'Declare a variable as a FileDialog object. Dim fd As FileDialog Dim Exceltype As Integer Dim objXL As Excel.Application 'Set the starting look...

Wohooo, it was very simple with Append query. For others with same problem see attached. Thank you London for your help.

CJ_London Thank You for your help, Can you please help with Third option, I mean how can I use Val function when in Append Query. Do you have any example access template. I understand better with example.

Ok, Here is what I do, I scan barcode to a excel file with my android phone and email it to myself and import excel to temp table and append this temp table to my Invetory Cycle Count Table than I compare this table to my main Inventory table. The thing is one of the fields that I import is...

Hi There, Is there a way to use Val Function and DoCmd.TransferSpreadsheet Method together. I have one field on excel that contains numbers and text together but I only want to get number part. Thank You...

Can I get this file too..

Can anybody help me to code this; Navigate to the next record Capture the EventID value Navigate back to the "current" record Delete the current record Send a "message" from frmEventDetail to frmViewEventHistoryList. The "message" (typically, a call to a public procedure on...

Well, what to do? What should I do?

No, it did not work, I tried adding Me.Requery If blnLast Then Call DoCmd.GoToRecord(Record:=acPrevious) Me.Requery

Hi There, I get this error when I delete more than one record consecutively. Here is my delete code; Private Sub Komut98_Click() Dim blnLast As Boolean 'MsgBox call must return the value in order to be checked. 'If user says no then cancelling is not required. It is only required...

Dear Gina, I have come to the end of this project but I have one last problem to solve, there is a code supposed to run behind the BarcodeNumber field on the main form to generate eancode, which is; Private Sub BarcodeNumber_AfterUpdate() Me.eancode = code128(BarcodeNumber) Me.Requery Me.Refresh...

Is it possible to do this with vba code in after-update event of BarcodeNumber...

Not the actual barcode, just the numbers like "001232310011" , still not possible? :) like calculated field...

Dear Gina, Not in the report actually, first, I want to store concatenated numbers in the Assets table in BarcodeNumber field.

All those are already done. My problem is, as I explained on previous message, "I need to do is concatenate 4 fields in one field and record the result in to BarcodeNumber(this field is already created in Assets table) field in Assets table. Is it possible? If so how? "

Dear Gina, I have solved the problem but, what I need to do is concatenate 4 fields in one field and record the result in to BarcodeNumber(this field is already created in Assets table) field in Assets table. So this is how I will be generating barcode number. Is it possible? If so how?

Dear Gina, I am joining the field "MarkaKodu" from Marka table and it is text. I do not understand?

Dear Gina, The problem is with test query. Please see the DB file on the link; https://drive.google.com/folderview?id=0B4XWxrfIVqpteEpsVDJfdlV3bEk&usp=drive_web