אקסס האשכול המרכזי לשאלות וטיפים באקסס

[לעזור לכולם]

משהו? מישהו?

 

[קלידן צעיר]

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

 

[משה הישראלי]

האם יש למישהו APK שפותח קובץ .MDB =אקסס=מסד נתונים
באנדרואיד
מצאתי את זה
ואת זה

אבל זה לא יורד לי

תודה רבה

 

[איציק הצדיק]

ממש קופץ.
אני משתמש עם האקסס שלך בלי סוף. אבל עכשיו היבוא נתונים מבנק ישראל נכשל, וכותב לי על עשרות שורות שהבנק לא נכון...
מה אפשר לעשות?
עריכה תיקון כתיב

בגלל שבנק ישראל שוב (!) שינו את מיקום הקובץ עם המידע.
במודול mdlGetBankInfo יש להחליף את הקישור הזה:
http://www.bankisrael.gov.il/he/Ban...tions/Lists/BoiBankBranchesDocs/snifim_he.xml
עם זה:
http://www.boi.org.il/he/BankingSup.../Lists/BoiBankBranchesDocs/snifim_dnld_he.xml

ושוב שינו והקישור הנכון הוא

https://www.boi.org.il/boi_files/Pikuah/snifim_he.xml

 

[אלף בינה]

לצורך מסד נתונים של נוכחות והספקים (מדובר בעובד אחד ולא כמה עובדים)
איך בונים את קשרי הגומלין בהינתן:
לכל תאריך יש כמה נתונים של הספקים
ולכל תאריך יש כמה נתונים של נוכחות

דוגמה:
בתאריך 1/1/2025 הנוכחות היתה:
א) 1:30 (בין השעות 8:30 -10:00)
ב) 1:15 (בין השעות 12:00 - 13:15)
ג) 2:35 (בין השעות 20:15 - 22:50)
וכו'

ובנוסף באותו תאריך נתוני ההספק היו (לא קשור לנתוני הנוכחות!)
א) 15
ב) 3

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

בתמונה המצורפת יש דוח סיכום נוכחות אך ללא סיכום ההספקים.

לצורך הדוח מספיק לי להציג את סיכום ההספקים רק בשורת הסיכום היומית (הכחולה) ובסיכום השבועי (הצהוב) והכללי (הירוק).

מבנה מסד הנתונים הקיים הוא:

טבלת נוכחות (עם 3 שדות : "תאריך","שעת כניסה","שעת יציאה". שאר השדות [תאריך עברי,פרשה,סיכום יומי] מחושבים בשאילתה)

טבלת הספקים (שדות "תאריך","הספק","הערות")

איך מקשרים הכל? (או איך בונים את הטבלאות מחדש ...)
תודה מראש למומחים!!

 

[אלף בינה]

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

לסיכום יומי, סיכום שבועי וסיכום כללי.

אך בכל זאת נתקלתי בבעיה בכתיבת הקריטריון של הפונקציה:

כך כתבתי בהתחלה:

Dlookup("sum","qryDailyOutput","[OutputDate] = " & [CurrentDate])

הדוח לא מציג נתון!

הפיתרון:
א. יצרתי 3 תיבות טקסט מוסתרות ששמותיהם "txtYear","txtMonth","txtDay"
מקור פקד כדלהלן:

=Year([CurrentDate])
=Month([CurrentDate])
=Day([CurrentDate])

ואחר כך במקור הפקד של תיבת הטקסט של סיכום ההספק כתבתי:

=DLookUp("sum","qryDailyOutput","Year([OutputDate]) = " & [txtYear] &
                                                     "AND Month([OutputDate]) = " & [txtMonth] &
                                                     "AND Day([OutputDate]) = "& [txtDay])

מסורבל, אבל עובד...
והנה התוצאה:

 

[מליה]

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

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

 

[י. שלמה כהן]

בדינרים ומצ'ינגים יש תוכנת התרמה ששוכרים לצורך האירוע

 

[איציק הצדיק]

@moishy מה הוא אומר לי ומה לא תקין?
זה מה שקופץ לי כשאני מנסה להפיק קובץ.

תודה מראש

 

[ari rm]

@moishy מה הוא אומר לי ומה לא תקין?
זה מה שקופץ לי כשאני מנסה להפיק קובץ.

צפה בקובץ המצורף 1878209תודה מראש

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

 

[איציק הצדיק]

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

מכיון שאני לא מבין כהוא זה האקסס, לא הבנתי מה שכתבת.
בכל אופן תודה על עצם ההתייחסות והכתיבה.
תכלס מה הפיתרון אני רוצה לייצר קובץ זיכויים למסב בעזרת התוכנה ש @moishy היקר בנה והעלה לרווחת הציבור ותודות על כך.
כרגע הוא נתקע לי ולא מייצר לי קבצים, מה צריך לעשות כדי שזה יעבוד?

 

[moishy]

תחליף את כל הקוד במודול הזה בקוד הבא

Option Compare Database
Option Explicit

'************** Code Start **************
'This code was originally written by Terry Kreft.
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.
'
'Code courtesy of
'Terry Kreft

'Some modifications made by Peter De Baets of
'Peter's Software - http://www.peterssoftware.com
'
'FYI: The file open/save dialog module can be found here:
'http://www.mvps.org/access/api/api0001.htm
'
'-----------------------------------------------------
' MODIFIED by agpuzon for x64 system
' now, can be used both on x86 and x64 Access
'-----------------------------------------------------

#If VBA7 Or Win64 Then

    Private Type BROWSEINFO
        hOwner As LongPtr
        pidlRoot As LongPtr
        pszDisplayName As String
        lpszTitle As String
        ulFlags As Long
        lpfn As LongPtr
        lParam As LongPtr
        iImage As Long
    End Type
    
    Private Declare PtrSafe Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" _
            (ByVal pidl As LongPtr, ByVal pszPath As String) As Long
            
    Private Declare PtrSafe Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" _
        (lpBrowseInfo As BROWSEINFO) As LongPtr
#Else

    Private Type BROWSEINFO
      hOwner As Long
      pidlRoot As Long
      pszDisplayName As String
      lpszTitle As String
      ulFlags As Long
      lpfn As Long
      lParam As Long
      iImage As Long
    End Type

    Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
                "SHGetPathFromIDListA" (ByVal pidl As Long, _
                ByVal pszPath As String) As Long
                
    Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
                "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _
                As Long
            
#End If
Private Const BIF_RETURNONLYFSDIRS = &H1

Sub a_test()
Dim strFolderName As String

strFolderName = BrowseFolder("Please select a folder.")

MsgBox strFolderName

End Sub


Public Function BrowseFolder(Optional szDialogTitle As String = "") As String
'* This function returns a folder selected in the Windows folder browse common dialog
'* it was modified by Peter De Baets to always return a folder string with a trailing "\"
  Dim x As Long, bi As BROWSEINFO
#If Win64 Or VBA7 Then
  Dim dwIList As LongPtr
#Else
  Dim dwIList As Long
#End If
  Dim szPath As String, wPos As Integer
  Dim strRtn As String
 
    strRtn = ""
 
    With bi
        .hOwner = hWndAccessApp
        .lpszTitle = szDialogTitle
        .ulFlags = BIF_RETURNONLYFSDIRS
    End With
    
    dwIList = SHBrowseForFolder(bi)
    szPath = Space$(512)
    'szPath = String$(512, Chr(0))
    x = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)
    
    If x Then
        wPos = InStr(szPath, Chr(0))
        strRtn = left$(szPath, wPos - 1)
    Else
        strRtn = ""
    End If
    
    '* Make sure that the folder is always returned with a backslash at the end
    If right(strRtn, 1) = "\" Then
    Else
        If IsNull(strRtn) Or strRtn = "" Then
        Else
            strRtn = strRtn & "\"
        End If
    End If
    BrowseFolder = strRtn
End Function

אני לא יכול כרגע לבדוק את זה (יתכן שיהיה צורך באי אלו שינויים), בכל מקרה תנסה.

 

[עוסק]

אני באמצע פרוייקט יש לי הרבה אנשי קשר ואני צריך לצרף להם מסמכים
אני מחפש לייצר לחצן בטופס אקסס שיפעיל סריקת מסמך וישייך ישירות לאיש הקשר שאצלו סרקתי

לדוג'
מתוך טופס פרטי תלמיד, לחצן לסריקת תעודה/ מכתב מהורים/ מבחן וכד'
הלחצן יפעיל את הסורק ישמור את הסריקה בספריה מוגדרת מראש
ויוסיף בפרטי התלמיד את הנתיב לסריקה
עם אפשרות להוסיף ולשייך עוד מסמכים

(במקום לסרוק ולשמור ואח"כ להוסיף בפרטי התלמיד את הנתיב לקובץ)

מי שיודע זה מאד יעזור לי
תודה רבה
יעקב

 

[ברוך ר]

יש לי קובץ אקסס שהיה בו הרבה רשימות חשובות מאד שנמחק, האם יש דרך לשחזר ?

 

[צל של עצמו]

מאיפה נמחק מהמחשב או מדיסק אונקי?

 

[ברוך ר]

מאיפה נמחק מהמחשב או מדיסק אונקי?

מהמחשב
הקובץ עצמו קיים רק התוכן נעלם

 

[מתכנת חובב]

@ברוך ר עדיין רלוונטי?

 

[ברוך ר]

@ברוך ר עדיין רלוונטי?

כן

 

[מתכנת חובב]

@ברוך ר אפשר לפנות אלי למייל egozkukus1 בג'ימייל ואנסה לשחזר
במקרה של הצלחה אני גובה תשלום שעליו נסכם במייל

 

[ברוך ר]

@ברוך ר אפשר לפנות אלי למייל egozkukus1 בג'ימייל ואנסה לשחזר
במקרה של הצלחה אני גובה תשלום שעליו נסכם במייל

אין איזה קובץ טויוטה איפשהו במחשב ?