תוכנה לניהול הוצאות והכנסות

~רחלי~

משתמש סופר מקצוען
מוזיקה ונגינה
צילום מקצועי
עיצוב ואדריכלות פנים
הודעת שגיאה
 

קבצים מצורפים

  • הודעת שגיאה.jpg
    KB 101.3 · צפיות: 14

HUBHCBH

משתמש מקצוען
אוטומציה עסקית
לגבי הפתיחה ב 64 ביט
כל מה שאתה צריך לעשות הוא לסגור את התוכנה ב 64 ביט.
ברוב הקודים אין הבדל בין 64 ל 32 ביט.
חוץ מזה, יפה מאד!
ועוד טיפ קטנטן.. בשאילתה "תנועות לרשימה" אפשר במקום הריבוי קרטריונים לרשום במקום
קוד:
[forms]![תנועות]![חשבון]
לרשום
קוד:
Like [forms]![תנועות]![חשבון] & "*"
וכך גם כאשר השדה ישאר רק הוא יציג הכל.
כמובן שאז הוא לא יסנן שדה רק ולכן להשאיר תנאי שאם רק אז "" וכו'
בהצלחה
 

HUBHCBH

משתמש מקצוען
אוטומציה עסקית
נכתב ע"י לפום ריהטא;1151346:
שער הדולר-בעיית חיבור

מן הסתם, או שזה במחשב שלי אינטרנט או שזה במחשב "מנותב" או חסום בדרך אחרת.
 

weiss

משתמש חדש
נכתב ע"י HUBHCBH;1152253:
מן הסתם, או שזה במחשב שלי אינטרנט או שזה במחשב "מנותב" או חסום בדרך אחרת.

צריך להיות פתוח האתר של בנק ישראל!
 

גיטי 123

משתמש סופר מקצוען
לא הבנתי.
המחשב שלי גם 64 סיביות, מה אני אמורה לעשות?
 

FullTime

משתמש מקצוען
נכתב ע"י גיטי 123;1159537:
לא הבנתי.
המחשב שלי גם 64 סיביות, מה אני אמורה לעשות?

אין מה לעשות, רק לבקש למייצר התוכנה, שיואיל להמירו גם ל64 ביט.
כמובן שיצטרך להשיג או להתקין מחשב של 64.
 

Rרחמים

משתמש סופר מקצוען
עיצוב גרפי
איור וציור מקצועי
מוזיקה ונגינה
עריכה תורנית
D I G I T A L
עימוד ספרים
עיין כאן:
http://blogs.microsoft.co.il/dudin/2011/05/02/currency-exchange-rate-from-bank-of-israel-by-code/

ועיין גם כאן:
http://www.boi.org.il/he/Markets/Pages/explainxml.aspx

קוד:
Private Function BankOfIsraelExchangeRate([date] As DateTime, Optional currency As String = "01") As Double
	Dim ExchangeRate As Double = 0
	Dim XmlUrl As String = Convert.ToString("http://www.boi.org.il/currency.xml?" + "rdate=" + [date].ToString("yyyyMMdd") + "&curr=") & currency
	Dim dtExchangeRate As New DataSet("BankOfIsraelExchangeRate")
	dtExchangeRate.ReadXml(XmlUrl)
	If dtExchangeRate.Tables.Count > 1 Then
		ExchangeRate = Convert.ToDouble(dtExchangeRate.Tables(1).Rows(0)("RATE"))
	' No exchange rate published for this date, then loop 6 days back
	ElseIf dtExchangeRate.Tables.Count > 0 Then
		For i As Integer = 1 To 6
			Dim CheckDate As DateTime = [date].AddDays((-1) * i)
			Dim XmlLoopUrl As String = Convert.ToString("http://www.boi.org.il/currency.xml?" + "rdate=" + CheckDate.ToString("yyyyMMdd") + "&curr=") & currency

			Dim dtLoopExchangeRate As New DataSet("BankOfIsraelLoopExchangeRate")
			dtLoopExchangeRate.ReadXml(XmlLoopUrl)
			' Found valid published exchange rate
			If dtLoopExchangeRate.Tables.Count > 1 Then
				ExchangeRate = Convert.ToDouble(dtLoopExchangeRate.Tables(1).Rows(0)("RATE"))
				Exit For
			End If
		Next
	End If

	Return ExchangeRate
End Function
 

moishy

משתמש סופר מקצוען
מנוי פרימיום
הקוד בVB.NET לא VBA.

אם יהיה לי פנאי אמיר אותו לVBA.
 

moishy

משתמש סופר מקצוען
מנוי פרימיום
בבקשה:
קוד:
Option Explicit

Public Declare Function InternetGetConnectedState Lib "wininet.dll" (lpdwFlags As Long, ByVal dwReserved As Long) As Boolean

Public Function GetBankOfIsraelExchangeRate(Optional dtDate As Date = #1/1/1900#, Optional strCurr As String = "01") As Double

    Dim strURL As String
    Dim strResult As String

    Dim pos As Long
    Dim strSearch As String
    
    strSearch = Chr(60) & "RATE" & Chr(62)

    Dim dtPreviousDate As Date
    Dim i As Integer

    If dtDate = #1/1/1900# Then dtDate = Date

    DoCmd.Hourglass True
    If IsConnected Then
        strURL = "http://www.boi.org.il/currency.xml?rdate=" & Format(IIf(Not IsNothing(dtPreviousDate), dtPreviousDate, dtDate), "YYYYMMDD") & "&curr=" & strCurr
        strResult = GetHTML(strURL)
        If InStr(1, strResult, strSearch) < 1 Then
            For i = 1 To 6
                dtPreviousDate = dtDate - 1
                strURL = "http://www.boi.org.il/currency.xml?rdate=" & Format(dtPreviousDate, "YYYYMMDD") & "&curr=" & strCurr
                strResult = GetHTML(strURL)
                If InStr(1, strResult, strSearch) > 0 Then Exit For
            Next i
        End If
    Else
        MsgBox "אינך מחובר לאינטרמת!", vbCritical
    End If
    DoCmd.Hourglass False

    If Len(strResult) > 0 Then
        pos = InStr(1, strResult, strSearch, vbTextCompare)
        If pos > -1 Then
            GetBankOfIsraelExchangeRate = Mid(strResult, pos + Len(strSearch), 5)
        End If
    End If

End Function

Function IsConnected() As Boolean
    Dim Stat As Long
    IsConnected = (InternetGetConnectedState(Stat, 0&) <> 0)
End Function

Function GetHTML(strURL As String) As String
    Dim HTML As String
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", strURL, False
        .Send
        GetHTML = .ResponseText
    End With
End Function

Public Function IsNothing(ByVal varValueToTest) As Integer

    Dim intSuccess As Integer

    On Error GoTo IsNothing_Err
    IsNothing = True

    Select Case VarType(varValueToTest)
        Case 0      ' Empty
            GoTo IsNothing_Exit
        Case 1      ' Null
            GoTo IsNothing_Exit
        Case 2, 3, 4, 5, 6  ' Integer, Long, Single, Double, Currency
            If varValueToTest <> 0 Then IsNothing = False
        Case 7      ' Date / Time
            IsNothing = False
        Case 8      ' String
            If (Len(varValueToTest) <> 0 And varValueToTest <> " ") Then IsNothing = False
    End Select


IsNothing_Exit:
    On Error GoTo 0
    Exit Function

IsNothing_Err:
    IsNothing = True
    Resume IsNothing_Exit

End Function
<rate><rate><rate>
</rate></rate></rate>
 

אולי מעניין אותך גם...

הפרק היומי

הפרק היומי! כל ערב פרק תהילים חדש. הצטרפו אלינו לקריאת תהילים משותפת!


תהילים פרק קיט ב'

ט בַּמֶּה יְזַכֶּה נַּעַר אֶת אָרְחוֹ לִשְׁמֹר כִּדְבָרֶךָ:י בְּכָל לִבִּי דְרַשְׁתִּיךָ אַל תַּשְׁגֵּנִי מִמִּצְוֹתֶיךָ:יא בְּלִבִּי צָפַנְתִּי אִמְרָתֶךָ לְמַעַן לֹא אֶחֱטָא לָךְ:יב בָּרוּךְ אַתָּה יְהוָה לַמְּדֵנִי חֻקֶּיךָ:יג בִּשְׂפָתַי סִפַּרְתִּי כֹּל מִשְׁפְּטֵי פִיךָ:יד בְּדֶרֶךְ עֵדְוֹתֶיךָ שַׂשְׂתִּי כְּעַל כָּל הוֹן:טו בְּפִקֻּדֶיךָ אָשִׂיחָה וְאַבִּיטָה אֹרְחֹתֶיךָ:טז בְּחֻקֹּתֶיךָ אֶשְׁתַּעֲשָׁע לֹא אֶשְׁכַּח דְּבָרֶךָ:
נקרא  5  פעמים

לוח מודעות

למעלה