

KafeelNo
YateemNo
KafalahDate
KafalahEndDate
FirstKestDate
LastKestDate
CountPayed
TotalPayed
CountNotPayed
TotalNotPayed
AgazOk
EndReason
























FTType






-        .
-    (    ).
-   -  







3435


 
3237
3254
3255



mid$(HSanadDate,7,4)+"-"+mid$(HSanadDate,4,2)+"-"+mid$(HSanadDate,1,2)

99-99-0000;0;" "




KafeelAksaatNotYetD





-    


*******          ***********

 :

1-         .

2-   (        ) .

3-      .

****            ****

-       ado 2.6    sandat && data .
-        .
-   option explicvite       . 
-     .
-        .
-             .
-     objects .




vYateemKafalatHistoryD




[Forms]![AllAksaatNotYetM]![FKestYear]


"";"";" ";" ";" ";" ";"";"";"";"";" ";" "



vAksaatAytaamCrossM

aytaamsaak
aytaams
kafeelalld
kafeelallm
kafeels
linkkafeeltoprojects
linkyateemtokafeel
prjkafeeld
prjkafeelm
projects
sandatkafeel
sandatq
yateemnewkafalah
vkafeelpaym
vkafeelpayd
vkafeelprjm
vkafeelprjd
vkafeelsandatqd
vkafeelsandatqm
vsandatqd
vyateemaaksaatd
vyateemaakafalahhistoryd
aytaamkafalathis
kafeelaytaam
kafeelpay
kafeelsandatqd
projectsandatq
projectsubc
sandatqftrh
ayteemaksaat





















"","","  " ," "," ", " ","","","","" ," " ," "



 crossTab    OK












*************************************************************************************************

SELECT YateemAksaat.SanadQSeqNo, YateemAksaat.YateemNo, Aytaam.YateemName, Kafeel.KafeelName, YateemAksaat.KestAmount, YateemAksaat.KestYear, YateemAksaat.KestMonth
FROM (YateemAksaat INNER JOIN Kafeel ON YateemAksaat.FromNo=Kafeel.KafeelNo) INNER JOIN Aytaam ON YateemAksaat.YateemNo=Aytaam.YateemNo
WHERE YateemAksaat.YateemNo=Forms!vYateemAksaatM!FYateemNo And YateemAksaat.KestYear Between Forms!vYateemAksaatM!FKestYearFrom And Forms!vYateemAksaatM!FKestYearTo;


*************************************************************************************************



       

   ok
  ok
 
   ok
   ok
    ok
  ok			
   ok


*************************************************************************************************



*******          ***********

 :

1-         .

2-   (        ) .

3-      .





--------------------------------------------------------------------------------------------------------------------------------------------------------

Dim vCheckKafeelNo As Variant

IF Not IsNull(FProjectNo) AND Not IsNull(FKafeelNo)  Then

	vCheckKafeelNo = DLookup("KafeelNo", "PrjKafeel", "ProjectNo =' " & FProjectNo & " '  '  ")

	If Not IsNull(vCheckKafeelNo) Then
		         MsgBox "                         ", vbInformation + vbOKOnly 
	else
DoCmd.RunSQL ("Insert Into PrjKafeel (KafeelNo,ProjectNo) Values (' " & FKafeelNo & " ' , ' " & FProjectNo & " ' ) ;")	
              End If

Else	

	MsgBox "                        ", vbInformation + vbOKOnly 		

End If

------------------------------------------------------------------------------------------------------------------------------------------------------



=nz(DSum("SanadAmount";"VSandatQ";"isnull(RetSanadQ)");0)

=DSum("KestAmount";"YateemAksaatTmp";"SanadQSeqNo='" & [FSanadQSeqNo] & "'")
--------------------------------------------------------------------------------------------------------------------------------------------------------
  

 

Col1=SanadQSeqNo Char Width 20
Col2=SanadQNo Char Width 20
* Col3=FromNo Char Width 20
* Col4=FromName Char Width 50
Col5=MSanadDate Char Width 10
Col6=HSanadDate Char Width 50
Col7=SanadAmount Integer
* Col8=SanadProject Char 2

--    

Col12=CheckNo Char Width 10
Col13=BankName Char Width 50
Col14=CheckDate Char Width 10

--

Col9=Bayan Char Width 50
Col10=Notes LongChar Attribute 32
* Col11=KestOk Char Width 1

-- Security information

Col15=UserNo Char Width 2


-----------------------------------------------------------------------------------------------------------------------------------------------------------






















*************************************************************************************************
If Not IsNull(FHafilahNo) Then


    If IsNull(FlohahNo) Then

           FlohahNo.SetFocus
           Exit Sub
        
    ElseIf IsNull(FHafilahType) Then

           FHafilahType.SetFocus
           Exit Sub
           
    ElseIf IsNull(FHafilahModel) Then

           FHafilahModel.SetFocus
           Exit Sub

    ElseIf IsNull(FIstemrahNo) Then

           FIstemrahNo.SetFocus
           Exit Sub

    ElseIf IsNull(FIstemrahEndDate) Then

           FIstemrahEndDate.SetFocus
           Exit Sub
    End If

'   

Dim db As Database
   Set db = CurrentDb
   Dim rsr As Recordset
   Set rsr = db.OpenRecordset("Hafilaat", dbOpenDynaset)
   rsr.FindFirst ("HafilahNo ='" & FHafilahNo & "'")
   If rsr.NoMatch Then
      rsr.AddNew
      rsr!HafilahNo = FHafilahNo
      rsr!LohahNo = FlohahNo
      rsr!HafilahType = FHafilahType
      rsr!HafilahModel = FHafilahModel
      rsr!IstemrahNo = FIstemrahNo
      rsr!IstemrahEndDate = FIstemrahEndDate
      rsr!HColour = FHColour
      rsr!Notes = FNotes
      rsr.Update
   Else
      Do While True
         rsr.LockEdits = True
         If rsr.LockEdits = True Then Exit Do
      Loop
      rsr.Edit
      rsr!LohahNo = FlohahNo
      rsr!HafilahType = FHafilahType
      rsr!HafilahModel = FHafilahModel
      rsr!IstemrahNo = FIstemrahNo
      rsr!IstemrahEndDate = FIstemrahEndDate
      rsr!HColour = FHColour
      rsr!Notes = FNotes
      rsr.Update
   End If
   rsr.Close
   Set rsr = Nothing
   db.Close
   Set db = Nothing

Call cmdCls_Click

Else
    MsgBox "", vbCritical + vbOKOnly
    Call cmdCls_Click
End If






     ( -  -  -  - )
       .


	
1	
2	
3	
4	 
5	 
6	  - 
7	  - 
8	 
9	
10	 
11	 
12	




*************************************************************************************************



Private Sub Form_BeforeUpdate(Cancel As Integer)

Dim rst As Recordset

Set rst = Me.RecordsetClone

rst.MoveFirst

Do Until rst.EOF

If rst!Number = Me!Number Then

MsgBox "!!        ..    ", _

vbExclamation + vbOKOnly, "  "

Cancel = True

Exit Do

End If

rst.MoveNext

Loop

rst.Close

End Sub


--------------------------------------------------------------------------------------------------------------------------------
  




     

[code2] 
Function RcNum(frm As Form, fldName As String, mID As Variant) As Variant 
Dim RstClone As Recordset 
Dim Fld As Field 
Dim I As Long 
RcNum = Null 
If IsNull(mID) Then Exit Function 
Set RstClone = frm.RecordsetClone 
If RstClone.RecordCount = 0 Then Exit Function 
Set Fld = RstClone.Fields(fldName) 
With RstClone 
.MoveFirst 
Do Until .EOF 
I = I + 1 
If Fld = mID Then Exit Do 
.MoveNext 
Loop 
End With 
RstClone.Close 
RcNum = I 
End Function 


            

=RcNum([Form];"ID";[ID]) 
[/code2] 
  ID                

   Dao   

  





--------------------------------------------------------------------------------------------------------------------------------


WHERE  Kafeel.kafeelNo not in (select KafeelNo
from PrjKafeel
where ProjectNo <> 2)



--------------------------------------------------------------------------------------------------------------------------------



Dim db As Database
      Dim rsi As Recordset
      Dim rsm As Recordset
      Dim rst As Recordset
      Set db = CurrentDb
      Set rsi = db.OpenRecordset("MB_ItemSale", dbOpenDynaset)
      Set rsm = db.OpenRecordset("Master", dbOpenDynaset)
      Set rst = db.OpenRecordset("ItemTrans", dbOpenDynaset)
      Do While Not rsi.EOF
         fItemFlag = RTrim(LTrim(fStoreCode)) + RTrim(LTrim(rsi!ItemCode))
         rsm.FindFirst ("ItemFlag='" & fItemFlag & "'")
         If rsm.NoMatch Then
         Else
            rsm.Edit
            rsm!MQty = rsm!MQty + Nz(rsi!PQty)
            rsm.Update
         End If
         rst.AddNew
         rst!ItemCode = RTrim(LTrim(rsi!ItemCode))
         rst!Storecode = RTrim(LTrim(fStoreCode))
         rst!MQty = Nz(rsi!PQty)
         rst!sprice = Nz(rsi!PPrc)
         rst!docno = Me!fSaleNo
         rst!Bdate = Me!fDate
         rst!Customer = Me!fCustName
         rst!Kind = "3"   ' ????? E??
         rst.Update
         rsi.MoveNext
      Loop
      db.Close
      Prn.SetFocus
  End If






--------------------------------------------------------------------------------------------------------------------------------


DSum ("[TyateemAksaatD]![Kest] ", "[Orders]", "[ShipCountry] = 'UK'")


CMonth: "M_" & Format(Month([Dt]);"00")





Forms!Form1!subControl1.SetFocus
Forms!Form1!subControl1.Form.Controls!txtTransdate.SetFocus




SELECT COUNT(*)
FROM KAFEEL



--------------------------------------------------------------------------------------------------------------------------------


' Insert into Armlah


 DoCmd.RunSQL (" Insert Into Araamal " _
   & " (ArmlahNo,ArmlahName,HusDeathDate,ArmlahNat,MaleCount,FemaleCount,ArmlahAddress,HomePhone " _
   & " ,HelthStatus,Notes ) " _
   & " Values (FArmlahNo,FArmlahName,FDeathDate,FNatNo,FMaleCount,FFemaleCount,FArmlahAddress,FHomePhone);")




--------------------------------------------------------------------------------------------------------------------------------

' Update Armlah


DoCmd.RunSQL ("UpDate Araamal Set ArmlahName = FArmlahName,HusDeathDate=FDeathDate,ArmlahNat=FNatNo," _
   & "MaleCount=FMaleCount,FemaleCount=FFemaleCount,ArmlahAddress=FAddress " _
   & ",HomePhone=FHomePhone,HelthStatus=FHelthStatus,Notes=FNotes " _
   & " Where [ArmlahNo] = '" & [FArmlahNo] & "';")

--------------------------------------------------------------------------------------------------------------------------------

' Insert Into Kafeel


DoCmd.RunSQL (" Insert Into Yateem " _
   & " (YateemNo,YateemName,BrithDate,YateemNat,YateemSex,IdentityCardNo,StudyLevel,SchoolName " _
   & " ,SchoolClass,HelthStatus,YateemAddress,Phone,Notes ) " _
   & " Values (FYateemNo,FYateemName,FBrithDate,FNatNo,FSex,FIdentityCardNo,FStudyLevel,FSchoolName" _
   & " ,FSchoolClass,FHelthStatus,FAddress,FPhone,FNotes) ;")

---------------------------------------------------------------------------------------------------------------------------------  
'  update Aytaam

   DoCmd.RunSQL ("UpDate Aytaam Set YateemName = FYateemName,BrithDate=FBrithDate,YateemNat=FNatNo," _
   & "YateemSex=FSex,IdentityCardNo=FIdentityCardNo,StudyLevel=FStudyLevel " _
   & ",SchoolName=FSchoolName,SchoolClass=FSchoolClass,HelthStatus=FHelthStatus," _
   & " YateemAddress=FAddress,Phone=FPhone,Notes = FNotes " _
   & " Where [YateemNo] = '" & [FYateemNo] & "';")

---------------------------------------------------------------------------------------------------------------------------------
 

SELECT Araamal.ArmlahNo AS Expr1, Araamal.ArmlahHusName AS Expr2, AraamalProjects.SeqNo, AraamalProjects.KafeelNo, AraamalProjects.ProjectType, AraamalProjects.ProjectNo, AraamalProjects.ProjectStartDate, AraamalProjects.ProjectFinshDate, AraamalProjects.ProjectHalt
FROM Araamal INNER JOIN AraamalProjects  ON Araamal.ArmlahNo = AraamalProjects.ProjectNo
ORDER BY Araamal.ArmlahNo;
---------------------------------------------------------------------------------------------------------------------------------



SELECT Kafeel.KafeelNo AS Expr1, Kafeel.KafeelName FROM Kafeel ORDER BY Val(Kafeel.KafeelNo); 



--------------------------------------------------------------------------------------------------------------------------------

Insert To Kafeel


DoCmd.RunSQL (" Insert Into Kafeel " _
   & " (KafeelNo,KafeelName,BankBranch,BankAccNo,TType,IdentityCardNo,IdentityCardDate,IdentityCardCity " _
   & " ,KafeelAddress,Job,HomePhone,JobPhone,Jawaal,Pobox,EmailAddress,Through,Notes ) " _
   & " Values (FKafeelNo,FKafeelName,FBankAccNo,FBankBranch,FTType,FIdentityCardNo,FIdentityCardDate,FIdentityCardCity " _
   & " ,FKafeelAddress,FJob,FHomePhone,FJobPhone,FJawaal,FPobox,FEmailAddress,FThrough,FNotes) ;")

---------------------------------------------------------------------------------------------------------------------------------
Update Kafeel

   DoCmd.RunSQL ("UpDate Kafeel Set KafeelName = FKafeelName,BankAccNo=FBankAccNo,BankBranch=FBankBranch" _
   & "TType=FTType,IdentityCardNo=FIdentityCardNo,IdentityCardDate=FIdentityCardDate " _
   & ",IdentityCardCity=FIdentityCardCity,KafeelAddress=FKafeelAddress,Job=FJob," _
   & " HomePhone=FHomePhone,JobPhone=FJobPhone,Jawaal=FJawaal,Pobox=FPobox," _
   & " EmailAddress = FEmailAddress, Through = FThrough, Notes = FNotes " _
   & " Where [KafeelNo] = '" & [FKafeelNo] & "';")
---------------------------------------------------------------------------------------------------------------------------------
 

    BankAccNo text 30  R
  BankBranch text 30 R
  TType   text 30 
  IdentityCardNo text 20 R
        IdentityCardDate date R
	    IdentityCardCity  text 20 R	
	 R
       Job   text 30 
    HomePhone text 15	
    JobPhone     text 15			 
          Jawaal         text 15
 . 	    Pobox          text 10 
   EmailAddress text 30
     Through text 30 
  Notes     memo

---------------------------------------------------------------------------------------------------------------------------------

Dim vcheckname As Variant
  vcheckname = DLookup("KafeelNo", "Kafeel", "KafeelName='" & FKafeelName & "'")
If Not IsNull(vcheckname) Then
   
   FKafeelNo = DLookup("KafeelNo", "Kafeel", "KafeelNo='" & vcheckname & "'")
   FKafeelAddress = DLookup("KafeelAddress", "Kafeel", "KafeelNo='" & vcheckname & "'")
   FKafeelPhone = DLookup("KafeelPhone", "Kafeel", "KafeelNo ='" & vcheckname & "'")
   
   FKafeelName.SetFocus
   End If
End Sub



Private Sub FKafeelName_GotFocus()
FKafeelName.Requery
End Sub

---------------------------------------------------------------------------------------------------------------------------------

Private Sub FKafeelNo_AfterUpdate()
Dim vcheckno As Variant
  vcheckno = DLookup("KafeelNo", "Kafeel", "KafeelNo='" & FKafeelNo & "'")
     If Not IsNull(vcheckno) Then
        FKafeelName = DLookup("KafeelName", "Kafeel", "KafeelNo='" & FKafeelNo & "'")
        FKafeelAddress = DLookup("KafeelAddress", "Kafeel", "KafeelNo='" & FKafeelNo & "'")
        FKafeelPhone = DLookup("KafeelPhone", "Kafeel", "KafeelNo ='" & FKafeelNo & "'")
        FKafeelNo.SetFocus
     End If
End Sub

---------------------------------------------------------------------------------------------------------------------------------

3200

SanadTypes

---------------------------------------------------------------------------------------------------------------------------------
OpenAllSandatReport
OpenAllKafeelSandatReport
OpenAllSandatBDatesReport

---------------------------------------------------------------------------------------------------------------------------------
WrittenAmount = SayOnly(CLng(FSanadAmount))
SayOnly(CLng())

---------------------------------------------------------------------------------------------------------------------------------
Calendar = vbCalHijri
TxtTDateHijri = Date
TxtTDateHijri = Format(TxtTDateHijri, "yyyy/mm/dd") & " ?U"
 

---------------------------------------------------------------------------------------------------------------------------------

SELECT Sandat.SanadNo AS Expr1,Sandat.SanadDate AS Expr2,SanadTypes.SanadTypeName AS Expr3,Kafeel.KafeelName AS Expr4
FROM Sandat,kafeel,SanadTypes
WHERE  Sandat.KafeelNo=Kafeel.KafeelNo
AND Sandat.SanadType=SanadTypes.SanadTypeNo
ORDER BY Val(Sandat.SeqNo); 
---------------------------------------------------------------------------------------------------------------------------------

FSanadNo,FKafeelNo,FSanadDate,FSanadType FSanadAmount

SELECT SanadTypes.SanadTypeNo,SanadTypes.SanadTypeName FROM SanadTypes ORDER BY VAL(SanadTypes.SanadTypeNo); 

---------------------------------------------------------------------------------------------------------------------------------
SELECT SanadTypes.SanadTypeName,SanadTypes.SanadTypeNo FROM SanadTypes ORDER BY VAL(SanadTypes.SanadTypeNo); 

---------------------------------------------------------------------------------------------------------------------------------
SELECT Kafeel.KafeelNo, Kafeel.KafeelName,Kafeel.KafeelAddress,Kafeel.KafeelPhone FROM Kafeel ORDER BY VAL(Kafeel.KafeelNo); 
---------------------------------------------------------------------------------------------------------------------------------
SELECT SanadTypes.SanadTypeNo,SanadTypes.SanadTypeName FROM SanadTypes ORDER BY 
---------------------------------------------------------------------------------------------------------------------------------