Discussion :

[morobaboumar]

Bonjour.
Le code est probablement : WeekDayAr(WeekDay(Date)) au lieu de WeekDayAr(WeekDay(Date)).
A+

Bonsoir marot_r,
Voici l'erreur que la ligne du code me ramène:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 WeekDayAr(WeekDay(Date))

portant dans le module du formulaire, il n'y a pas de fonction WeekDay qui se répète.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Option Compare Database
Option Explicit
 
Private Sub Form_Open(Cancel As Integer)
'______________________________
On Error Resume Next
'________________________________
 
    Dim dtGreg As String, dtHeg As String
    Calendar = vbCalGreg
    dtGreg = Date
    Me.DateGregorienne = "Gregorien:" & " " & dtGreg
    Calendar = vbCalHijri
    dtHeg = Date
    Me.DateHegirienne = "Hegire:" & " " & dtHeg
    Calendar = vbCalGreg
    '_________________________________________________
    '_________________________________________________
     Dim dtGreg_2 As String, dtHeg_2 As String
    Calendar = vbCalGreg
    dtGreg_2 = Date
    Me.DateGregorienne_2 = dtGreg_2
 
    Calendar = vbCalHijri
    dtHeg_2 = Date
    Me.DateHegirienne_2 = dtHeg_2
 
    ' code pour afficher la date générale :
    dtHeg_2 = WeekDayAr(weekDay(Date)) & " " & Day(Date) & " " & _
    MoisAr(Month(Date)) & " " & Year(Date)  ' soit cette ligne
 
    'dtHeg = Format(Date, "dddd") & " " & Day(Date) & " " & _
    moisToIsl(Month(Date)) & " " & Year(Date) '  ' soit cette ligne
 
    Me.DateHegirienneGenerale = dtHeg_2
 
    Calendar = vbCalGreg
End Sub
 
Public Function WeekDayAr(wdn) As String
       Dim result As String
       Select Case wdn
            Case 0: result = "Lundi"
            Case 1: result = "'Mardi"
            Case 2: result = "Mercredi"
            Case 3: result = "Jeudi"
            Case 4: result = "Vendredi"
            Case 5: result = "Samedi"
            Case 6: result = "Dimanche"
            Case Else: result = "#Erreur " & wdn & " Inconnu#"
      End Select
      WeekDayAr = result
End Function

Cordialement.

[User]

Bonjour,

Regardez dans vos modules standards, le problème c'est que vous utilisez un nom de fonction weekday qui existe déjà dans Access.

Cdlt,

[morobaboumar]

Bonjour,
Regardez dans vos modules standards, le problème c'est que vous utilisez un nom de fonction weekday qui existe déjà dans Access.
Cdlt,

Bonsoir User,

Je vous envoie les modifications que j'ai effectuées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
' ++++ Fonct. pour retrouver la correspondance arabe des jour de la semaine
Public Function CorrespondanceJourAr(JourAr As String) As String
Dim db As Database
Dim rst As Recordset
Dim sql As String
Set db = CurrentDb
sql = "select * from Tbl_JoursDelaSemaine where L_JourFr = '" & JourAr & "' ;"
Set rst = db.OpenRecordset(sql)
With rst
    If .EOF Then
        CorrespondanceJourAr = "Correspondance non définie"
    Else
        CorrespondanceJourAr = .Fields("L_JourAr")
    End If
End With
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Option Compare Database
Option Explicit
 
Private Sub Form_Open(Cancel As Integer)
'______________________________
On Error Resume Next
'________________________________
 
    Dim dtGreg As String, dtHeg As String
    Calendar = vbCalGreg
    dtGreg = Date
    Me.DateGregorienne = "Gregorien:" & " " & dtGreg
    Calendar = vbCalHijri
    dtHeg = Date
    Me.DateHegirienne = "Hegire:" & " " & dtHeg
    Calendar = vbCalGreg
    '_________________________________________________
    '_________________________________________________
     Dim dtGreg_2 As String, dtHeg_2 As String
    Calendar = vbCalGreg
    dtGreg_2 = Date
    Me.DateGregorienne_2 = dtGreg_2
 
    Calendar = vbCalHijri
    dtHeg_2 = Date
    Me.DateHegirienne_2 = dtHeg_2
 
    ' code pour afficher la date générale :
    dtHeg_2 = CorrespondanceJourAr(WeekDayAr(weekDay(Date))) & " " & Day(Date) & " " & _
    MoisAr(Month(Date)) & " " & Year(Date)  ' soit cette ligne
 
    'dtHeg = Format(Date, "dddd") & " " & Day(Date) & " " & _
    moisToIsl(Month(Date)) & " " & Year(Date) '  ' soit cette ligne
 
    Me.DateHegirienneGenerale = dtHeg_2
 
    Calendar = vbCalGreg
End Sub
 
Public Function WeekDayAr(wdn) As String
       Dim result As String
       Select Case wdn
            Case 0: result = "Lundi"
            Case 1: result = "'Mardi"
            Case 2: result = "Mercredi"
            Case 3: result = "Jeudi"
            Case 4: result = "Vendredi"
            Case 5: result = "Samedi"
            Case 6: result = "Dimanche"
            Case Else: result = "#Erreur " & wdn & " Inconnu#"
      End Select
      WeekDayAr = result
End Function

Voici le résultat:





Il y a toujours le problème de non affichage du nom du jour.

Cordialement.

[User]

envoyez votre base, je vois pas d'autre solution..

[marot_r]

Bonjour.

Pourquoi la double transformation de numérique à jour en français puis en arabe ?

Je suggère de modifier ta fonction CorrespondanceJourAr() pour qu'elle prenne un argument numérique et de lui passer directement l'indice du jour.
Quelque chose comme : CorrespondanceJourAr(weekDay(Date))).
En plus WeekDay te retounre une valeur entre 1 et 7 donc c'est directement l'indice que tu as dans ta 1ère colonne.
Ici l'aide de WeekDay : https://support.microsoft.com/en-us/...rs=en-us&ad=us

A+

[User]

Bonjour.

Pourquoi la double transformation de numérique à jour en français puis en arabe ?

Je suggère de modifier ta fonction CorrespondanceJourAr() pour qu'elle prenne un argument numérique et de lui passer directement l'indice du jour.
Quelque chose comme : CorrespondanceJourAr(weekDay(Date))).
En plus WeekDay te retounre une valeur entre 1 et 7 donc c'est directement l'indice que tu as dans ta 1ère colonne.
Ici l'aide de WeekDay : https://support.microsoft.com/en-us/...rs=en-us&ad=us

A+

Bonjour René,

Tout à fait d'accord avec toi, mais il a créé plusieurs fonctions du même nom WeekDay dans ces modules

Bonne soirée ou journée,

[morobaboumar]

Bonjour René,
Tout à fait d'accord avec toi, mais il a créé plusieurs fonctions du même nom WeekDay dans ces modules
Bonne soirée ou journée,

Bonsoir User,
bonsoir marot_r,

C'est exact, au moment où j'ai conçu cette application, je n'avais aucune notion en matière de la programmation.
Aujourd'hui grâce aux énormes aides que vous nous apportez, on arrive à comprendre progressivement la programmation. Merci infiniment.

Je reviens à notre ordre du jour.
- Pièce jointe [Mise à jour v2]
Cordialement.

[User]

Bonjour,

J'ai mis à jour votre pièce jointe.

Cdlt,

[morobaboumar]

Bonjour,
J'ai mis à jour votre pièce jointe.
Cdlt,

Bonsoir membres du forum,
bonsoir User,

Au niveau du code suivant affiche Vendredi (الجمعة) alors que nous sommes à jeudi aujourd'hui au moment où je vous envoie ce post.
Pour ramener le nom du jour jeudi (الخميس), j'ai ramené

"ID_Jour=" & (j) + 1)

à

"ID_Jour=" & (j) + 0)

:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public Function WeekDayAr(j As Long) As String ' Traduction du jour de la semaine.
   'WeekDayAr = DLookup("L_JourAr", "Tbl_JoursDelaSemaine", "ID_Jour=" & (j) + 1)
   WeekDayAr = DLookup("L_JourAr", "Tbl_JoursDelaSemaine", "ID_Jour=" & (j) + 0)
 
End Function

et le jour exacte est affiché. Quelle est votre avis ?

Cordialement.

[User]

Oui tout à fait cela venait de votre fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Function WeekDayAr(j As Long) As String ' Traduction du jour de la semaine.
   WeekDayAr = DLookup("L_JourAr", "Tbl_JoursDelaSemaine", "ID_Jour=" & j)
End Function

Cdlt,

[morobaboumar]

Oui tout à fait cela venait de votre fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Function WeekDayAr(j As Long) As String ' Traduction du jour de la semaine.
   WeekDayAr = DLookup("L_JourAr", "Tbl_JoursDelaSemaine", "ID_Jour=" & j)
End Function

Bien, j'ai trouvé les 2 fonctions renommées:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Public Function WeekDayAr_2(j As Long) As String
   WeekDayAr_2 = DLookup("L_JourAr", "Tbl_JoursDelaSemaine", "ID_Jour=" & (j + 1))
End Function
 
Public Function MoisAr_2(m As Long) As String
    MoisAr_2 = DLookup("L_MoisAr", "Tbl_MoisDelAnnee", "ID_Mois=" & m)
End Function

alors je les ai appelées dans le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

chrToIsl_Plus_2

Tout marche. Sauf (voir capture d'écran):



Cordialement.

[User]

Bonjour,

J'ai mis à jour votre pièce jointe ici.

Cdlt,

[morobaboumar]

Bonjour,
J'ai mis à jour votre pièce jointe ici.
Cdlt,

Bonjour membres du forum,
bonjour User, bonjour marot_r,
Merci infiniment pour tout le bien que vous nous apportez.
Je vous souhaite tout le bonheur du monde et que le Seigneur vous protège.
Cordialement.

[User]

Je vous remercie !

Vous également, portez vous bien

[marot_r]

Merci morobaboumar.

Meilleurs vœux à toi.

A+