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

[weiss]

העליתי פה תוכנה של "הוצאה והכנסה

 

[london]

תודה רבה מכל הלב

thanks

 

[מר נחמיאס]

יש כמה באגים, אבל חמוד.

 

[weiss]

יש כמה באגים, אבל חמוד.

נא לשלוח איזה באגים יש, למייל שמופיע בתוך התוכנה

 

[david48483]

תודה רבה

 

[~רחלי~]

הודעת שגיאה

 

[park]

לא עובד על 64 ביט.

 

[HUBHCBH]

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

[forms]![תנועות]![חשבון]

לרשום

Like [forms]![תנועות]![חשבון] & "*"

וכך גם כאשר השדה ישאר רק הוא יציג הכל.
כמובן שאז הוא לא יסנן שדה רק ולכן להשאיר תנאי שאם רק אז "" וכו'
בהצלחה

 

[לפום ריהטא]

שער הדולר-בעיית חיבור

 

[HUBHCBH]

שער הדולר-בעיית חיבור

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

 

[weiss]

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

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

 

[אברהם ב]

איך סוגרים ל64 ביט

 

[FullTime]

איך סוגרים ל64 ביט

לא סוגרים ל
המחשב והאופיס צריכים להיות בני ס"ד ביט

 

[גיטי 123]

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

 

[FullTime]

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

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

 

[FullTime]

weiss אולי תשתף אותנו בקוד של השער היציג?
תודה מראש.

 

[Rרחמים]

עיין כאן:
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

 

[FullTime]

...

 ..

או שהקוד לא טוב, או שאני לא יודע איך לעבוד איתו.
היואיל מישהו להסביר או להדריך

 

[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>