I apologize for delay, but my pc had some problem. This is the result:
SELECT
RSDR.CTIPSOM, RSDR.DANNCON, RSDR.NRIF, RSDR.CTERINS
, RSDR.COPRINS, RSDR.DDATINS, RSDR.COPRAGG
, RSDR.DDATAGG, RSDR.SSTA, RSDR.COPR, RSDR.DCON
, RSDR.NOPE, RSDR.CFIS
, RSDR.CTIPARC, RSDR.IIMP
...
This is clear, but if I want join to a field in another table, I'm looking for a function for
SELECT MT1.field1, MT1.field2, MT2.field1 in MyTable1 MT1, MyTable2 MT2
WHERE FUN(right(MT1.field4, 4)) = MT2.field2;
(MT2.field2 is numeric)
Candu si tene su 'entu es prezisu bentolare.
The problem is not to decode the sign, but the number.
In other words, I try a function like f(right(myfield, 4)) returning 1578.
Thanks
Candu si tene su 'entu es prezisu bentolare.
Within Spufi I'm reading a field that contains three fields values in a string.
It appears as
01F0058
0C2017C in hex, where 0001758+ is the field I would use for join with an other table.
How can I convert this in numeric?
Thanks to all
Candu si tene su 'entu es prezisu bentolare.
Using Add method I think it would work:
Sub xx()
Dim w As Object
On Error GoTo err
Application.DisplayAlerts = False
Do
Set w = Workbooks.Add("obj.xls")
' ....
w.SaveAs Filename:="obj.xls"
w.Close
Loop
Exit Sub
err:
Debug.Print...
Read this:
http://www.add-ins.com/support/out-of-memory-or-not-enough-resource-problem-with-microsoft-excel.htm
Candu si tene su 'entu es prezisu bentolare.
Option Explicit
Sub cc()
Dim strRange As String, x As Boolean
strRange = "A1:B2"
x = SelectRange(strRange)
End Sub
Function SelectRange(strRange) As Boolean
SelectRange = Range(strRange).Select
End Function
Candu si tene su 'entu es prezisu bentolare.
Try this:
Option Explicit
Sub xxx()
transpose Range("G2:G5"), Range("G1:J1")
End Sub
Function transpose(f As Range, t As Range)
Dim i As Integer
For i = 1 To f.Count - 1
t.Item(i) = f.Item(i)
Next
End Function
Candu si tene su 'entu es prezisu bentolare.
For example,if cell J2 needs to become G2 and cell J3 needs to become H2:
Range("J2:J3").Select
Application.CutCopyMode = False
Selection.Copy
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Candu...
Maybe it's a forum wrong section.
I move question to Visual Basic(Microsoft) ActiveX Controls and DLLs Forum.
Candu si tene su 'entu es prezisu bentolare.
Using vb6 I created a DLL with many functions I use in vba.
Now I would know wich program is calling my DLL (within it).
If excel is calling it, GetModuleFileName function of kernel32.dll returns c:\..\..\excel.exe, but I would know wich workbook is running (Application.ActiveWorkbook.FullName)...
Using vb6 I created a DLL with many functions I use in vba.
Now I would know wich program is calling my DLL (within it).
If excel is calling it, GetModuleFileName function of kernel32.dll returns c:\..\..\excel.exe, but I would know wich workbook is running...
I tried to modify plus-minus option inserting icons.
In vb6 it works fine, loading images in a ImageList control, then refering it using
TreeView1.ListImage = ImageList0
In this version of treeview control (access 2007) ImageList property is not available.
How can I do?
Thanks in advance...
This is my code in vba:
Sub yy()
savefile "C:\myDir\Aaa.pdf", "C:\myDir\Aaa.txt"
End Sub
Sub savefile(ByVal sfile As String, ByVal txtfile As String)
Dim acroApp, acroAV, acroPD, jso As Object
On Error GoTo ErrHandler
Set acroApp = CreateObject("AcroExch.App")
Set acroAV =...
Using an example I tried to obtain to save a pdf file in txt format within acrobat 8 professional.
This is the code:
mySaveAs = app.trustPropagatorFunction(function(doc, path, type)
{
app.beginPriv();
doc.saveAs(path, type);
app.endPriv();
});
mySaveDoc = app.trustedFunction( function (doc...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.