תחומים - פורום חרדי מקצועי

@dovid אמר בשליפת רשומה רנדומאלית באקסס:

אי אפשר לגשת למשפר השורות בלי MoveLast?

https://docs.microsoft.com/en-us/office/vba/access/concepts/data-access-objects/count-the-number-of-records-in-a-dao-recordset
ככה הם אומרים.
http://www.baldyweb.com/RecordCounts.htm

ולמה MyRS.MoveNext בלולאה, אין פקודה לנוע מספר נתון ישירות?

כן יש, rs.move 10
שאלות, על המדריך שם..

@spider
כמובן.

תנסה את זה:

dlookup("עמודהשם", "טבלה", "עמודהID=" &  Int((DMAX("עמודהID","טבלה")  - 1 + 1) * Rnd + 1))

זה בהנחה שכל המספרים מלאים והמספור מתחיל ב1, אם יש מספרים ריקים, לפעמים הוא לא יחזיר כלום.

https://www.techonthenet.com/access/functions/numeric/rnd.php

@spider
הגרלה, לפי הידוע לי, אפשר לעשות רק על מספר.
לא יודע אם יש דרך לעשות הגרלה דרך אקסס לבד, עם VBA תוכל לעשות את זה.
אתה מכיר קצת VBA?

@spider
מה זה נקרא באופן אקראי, כאילו הגרלה?

@spider

DLookUp("עמודה", "טבלה","שם שדה בטבלה=" & "מה לחפש")

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

@one1010 אמר בחישוב תאריך אל מול רשימת תאריכים באקסל:

שזה אומר לעשות עוד תאים מיותרים בגליון?!

למה? רק עכשיו בעת ההמרה יש לך תאים מיותרים.
אחרי זה תעשה העתק, הדבק כערכים.
ולהבא, תרשום עם סלשים.

@one1010

מה הפתרון?

אם הם רק כמה תאריכים, תחליף אותם ידנית.
אם מדובר בכמות גדולה, תוכל להשתמש עם הפונקציה DATE משולב עם MID שישלוף לך את הנתונים מהקיים.
דוגמא

=DATE(MID(L2,7,4),MID(L2,4,2),MID(L2,1,2))

@one1010
שמת ארגומנט לא נכון.
הוא מחפש את מה שגדול מהתאריך שכתבת..
שמת < = גדול מ
במקום > קטן מ

@one1010

וכאן הנוסחה

=SUMIF($W$16:$W$25,"<="&Z17,$X$16:$X$25)

אם אתה רוצה שהוא לא יחשבן את התאריך (בדוגמא, רק מה שעד - ולא כולל - ה4 לפברואר)
תמחק את ה= שבקוד

@one1010
אולי תעלה דוגמא קטנה, אפשר בתמונה גם.
זה מאוד ימקד את השאלה.

@שואף אמר בהפניית שיחות נייד לנייד:

@אפר-שריפה אמר בהפניית שיחות נייד לנייד:

@שואף נראה לי שבכשר חסום העברה לנייד אבל בלא כשר יעבוד

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

מאומת.

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

@spider אמר באקסס למתחילים: תגובות:

@מלא אם הבנתי נכון אני צריך קודם כל ליצור טבלה עם עמודה לשם משתמש, לסיסמא, ולהרשאות נכון?

נכון מאוד.

תוסיף משתנים אלו במודול כללי

מה הכוונה מודול כללי איפה להוסיף?

מודול כללי, הכוונה למודול שאינו תלוי בטופס - אפשר לקרוא לפונקציות שלו כל הזמן.

תוסיף מודול הזה לפרוייקט:

להכניס את הקוד הזה לטופס? או לפרוייקט?(איך מכניסים את זה לפרוייקט?)

בכרטיסיה 'יצירה' בצד שמאל, יש 'מודול'
תיצור ככה מודול ותוסיף את הקוד.
במודול הזה למעלה, אחרי השורה או 2 השורות הראשונות, תדביק את 2 המשתנים.

תודה ענקית וסליחה על הבורות

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

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

[TempVars]![Permissionlevel] = Me.cobUser.Column(1)

במקום Column(1) תכתוב את מספר העמודה ששם יהיה רמת הרשאה.

תוסיף משתנים אלו במודול כללי

Global CanDel As Boolean
Global CanEdit As Boolean

תוסיף מודול הזה לפרוייקט:

sub Permissionlevel ()
    Dim strPermissionlevel     As String
    
    strPermissionlevel = [TempVars]![Permissionlevel]

    If strPermissionlevel = "מנהל בכיר" Then
        CanEdit = True
        CanDel = True
    ElseIf strPermissionlevel = "מנהל" Then
        CanDel = True
        CanEdit = False
    Else
        CanDel = False
        CanEdit = False
    End If
End sub

ובאירוע בעת פתיחה של טופס, תוסיף את הקוד הזה.

    Call Permissionlevel
    Me.AllowEdits = CanEdit
    Me.AllowDeletions = CanDel

@אביי
בטח שאפשר, עם IIF
בדוגמא שלך

=[A] & " " & [B] & iif(ISNULL([D]),""," א " & [D])

@חייםיודלביץ
https://iconarchive.com/

@www
שם זה לא רק הזחה, שם זה גם השלמה, אתה שם סוגר פותח ומקבל סגור.
בVBA אין השלמה, אז זה לא כזה נוח.

@OdedDvir ברובר יש השלמה לIFים וכו'?